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 & "'")