İlgili kodu aşağıdaki şekilde değiştirip uygulayın.
Private Sub SözleşmeBitişTarihi_Exit(Cancel As Integer)
If IsNull(SözleşmeBitişTarihi) Or SözleşmeBitişTarihi = "" Then
If Metin45 = "Var" Then
MsgBox ("Makina kiralanmışsa sözleşme tarihini boş geçemezsiniz")
Onay42.SetFocus
Exit Sub
End If
End If
End Sub