AccessTr.neT

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.

.text yerine .value yazıp dener misiniz?
accesste .text sadece nesneye odaklanmışsanız çalışır diye biliyorum

---

ayrıca strSQL1 nin olduğu satır da aşağıdaki gibi yeniden düzenlenmeli

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

Value yu daha önceden denemiştim. Olmamıştı. Siz söyleyince tekrar denedim. Yine olmadı.
Sonradan gönderdiğiniz ;
strSQL1 = "SELECT * FROM tblFirmalar WHERE ((Faturacinsi)='" & aranan & "');"
ifadesi sorunumu çözdü.
Şu noktalamaların hangisinin ne zaman kullanılacağını ne zaman öğrenirim bilmiyorum.
Sorunumun cevabı tamamlandı.
İlginiz için çok teşekkür ederim.

(11/12/2020, 23:50)fenerli6774 yazdı: [ -> ]strSQL1 = "SELECT * FROM tblFirmalar WHERE ((Faturacinsi)='" & aranan & "');"

aranan ifadesi tabloda yer alan her hangi bir alana ait bir değer yada modülde tanımlanmış bir fonksiyon değil, mevcut fonksiyonda tanımlanmış bir değer o nedenle Sql komut seti olarak tanımlanamaz yani Sql kodlarını tanımlayan çift tırnak içine alınamaz

Teşekkürler.

Rica ederim)
İyi çalışmalar