Koddaki hata

[asena1313]

If (ssk_emekli_bag = 0 And yesil = 0 And ozel_sigorta = 0 And karsilanmiyor = 0 And diger_sigorta = "") Then
MsgBox "Sağlık Boş Geçmeyin", 48, "U Y A R I"
Exit Sub
Else
End If


Alanları kontrol edeceğim eğer veri girilmemişse hata mesajı verecek

kodda sorun var işlem yapmıyor (diger_sigorta = "") burayı silince normal

çalışıyor sorun ne olabilir acaba ???

birde arama yapmam gerek mesela adı alanında ada göre sihirbazdan

yaptığımda sayıya göre yapıyor ben ada göre yapmak istiyorum

sql yazacaktım ama nereye yazacağımı bilmiyorum yardımcı olursanız sevinirim

 

[alpi]

Hatnın kaynağı değişken tipinden kaynaklanıyor.
diger_sigorta = ""
bu alan boşken ="" değeri almaz vbNull değeri alır yani şöyle yazılmalı

diger_sigorta = vbNull

Ancak burada benimde çözemediğim bir mesele var diğer yazılımlarda diger_sigorta = vbNull şeklinde bir kontrol yapılabiliyor ancak nedense VBA da bu kontrol yapılamıyor. Yani önerdiğim şekilde yaptığınızda muhtemelen compile error şeklinde bir hata iletisi alacaksınız.

Diyeceksiniz ki madem hata vereceğini biliyosun neden bunu öneriyosun;
Yukarıda da dediğim gibi diğer yazılımlarda (VB .NET yada Delphi) bu kod çalışıyor. Ancak nedense VBA da çalışmıyor belki bende bunun nedenini öğrenirim ümidiyle söylüyorum.

 

[modalı]

Sayın asena1313

Bir de böyle deneyin:

If (ssk_emekli_bag = 0 And yesil = 0 And ozel_sigorta = 0 And karsilanmiyor = 0 And IsNull(diger_sigorta)) Then

İyi çalışmalar

 

[asena1313]

Teşekkür

Sayın modalı çok teşekkür ederim

birde arama nasıl yapabilirim yada access te sql nasıl kullanılır yardımcı olursanız sevinirim