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
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)