Sayın Kural hocam,
(Aynı anda mesaj attık sanırım, mesajı atınca 2.mesajınızı okudum, hemen uyguluyorum.)
Aşağıdaki komutlar bir yere kadar istenileni yapıyor ancak, ThmHRK tablosundaki [Fiili tarih] boş olanları silmiyor. hrk2 dosyasında boş tarih te bir ölçüt ama bunları nasıl sildirebilirim?
Teşekkürler.
Private Sub Command0_Click()
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim db As Database
Dim strSQL As String
Set db = CurrentDb()
strSQL = "SELECT * FROM hrk2"
Set rs = db.OpenRecordset(strSQL)
strSQL = "SELECT * FROM ThmHRK"
Set rs1 = db.OpenRecordset(strSQL)
If rs.EOF = True Then GoTo 90
rs.MoveFirst
Do Until rs.EOF
rs1.MoveFirst
Do Until rs1.EOF
If rs![Fiili tarih] = rs1![Fiili tarih] Then rs1.Delete
rs1.MoveNext
Loop
rs.MoveNext
Loop
90:
End Sub
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 08/11/2010, 00:32, Düzenleyen: temre.