[FORM] Dolu Metin Kutusu Uyarısı

m_demir · **Kayıt Tarihi:** 22.12.2017

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ı.

dsezgin · 05-07-2018, 01:57

Sn m_demir;
Bir Alan kontrolu icin

Visual Basic
Private Sub Form_Current()
If me.MetinKutusu1 = "" or isnull(me.MetinKutusu1) Then
    '......
   MsgBox " MetinKutusu1 bos"
    'Kodlar
    '.....
Else
    MsgBox " MetinKutusu1 dolu "
End If
Exit Sub

Birden fazla Alan kontrolu icin
Kontrol edilmesi isediginiz kutularin Im(Tag) bolumune BAK yazin

Visual Basic
Private Sub Form_Current()
Dim Kutu as control
for each Kutu in Me.controls
      if Kutu.tag="BAK" then
         if me.control(Kutu.name)="" or isnull(me.control(Kutu.name)) then
             me.control(Kutu.name).setfocus
             msgbox Kutu.name & " nesnesi bos"
             exit for
        end if
     end if
next Kutu
end sub

m_demir · **Kayıt Tarihi:** 22.12.2017

Ç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.

dsezgin · 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.

m_demir · **Kayıt Tarihi:** 22.12.2017

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.

dsezgin · 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.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] metin kutusu kaydırma	onkay	5	1.916	27-12-2023, 13:24 Son Mesaj: dsezgin
	Metin Kutusu Adı Değiştirme Hk.	snapper	9	229	08-11-2023, 01:12 Son Mesaj: dsezgin
	[TABLO] çoklu Birleşik Giriş Kutusu	RASİMPEH	2	144	19-09-2023, 04:53 Son Mesaj: RASİMPEH
	Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz?	adnnfrm	2	205	06-08-2023, 03:51 Son Mesaj: adnnfrm
	Metin Kutusu Boş Sa Diğer Metin Kutusundan Değer Alması	özgülapt	4	261	29-05-2023, 18:01 Son Mesaj: feraz
	Formda Onay Kutusu Ile Veri Aktarma	anno	7	382	24-11-2022, 23:02 Son Mesaj: onur_can
	Docmd.gotorecord,,newrec Sonrası Otomatik Dolu Metin Kutusu	meceka	6	282	10-11-2022, 15:45 Son Mesaj: meceka
	[FORM] Birleşik Giriş Kutusu	EminA	2	223	13-10-2022, 10:32 Son Mesaj: EminA

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL