Bitiş tarihinin Güncelleme sonrasına aşağıdaki kodu yapıştırın.

Private Sub ST_AfterUpdate()

Dim B1, B2 As String

Dim Sql As String

Dim db As Database

Dim rs As DAO.Recordset

Set db = CurrentDb()



B1 = Mid(BT, 1, 2) & Mid(BT, 4, 2) & Mid(BT, 9, 2)

B2 = Mid(ST, 1, 2) & Mid(ST, 4, 2) & Mid(ST, 9, 2)



SQL = "SELECT * FROM DU"

Set rs = db.OpenRecordset(SQL)

If rs.EOF = True Then GoTo 400



rs.MoveFirst

Do Until rs.EOF

If rs!TARİH < B1 Then GoTo 300

If rs!TARİH > B2 Then GoTo 300

MsgBox ("Daha önce aktarılmış tarih var.... Kimlik = " & rs!Kimlik)

GoTo 400

300

rs.MoveNext

Loop

400

End Sub