+- 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ığı: Openargs İle Form Açıp Filtreleme (/konu-openargs-ile-form-acip-filtreleme.html)
Openargs İle Form Açıp Filtreleme - magmar - 14/05/2019
Arkadaşlar merhaba
ekte göreceğiniz formda frmParametreler formuyla bir çeşit hem arama hem seçim yapmak istiyorum. frmSiparis formunun CariID kısmında büyütec ile frmParametreler formunu açıyorum. frmParametreler formunu da yüklendiginde kısmını OPENARGS ile açıp kaynagını kendim belirleyebiliyorum. buraya kadar hersey istediğim gibi ilerliyor. ayrıca listekutusuna cift tıkladıgımda istediğim alana bu bilgileri de çekebiliyorum.
ama üst tarafta textboxta bu açılanliste kutusunda arama yapmaya çalıştıgımda, hem listboxun kaynagındaki kaydı değiştiriyor, hem de arama yapmıyor.
sonuç olarak, böyle yöntem uygulanabilir mi? tek form oluşturup, her istediğim yerde kaynagını farklı secip filtreleme yapmak?
umarım derdimi anlatabilmişimdir
Cvp: Openargs İle Form Açıp Filtreleme - berduş - 14/05/2019
sipariş formuna "CBCari" bir açılır kutu ekleyip
değiştiğinde olayına aşağıdaki kodu yazıp dener misiniz
Private Sub CBCari_Change()
Dim CBSQL As String
Me.CBCari.RowSource = ""
CBSQL = " SELECT tblCari.CariUnvani " & _
" FROM tblCari " & _
" WHERE (((tblCari.CariUnvani) Like '*" & CBCari.Text & "*')) " & _
" ORDER BY tblCari.CariUnvani;"
Me.CBCari.RowSource = CBSQL
End Sub Cvp: Openargs İle Form Açıp Filtreleme - magmar - 14/05/2019
(14/05/2019, 15:36)haliliyas yazdı: sipariş formuna "CBCari" bir açılır kutu ekleyip
değiştiğinde olayına aşağıdaki kodu yazıp dener misiniz
çıkıldığında olayına parametre formundaki gibi bir kod tanılamanız yterli olur sanırımPrivate Sub CBCari_Change()
Dim CBSQL As String
Me.CBCari.RowSource = ""
CBSQL = " SELECT tblCari.CariUnvani " & _
" FROM tblCari " & _
" WHERE (((tblCari.CariUnvani) Like '*" & CBCari.Text & "*')) " & _
" ORDER BY tblCari.CariUnvani;"
Me.CBCari.RowSource = CBSQL
End Sub
halil bey selam
dediğiniz şekilde yaptım ama olmadı sanırım. örnekle gönderebilir misiniz? daha rahat anlarım sanırım
)
Cvp: Openargs İle Form Açıp Filtreleme - berduş - 14/05/2019
dilerim işinize yarar
diğer ayarlamaları halledersiniz)
Cvp: Openargs İle Form Açıp Filtreleme - magmar - 14/05/2019
(14/05/2019, 16:50)haliliyas yazdı: dilerim işinize yarar
diğer ayarlamaları halledersiniz)
çok teşekkürler. elinize sağlık