A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Mesaj Kutusuna Alan Ismi Yazmak
#1
Herkese iyi akşamlar,

veritabanımda kullandığım bir formda(Frm_A) kullanıcının boş bıraktığı alanın adının doğrudan mesaj kutusunda yer almasını istiyorum. nasıl yapabilirim? Komut_Click altına yazacağım.

Örnek;

Freblok>>>alan adı
ilkFrekans >>>alan adı
sonFrekans>>>alanadı

If IsNull(boş bırakılan alan adı) Then MsgBox "Boş bırakılan alan adı boş bırakıldı, lütfen tekrar kontrol ediniz", vbInformation, "Uyarı"

Me.BoşBırakılanAlanadı.SetFocus

Aklıma sonradan geldi ve ilave etmek için sorumda düzeltme yaptım. Bir alan veya birden fazla alan boş bırakılırsa diye düzelteyim Kk

Teşekkürler. Herkese sağlıklı günler...



  Alıntı
Bu mesajı beğenenler:
#2
Kaçtan alan var belirtmrmişsiniz. Örnek dosya eklerseniz daha iyi olurdu. Ama şöyle yapabilirsiniz....

İf isnull (alanadı1) then
Msgbox alanadı1.caption & " Alan adınız boş bıraktınız."
Elseif isnull (alanadı2) then
Msgbox alanadı2.caption & " Alan adınız boş bıraktınız."
.........
End if

Şeklinde devam ettirebilirsin. Eğer alan çok fazla ise o zaman farklı bir seçenek sunabilirim. Yukarıda alanadı1.caption olan alanadı1 aslında alanadı1 e ait olan etiketin adı olacak buna dikkat.



  Alıntı
Bu mesajı beğenenler:
#3
Sn alperalper hocamdan farklı yöntem olarak aşağıdaki prosedürleri kullanabilirsiniz.
Kontrolü yapılacak nesnelerin Im(Tag) bölümüne BosDolu yazma ile call BosKontrol satiri ile kontrol yaptırılabilir.
Visual Basic
  1. Public Function BosKontrol() As Variant
  2. Dim Kontrol As Control
  3. For Each Kontrol In Me.Controls
  4. If Kontrol.Tag = "BosDolu" Then
  5. If IsNull(Kontrol) Then MsgBox Kontrol.Name & " bos birakildi, lütfen tekrar kontrol ediniz", vbInformation, "Uyari": Me.Controls(Kontrol.Name).SetFocus: BosKontrol = -1: Exit For
  6. End If
  7. Next Kontrol
  8. End Function





  Alıntı
Bu mesajı beğenenler:
#4
Sayın alperalper,

hızlı cevabınız için çok teşekkür ederim. Kod çalıştı. Aslında yukarıdaki sorumda belirttiğim alanlar formda mevcut 3 adet alan idi. Kod alanları ayrı ayrı veriyor. Sizin ikinci seçenek olarak yazabilirim dediğiniz boş bırakılan alanları tek bir kodda belirtebilen şekil ise benim için daha iyi olur. Bu da işimi sonuçta görüyor ama bilgi bilgidir.

Desteğiniz için çok teşekkür ederim. sağlıklı günler dilerim.



  Alıntı
Bu mesajı beğenenler:
#5
Sayın dsezgin,

hızlı cevabınız için çok teşekkür ederim. Sizin verdiğiniz prosedürleri de aynı formdaki başka bir butonun altına yazdım. Ancak sırası ile aşağıda eklediğim resimlerdeki hataları verdi. İlk hata mesajını doğru verdi. Tamam'ı tıklayınca diğer boş alanı kontrol etmedi ve butonun kendi prosedürlerini uygulamaya geçti. Zaten içerisinde "Sw = DEGER(1)" hatası verdiği prosedürleri de daha önce sizin yardımınızla tamamlamıştım.


Eklenti Dosyaları
.png   hata1.png (Boyut: 137,37 KB / İndirilme: 10)
.png   Hata2.png (Boyut: 130,08 KB / İndirilme: 9)
.png   Hata3.png (Boyut: 312,38 KB / İndirilme: 9)



  Alıntı
Bu mesajı beğenenler:
#6
Mesaj 3'u degistirdim.

Dugme 22 call satirini asagidaki gibi degistirin.

Visual Basic
  1. Private Sub Komut22_Click()
  2. If BosKontrol = -1 Then exit sub
  3. ...
  4. ...
  5. end sub





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  access çıkışta mesaj verdirmek aydın3838 8 3.423 14-04-2021, 23:38
Son Mesaj: kamil_55
  Alan Ve Dal Seçmek sefersanli 2 73 05-04-2021, 09:04
Son Mesaj: sefersanli
  [SORGU] Sorgu Veya Form Da Alan Değerlerini Getirebilmek mart02 15 248 31-03-2021, 21:55
Son Mesaj: mart02
  [FORM] arama kutusuna tıklandığında BOZOSO 22 5.263 31-03-2021, 14:18
Son Mesaj: kamil_55
  [VBA] Sql Be Access Fe Iken Net Bağlantısı Yok Ise özel Mesaj Ile Uygulamayı Kapatmak schecter 1 97 09-03-2021, 16:31
Son Mesaj: dsezgin
  [VBA] Açılır Kutularda Mevcudun Dışında Bir Değer Girilmesi Durumunda özel Mesaj Verdirmek schecter 2 104 09-03-2021, 07:47
Son Mesaj: schecter
  [FORM] Bölünmüş Formda Imlecin Veri Sayfasında Spesifik Bir Alan Içerisinde Takılı Kalması schecter 3 131 25-02-2021, 12:40
Son Mesaj: onur_can
  [SORGU] Dört Tablodan Liste kutusuna veri çağırma ve Yürüyen bakiye takip sistemi the.bykus 3 1.740 18-02-2021, 16:14
Son Mesaj: Lidervet

Foruma Git:


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