Boş Metin Kutusu Denetimi

1 2
01/01/2023, 19:15

ayavuz2233

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
01/01/2023, 19:29

C*e*l*o*y*c*e

Merhaba

If Me.Alan adı = "" Or IsNull(Me.Alan adı) Then
..............
şeklinde deneyin
01/01/2023, 19:40

ayavuz2233

Hocam AltForm metin kutularının boş olduğunu nasıl denetliyebiliriz.
01/01/2023, 20:36

atoykan

If Forms!FormAdı!Denetimadı="" or isnull(Forms!FormAdı!Denetimadı) then.....
01/01/2023, 20:50

ayavuz2233

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
01/01/2023, 21:22

C*e*l*o*y*c*e

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
1 2