AccessTr.neT

(21/05/2019, 12:09)haliliyas yazdı: [ -> ]afedersiniz yanlış anlamışım. "DoCmd.OpenForm "frmsiparis", , , "[CariIDA]=" & lstCariAra" kodu "cariGrubu" kısmı filtrelemek için değil.
bu kod arama formunda seçtiğiniz kaydı sipariş formunda açmak için.
"cariGrubu"  filtrelemek için sorguyu değiştirip grup filtresini, arama formuna eklediğim, "TxtId" metin kutusu sağlıyor.
dikkat ederseniz "sipariş" yada "hambez" formları "arama" formunu açarken aşağıdaki kodu kullanıyor
"DoCmd.OpenForm "frmCariAra", , , , , ,  1 yada 10". frmCariAra açılırken eğer 1 gelirse TxtId=1, 10 gelirse TxtId=10 yapıyor
liste kutusunun sorgu kaynağına  da kriter olarak   "TxtId" eklendiğinden  filtreleme ona göre yapılıyor.
sormanızın sebebi hatalı çalışması mı?

teşekkürler. Evet, her iki formda da CariAra yı çalıştırdığımda tüm Carigruplarını gösteriyor olması. yani ben hambezsiparis formunda cariarayı çalıştırdığımda sadece grubu dokumacı olanları çağırmak istedim. aynı şekilde sipariste de müteri olanları.

kusura bakmayın "requery" eklemeyi unutmuşum
"frmCariAra" formunun yüklenirken olayı

Private Sub Form_Load()

Dim txtSql As String

If Not IsNull(OpenArgs) Then Me.TxtId = OpenArgs

Me.lstCariAra.Requery '<== Bu satırı eklememişim 

End Sub

(21/05/2019, 12:17)haliliyas yazdı: [ -> ]kusura bakmayın "requery" eklemeyi unutmuşum
"frmCariAra" formunun yüklenirken olayı

Private Sub Form_Load()

Dim txtSql As String

If Not IsNull(OpenArgs) Then Me.TxtId = OpenArgs

Me.lstCariAra.Requery '<== Bu satırı eklememişim 

End Sub

harikasınız. teşekkürler!