- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhabalar,
Forum da çok araştırdım yalnız istediğimi bulamadım..
Form üzerine aşağıdaki kodla sorgudan [QryTakip] veri alıyorum;
daha sonra buradaki verileri excele aktarma istiyorum.
Burada sorgunun tamamını aktarıyor, ben ise strSQL ile süzülen verilen aktarılsın istiyorum.
buradaki "QryTakip" yerine strSQL yazdım fakat olmadı, bu işi nasıl çözebilirim.
İyi Çalışmalar.
Forum da çok araştırdım yalnız istediğimi bulamadım..
Form üzerine aşağıdaki kodla sorgudan [QryTakip] veri alıyorum;
Kod:
......
.......
strSQL = "SELECT* FROM [QryTakip] WHERE(([Gecendk]> " & dak & ")and ([Durumu] like '" & Tip & "'))"
Me.RecordSource = strSQL
Kod:
On Error GoTo Err_aktar
strSQL = "SELECT* FROM [QryTakip] WHERE(([Gecendk]> " & dak & ")and ([Durumu] like '" & Tip & "'))"
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
(0, "Lütfen bir klasor seçin !", &H100)
MyPath = ObjFolder.Items.Item.Path
Klasor = MyPath & "\ExcelDosyası.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "ExcelDosyası.xls 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "QryTakip", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
End If
Kod:
DoCmd.TransferSpreadsheet acExport, 8, "QryTakip", Klasor, True, ""
İyi Çalışmalar.