AccessTr.neT
Boş Metin Kutusu Denetimi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Boş Metin Kutusu Denetimi (/konu-bos-metin-kutusu-denetimi.html)

Sayfalar: 1 2


Boş Metin Kutusu Denetimi - ayavuz2233 - 01/01/2023

Merhaba

Siparişler kaydet butonuna eklediğim aşağıdaki kod ile Siparişler ve SiparisAltForm da boş metin kutusu varsa kayıt yapmasın. Uyarı versin istiyorum. Eklediğim kod çalışmiyor.  Siparişler veya SiparisAltForm da boş metin kutusu olmasına rağmen kayıt yapıyor.  

Örneğin: Siparişler Formu boş iken SiparisAltForma veri giriyorum. Sonra Siparişler formunda herhangi bir metin kutusuna odaklandığım zaman SiparisAltForma daki verileri kayıt ediyor ve SiparisAltForma daki mesin kutularını temizliyor. Siparisler Formundaki metin kutuları boş olduğu zaman SiparisAltForma daki metin kutularına veri girmemize izin vermese çok iyi olur.

Kod:
If IsNull(Alan adı) = True Then
MsgBox "Boş metin kutusu uyarısı"
Exit Sub
End If




RE: Boş Metin Kutusu Denetimi - C*e*l*o*y*c*e - 01/01/2023

Merhaba

If Me.Alan adı = "" Or IsNull(Me.Alan adı) Then
..............
şeklinde deneyin


RE: Boş Metin Kutusu Denetimi - ayavuz2233 - 01/01/2023

Hocam AltForm metin kutularının boş olduğunu nasıl denetliyebiliriz.


RE: Boş Metin Kutusu Denetimi - atoykan - 01/01/2023

If Forms!FormAdı!Denetimadı="" or isnull(Forms!FormAdı!Denetimadı) then.....


RE: Boş Metin Kutusu Denetimi - ayavuz2233 - 01/01/2023

Hocam kodu bu şekilde giriyorum hata veriyor nerede hata yapıyorum. Kayıt butonu Siparisler Formunda URUN_ADI metin kutusu SiparislerAltForm da.

If Forms!SiparislerAltForm!URUN_ADI = "" Or IsNull(Forms!SiparislerAltForm!URUN_ADI) Then


RE: Boş Metin Kutusu Denetimi - C*e*l*o*y*c*e - 01/01/2023

If Me.Form![URUN_ADI] = "" Or IsNull(Me.Form![URUN_ADI]) Then
MsgBox "Boş metin kutusu uyarısı"
Me.Form![URUN_ADI].SetFocus
Exit Sub
End If
şeklinde deneyin