Skip to main content

AccessTr.neT


Tüm İhtimalleri Kapsayan Veri Olup Olmaması Kontrolu

Tüm İhtimalleri Kapsayan Veri Olup Olmaması Kontrolu

Çözüldü #1
iyi günler evde kalan arkadaşlar
metin kutusu, combobox, listbox,  checkbox, optiongroup vb içine değer girilip kontrol edilmesi gereken ne varsa 
formdan ayrılırken veya current olayı gibi durumlarda bize uyarı vermesi için nasıl bir şey yazmalıyız
mesela yeni kayıt açtık iki adet optiongroup var
birisinde cinsiyet seçmemiz gerekecek bunun tag ını "zorunlu" dedik
diğerinde eğitim durumunu seçeceğiz bunun tag ını "optional" dedik
eğer "zorunlu" tag olanları seçmeden ilgili kaydı terk etmek istesek bize 
"seçim yapmadınız diye uyaracak 

Visual Basic Code
Dim ctl As Control
For Each ctl In Me.Form
    If ctl.ControlType = acOptionGroup Then
        If InStr(1, ctl.Tag, "zorunlu") <> 0 Then

        'seçim yapılmamış ise uyarı mesajı ver
        
        End if
    End If
Next ctl
Set ctl = Nothing
bunun gibi formda ne kadar kontrol varsa hepsini tarayıp boş geçersek bizi uyarmalı mesela textbox için 
Len(Me.txtbx1)<1  
isNull(Me.txtbx1)
Me.txtbx1= vbNullString
Empty
Blank
bu yazılanlar hepsi birbirini kapsar mı hangisini yazarsak tüm ihtimalleri içermiş olur
veya listboxtan seçim yapmamışız onun içinde kontol edip
Msgbox "listeden seçim yapmadınız" diye uyarmalı
veya label için Value kabul etmiyor onun için Caption olmalı
vs vs vs
nasıl bir fonksiyon yazmalıyız ki bir tane bile zorunlu taga sahip kontrol
 değer girilmeden farklı kayda geçilmesin

mesela 
If IsNull(Me.Metin5) Or Me.Metin5 = "" Then
bu metin kutusu için tüm boş olma ihtimallerini kapsar mı(empty falan filan)
@benbendedeilem
Son Düzenleme: 04/04/2020, 10:02, Düzenleyen: accessman.
Cevapla
#2
If ctl.ControlType = acOptionGroup Then
şeklindeki kodu karıştırmadan 

if isnull(ctr.value) or ctl.value="" then
msgbox ctl.name & " Alanı Boş Bırakılamaz"
end if

şeklinde kod eklenebilir. Formun güncelleştirme öncesinde olayına da kod eklenebilir.
Cevapla
#3
(06/04/2020 17:23)ozanakkaya Adlı Kullanıcıdan Alıntı: If ctl.ControlType = acOptionGroup Then
şeklindeki kodu karıştırmadan 

if isnull(ctr.value) or ctl.value="" then
msgbox ctl.name & " Alanı Boş Bırakılamaz"
end if

şeklinde kod eklenebilir. Formun güncelleştirme öncesinde olayına da kod eklenebilir.
bunun için sadece label i mi dışda tutacağız yoksa onun için de geçerli mi
@benbendedeilem
Cevapla
#4
Boş-Dolu kontrolünde Etiket denetlenmeyeceği için etiketin im özelliğini boş bırakacaksınız.
Cevapla
#5
teşekkürler sn. @ozanakkaya
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da