If Me.Sevk_tarihi < Date Then
MsgBox ("" & Sevk_tarihi & " tarihine ait kayıt eklenemez")
Me.Undo
End If
7001AracPlaniF formundaki İl/Ülke liste kutusunun güncelleştirme sonrasında olayına aşagıdaki kodu ekle.