frmFaturaekle formunda btnEkle butonunda aşağıdaki kod strSQL1 satırında seçilen Faturacinsi olarak yazdığım ifade yerinde fatura cinslerinin her biri için ayrı ayrı if-end if döngüsüne yazdım.  Fakat çok uzun sürüyor.

strSQL1 = "SELECT * FROM tblFirmalar WHERE ((Faturacinsi)=seçilenfaturacinsi);"

Bunun yerine fatura cinsini aranan olarak tanımlayıp ve aşağıdaki gibi yazmayı denedim.

Dim aranan As String

aranan = Forms!frmFaturaekle!akFaturacinsi.Text

strSQL1 = "SELECT * FROM tblFirmalar WHERE ((Faturacinsi)=aranan);"

Fakat Aşağıdaki hata mesajınıı alıyorum.
"Run-time error '2185':
Denetim üzerinde odak olmadıkça bir denetimin bir özelliğine başvuramaz veya özelliği ayarlayamazsınız."
Yaptığım mümkün değil mi? Mümkünse nerde hata yapıyorum? Nasıl olmalı? Düzenleyebilirseniz çok memnun olacağım. Teşekkür ederim.