[VBA] Mesaj Kutusuna Alan Ismi Yazmak

M_Kemal_Askeri · **Kayıt Tarihi:** 17.05.2012

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

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

alperalper · **Kayıt Tarihi:** 06.11.2013

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.

dsezgin · 02-04-2021, 00:31

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
Public Function BosKontrol() As Variant
Dim Kontrol As Control
For Each Kontrol In Me.Controls
If Kontrol.Tag = "BosDolu" Then
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
End If
Next Kontrol
End Function

M_Kemal_Askeri · 02-04-2021, 00:45

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.

M_Kemal_Askeri · 02-04-2021, 01:06

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.

dsezgin · 02-04-2021, 23:40

Mesaj 3'u degistirdim.

Dugme 22 call satirini asagidaki gibi degistirin.

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

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

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL