Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Dolu Metin Kutusu Uyarısı

[FORM] Dolu Metin Kutusu Uyarısı
m_demir
Aktif Üye 100-150

*
Kayıt Tarihi: 22.12.2017
Toplam 34 konu açtı.
Toplam 105 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#1
04-07-2018, 22:49 (En son düzenleme: 05-07-2018, 01:15 m_demir.)
Merhaba Arkadaşlar.
Alt Form Metin kutusu boş ise kodlar çalışsın Alt Form metin kutusu dolu ise kodlar çalışmasın metin kutusu dolu uyarısı versin

Örneğin:
If Form!MetinKutusu1 = "" Then

......
Kodlar
.....

Else
MsgBox " MetinKutusu1 dolu "
Exit Sub
End If

Şeklinde kod eklemeye çalıştım. Olmadı.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#2
05-07-2018, 01:57
Sn m_demir;
Bir Alan kontrolu icin
Visual Basic
  1. Private Sub Form_Current()
  2. If me.MetinKutusu1 = "" or isnull(me.MetinKutusu1) Then
  3.     '......
  4.    MsgBox " MetinKutusu1 bos"
  5.     'Kodlar
  6.     '.....
  7. Else
  8.     MsgBox " MetinKutusu1 dolu "
  9. End If
  10. Exit Sub



Birden fazla Alan kontrolu icin
Kontrol edilmesi isediginiz kutularin Im(Tag) bolumune BAK yazin
Visual Basic
  1. Private Sub Form_Current()
  2. Dim Kutu as control
  3. for each Kutu in Me.controls
  4.       if Kutu.tag="BAK" then
  5.          if me.control(Kutu.name)="" or isnull(me.control(Kutu.name)) then
  6.              me.control(Kutu.name).setfocus
  7.              msgbox Kutu.name & " nesnesi bos"
  8.              exit for
  9.         end if
  10.      end if
  11. next Kutu
  12. end sub


Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
m_demir
Aktif Üye 100-150

*
Kayıt Tarihi: 22.12.2017
Toplam 34 konu açtı.
Toplam 105 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#3
05-07-2018, 23:10 (En son düzenleme: 06-07-2018, 00:51 m_demir.)
Çok, çok teşekkürler. Hocam ellerinize sağlık.

Hocam eklediğiniz Kod ile Form metin kutusunun boş olup olmadığını kontrol edebiliyorum.

Benim istediğim BFormunda 5 Adet Metin kutusu var BAltFormda 4 adet metin kutusu var.

BFormunda MetinKutusu2 ve BAltForumda MetinKutusu4 dolu ise kayıt yapmasın Uyarı mesajı versin. Bunun için nasıl bir kod eklemem gerekiyor. Saygılarımla iyi çalışmalar.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#4
06-07-2018, 01:20
Sn m_demir;
if forms!BFormunda!MetinKutusu2<>"" And forms!BFormunda!BAltForumda.Form!MetinKutusu4<>"" then
Dim Cvp
Cv=msgbox ("Uyari mesaji", vbcritical,"MESAJ BASLIGI")
me.undo
end if

kosullu uyari dongu disinda olusturulmasi daha avantajli.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
m_demir
Aktif Üye 100-150

*
Kayıt Tarihi: 22.12.2017
Toplam 34 konu açtı.
Toplam 105 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#5
06-07-2018, 22:00 (En son düzenleme: 06-07-2018, 22:00 m_demir.)
Hocam yazmış olduğunuz kodu ekli dosyama uygulayamadım. Hata verdi.

Satıs Formunda ÖDEMELER başlığı altında Ödeme bilgilerini girip OdKaydet butonuna tıkladığımız zaman. Satıs Formunda StokNo Metin Kutusu ve Satis Alt Formu (FaturaDetay)
Formunda Yekun etin kutusu dolu ise kayıt yapmasın uyarı mesajı versin.

Eklediğiniz kodu anlatığım şekilde ekli dosyama uygularsanız sevinirim saygılarımla iyi çalışmalar.


Eklenti Dosyaları
.rar   Örnek.rar (Boyut: 977,26 KB / İndirilme: 83)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#6
07-07-2018, 11:51
Private Sub OdKaydet_Click()
If Forms.Satis.FaturaDetay.Form.Yekun = "" Or Forms.Satis.StokNo = "" Then
If Forms.Satis.StokNo = "" Then
MsgBox "StokNo bos": Forms.Satis.StokNo.SetFocus
Else
MsgBox "Yekun bos"
End If
Exit Sub
End If
...
...
end sub

prosedure uc noktaya kadari ekleyebilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-2 [FORM] Liste kutusu biçimlendirme... rafetgulmez 7 4.112 28-11-2025, 13:18
Son Mesaj: osman06
  Parametre Değeri Gir Uyarısı hegu 3 375 23-05-2025, 14:55
Son Mesaj: hegu
  [FORM] Metin Kutusundaki Değeri Başka Bir Metin Kutusuna Aktarmak TheREDROSE 2 422 02-08-2024, 11:56
Son Mesaj: TheREDROSE
  [SORGU] Boş Yada Dolu Olanlar Access Ziyaretçisi 2 387 15-06-2024, 20:30
Son Mesaj: Access Ziyaretçisi
  [FORM] metin kutusu kaydırma onkay 5 2.358 27-12-2023, 13:24
Son Mesaj: dsezgin
  Metin Kutusu Adı Değiştirme Hk. snapper 9 787 08-11-2023, 01:12
Son Mesaj: dsezgin
  [TABLO] çoklu Birleşik Giriş Kutusu RASİMPEH 2 483 19-09-2023, 04:53
Son Mesaj: RASİMPEH
  Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz? adnnfrm 2 556 06-08-2023, 03:51
Son Mesaj: adnnfrm

Foruma Git:


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