AccessTr.neT

Dim Aranan As Integer
Aranan = Dlookup ("ParselID", "Tbl_Parsel", "SeflikID=" & Me.CbxSeflik And MahalleID = "&Me.CbxMahalle")

Kodu çalıştırdığımda Run Time error 13 hatası alıyorum. Hata ayıkladığımda yani kodun üstü sarı oluyor. Üzerinde gezindiğimde CbxMahalle, CbxSeflik, Parsel ID değerlerinin doğru oldupunu görüyorum. Yani ParselID değerinin ilgili tabloda 3 olması gerekirken 3 oluyor. Yani kriterlere göre girdiğim kaydın bumarası doğru gözüküyor. ancak sorun su ki bu değeri Aranan isimli değişkene atamıyor. Arama isimli değişkenin değeri 0 gözüküyor ve hata veriyor. 1 aydır bununla uğraşıyorum işin içinden çıkamadım.Yardımcı olursanız sevinirim.

Aranan = Dlookup  ("ParselID", "Tbl_Parsel", "SeflikID=" & Me.CbxSeflik & " And MahalleID = " & Me.CbxMahalle )

CbxMahalle degeri sayısalsa

Öncelikle cevap veriğiniz için çok teşekkür ederim. Kod sorunsuz çalıştı. Yalnız iki kriteri üç tane yaptım. İlk ikisi sayısal üçüncüsü metin (ParselNo) bir ifadedir.
Çalıştırmak istedim yine hata verdi.(Compile error, Syntax error). Yardımcı olursanız çok sevinirim. Bu sorun çözülürse sonuç değerini form üzerindeki metin kutularına veya comboboxlara yazdıracağım. Yani değişkenin (aranan) yerine metin kutusu ismi veya combobox adını yazacağım.

aranan = Dlookup ("ParselID", "Tbl_Parsel", "SeflikID=" & Me.CbxSeflik & " And MahalleID = " & Me.CbxMahalle And ParselNo='"&Me.TxtParsel&"'")

Dlokkupin temel mantığı  alan, tablo, kriter şeklindedir ve hepsi metin türündedir
sizin  kodunuzdaki temel hata, verilerin alındığı metin kutularının değeri yerine adını metin içine almanizdir.
aranan = Dlookup ("ParselID", "Tbl_Parsel", "SeflikID=" & Me.CbxSeflik & " And MahalleID = " & Me.CbxMahalle And ParselNo='"&Me.TxtParsel&"'") kırmızı renkli Me.CbxMahalle ifadesi acilir kutuyu gösteriyor bu nedenle çift tırnağın dışında olmalı
Kodu aşağıdaki gibi düzenleyip dener misiniz?

aranan = Dlookup  ("ParselID", "Tbl_Parsel", "SeflikID=" & Me.CbxSeflik & " And MahalleID = " & Me.CbxMahalle & "  And ParselNo='" & Me.TxtParsel & "'")

Kod çalıştı. Size sonsuz teşekkür ederim.Emeğinize sağlık...

Rica ederim
İyi çalışmalar