Formda Bir Alana Değer Girilmesini Şart Koşmak.

1 2 3 4 5
03/12/2018, 13:48

ozanakkaya

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.
03/12/2018, 14:00

ozanakkaya

Örneğinizin düzenlenmiş hali ektedir, önce kodları uygulamaya çalışın, örneği en son inceleyin.
03/12/2018, 14:24

Oğuz Türkyılmaz

(03/12/2018, 13:47)haliliyas yazdı: peki forma girir girmez kendisi otomatik olarak butona basılmış gibi orayı doldursa
hatta buton hiç olmasa da "S_No"da olduğu gibi kendisi otomatik doldursa

Benim Kod üret butonuna tanımladığım formatta ürettirebilirsek tadından yenmez. ( Butonuda sileriz ) Ve bu numara takip numarası olacağı için aynı zamanda asla bir başka forma aynı numarayı vermemeli Halil bey. Sonraki sorum bu konuda olacaktı Şöyleki, Mükerrer numara tekrarı gerçekleşmiş, seri bir şekilde alakasız kayıtlar açıp hızlı hızlı kaydederken oluşmuş ama nasıl bilmiyorum tablolardan kontrol ederseniz aynı kayıt numarasının 2 ayrı formda kullanıldığını görebilirsiniz. ( kayıtID:39 ve 40 )
03/12/2018, 14:36

Oğuz Türkyılmaz

(03/12/2018, 14:00)ozanakkaya yazdı: Örneğinizin düzenlenmiş hali ektedir, önce kodları uygulamaya çalışın, örneği en son inceleyin.

Teşekkürler Ozan Bey, Hemen uygulayacağım.
03/12/2018, 15:08

berduş

aşağıdaki örneği inceler misiniz
03/12/2018, 15:15

Oğuz Türkyılmaz

(03/12/2018, 14:00)ozanakkaya yazdı: Örneğinizin düzenlenmiş hali ektedir, önce kodları uygulamaya çalışın, örneği en son inceleyin.

OZAN Bey Metin kutusuna bir değer girilip girilmediğini metin kutusundan çıkarken yordamından halletsek, baktırsak  yani kaydet butonuna kadar kontrolsüz bir şekilde gitmese anında çözse kullanıcı istenen değeri  o an girse ondan sonra diğer sekmelerdeki alanların girişine devam ettirsek kafamdaki diğer formlar içinde daha doğru bir çözüm olacak bu proje için.
1 2 3 4 5