+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dlookup (/konu-dlookup--89540.html)
Dlookup - TC Erkan Kurt - 17/03/2022
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.
RE: Dlookup - berduş - 17/03/2022
Aranan = Dlookup ("ParselID", "Tbl_Parsel", "SeflikID=" & Me.CbxSeflik & " And MahalleID = " & Me.CbxMahalle )RE: Dlookup - TC Erkan Kurt - 17/03/2022
Ö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&"'")
RE: Dlookup - berduş - 17/03/2022
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 & "'")RE: Dlookup - TC Erkan Kurt - 17/03/2022
Kod çalıştı. Size sonsuz teşekkür ederim.Emeğinize sağlık...
RE: Dlookup - berduş - 17/03/2022
Rica ederim
İyi çalışmalar