Sayın sally;
Kodu buradan aynen kopyalayı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 ("Kiralık Makine Varsa Sözleşme Tarihini Boş Geçemezsiniz")

Onay42.SetFocus

Exit Sub 

End If 

End If



End Sub

Bazen bizim yapmak istediklerimizle ilgili accessin hazır fonksiyonları olmayabilir. Veya aynı işlemi (sizin programda olduğu gibi) bir kaç kez yapmak zorunda kalabiliriz. İşte bunun için kodla özel fonksiyonlar veya alt rutinler yazabiliriz.
Kod sayfasına geçin private sub ......(adına ne diyecekseniz) yazıp entere basın
hemen altına Access end sub ekleyerek size araya yazmanız için hazırlar.