bahsettiğiniz talebinize yönelik olarak;
mevcuttaki kodları,
Private Sub SUB_VT_DATE_AfterUpdate()
If Me.SUB_VT_DATE < Me.VT_DATE Then
MsgBox ("KAYNAK TARIHINDEN KUCUK TARIH GIREMEZSINIZ"), vbCritical, "KUCUK DEGER UYARISI"
Me.Undo
Me.SUB_VT_DATE = ""
Exit Sub
ElseIf IsNull(Me.VT_DATE) Then
MsgBox ("KAYNAK TARIHI OLMADAN GIRIS YAPAMAZSINIZ"), vbCritical, "SUB_VT_DATE DEGERI BOS UYARISI"
Exit Sub
End If
End Sub
yukarıda yazılı şekilde kullanarak deneyiniz.
bilginize...iyi çalışmalar,saygılar.