A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Boş Metin Kutusu Denetimi
#1
Hocalarım; aşağıdaki kodda metin34 denetimi yapmaksızın "anlaşamamasontutanağıgörüşmesiziş" kodunu çalıştırmakta. Oysa metin34 boş,sebebi ne olabilir?

If IsNull(Me.Metin34) Then
MsgBox "Lütfen oturum yeri giriniz!", vbInformation, "Zorunlu Alanı Doldurunuz"
Me.Metin34.SetFocus
Exit Sub
End If

If Me.Metin8.Value = "İşçi İşveren" Then
Call anlaşamamasontutanağıgörüşmesiziş
End If



  Alıntı
Bu mesajı beğenenler:
#2
If Me.Metin34="" Then


bu şekilde de bi deneseniz



  Alıntı
Bu mesajı beğenenler:
#3
(02-12-2019, 20:38)husem demiş ki: If Me.Metin34="" Then


bu şekilde de bi deneseniz

Aynı Husem Hocam,Aşağıdaki ikinci grup kodu silince denetimi yapıyor

If Me.Metin8.Value = "İşçi İşveren" Then
Call anlaşamamasontutanağıgörüşmesiziş
End If



  Alıntı
Bu mesajı beğenenler:
#4
metin34
açılan kutumu, metin kutusu mu
örneğinizi 2003 formatında ekleme imkanınız varsa ekleyebilirmisiniz?



  Alıntı
Bu mesajı beğenenler:
#5
(02-12-2019, 20:44)husem demiş ki: metin34
açılan kutumu, metin kutusu mu

Metin kutusu hocam textbox



  Alıntı
Bu mesajı beğenenler:
#6
Örneği şöyle yapınca oluyor hocam, call komutuyla ilgili sorun var sanırım.

If IsNull(Me.Metin34) Then
MsgBox "Lütfen oturum yeri giriniz!", vbInformation, "Zorunlu Alanı Doldurunuz"
Me.Metin34.SetFocus
Exit Sub
End If

If Me.Metin8.Value = "İşçi İşveren" Then
MsgBox "yazdırılıyor!", vbInformation, "Bilgilendirme"
End If



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Form üzerinden Liste Kutusu Içinde Sorgu aktepes 4 156 22-04-2020, 00:02
Son Mesaj: aktepes
  [FORM] Otomatik Metin Kutusu alienerji 2 206 05-04-2020, 03:47
Son Mesaj: dsezgin
  Metin Kutusu Içinde Değeri Bulma h2001 16 344 26-03-2020, 10:14
Son Mesaj: h2001
  Onay Kutusu İsmail Küçükşengün 10 8.378 30-01-2020, 10:28
Son Mesaj: Zargana61
  Liste Kutusu Aktarma Ve Rapor Problemi sefersanli 8 250 19-11-2019, 09:05
Son Mesaj: halily
  Liste Kutusu Aktarma Ve Rapor Problemi sefersanli 13 474 18-11-2019, 22:07
Son Mesaj: sefersanli
  Metin Kutusu Not Alma h2001 4 251 18-11-2019, 18:35
Son Mesaj: h2001
  [VBA] Liste Kutusu Sütun Adları sefersanli 6 266 18-11-2019, 09:58
Son Mesaj: sefersanli

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi