03/12/2018, 13:48
ozanakkaya
Formunuzun Vba sayfasına
kodu ekle, Kaydet butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
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.
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.