Formunuzun Vba sayfasına 

Sub MetinKutusuKontrol()





Dim Sonuc As Boolean



Dim ctrl As Control

For Each ctrl In Screen.ActiveForm

    If ctrl.Tag = "1" Then

       

        If ctrl.Value = "" Or IsNull(ctrl.Value) Then

        

        MsgBox (ctrl.StatusBarText & " BOŞŞ")

        

        ctrl.SetFocus

        Exit Sub

        

        Sonuc = True

        

        End If

         

    End If

Next ctrl



If Sonuc = False Then



    DoCmd.RunCommand acCmdSaveRecord

    MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation, "İşlem Tamam"



End If



End Sub

kodu ekle,  Kaydet butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Call MetinKutusuKontrol

Boş geçilemeyecek metin kutularının İm özelliğine 1 yaz ve bu metin kutularının durum çubuğu metni özelliğine boş olduğunda görünecek mesajı yaz.

Örneğin txtTeklifVerilenFirma isimli metin kutusunun Durum Çubuğu Metni özelliğine "Teklif Verilen Firma" yazacaksın.