Kod:
Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click
Dim stDocName As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Set db = CurrentDb
sql = "SELECT ID, Tarih, Islem, Uye, Aciklama, Tutar, EvrakTur, EvrakTarih, EvrakNo, Odtarihi, TurTipi " & _
"FROM T030_BankalarIslem " & _
"WHERE Month([Tarih]) = 3 AND TurTipi IN ('GELİR', 'ÜYE GELİR')"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
If rs.EOF Then
MsgBox "Aktarılacak veri bulunmamaktadır. Lütfen veri seçin.", vbExclamation, "Hata"
Exit Sub
End If
Debug.Print "Tarih Alanı: " & rs!Tarih
Do While Not rs.EOF
If Not IsNull(rs!Tarih) Then
Debug.Print "Tarih: " & rs!Tarih
Else
Debug.Print "Tarih değeri yok."
End If
db.Execute "INSERT INTO tblListe0 (Tarih, Islem, Uye, Aciklama, Tutar, EvrakTur, EvrakTarih, EvrakNo, Odtarihi, TurTipi) " & _
"VALUES (#" & Format(rs!Tarih, "dd-mm-yyyy") & "#, '" & rs!Islem & "', '" & rs!Uye & "', '" & rs!Aciklama & "', " & rs!Tutar & ", '" & rs!EvrakTur & "', #" & Format(rs!EvrakTarih, "dd-mm-yyyy") & "#, '" & rs!EvrakNo & "', #" & Format(rs!Odtarihi, "dd-mm-yyyy") & "#, '" & rs!TurTipi & "')"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
stDocName = "Rapor6"
DoCmd.OpenReport stDocName, acPreview
Exit_Komut1_Click:
Set db = Nothing
Exit Sub
Err_Komut1_Click:
MsgBox "Hata: " & Err.Description
Resume Exit_Komut1_Click
End Sub