Skip to main content

AccessTr.neT


Gruba Göre Form Çağırıp, Forma Ekleme

Gruba Göre Form Çağırıp, Forma Ekleme

#7
(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ı.
magmar, 02-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#8
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
Cevapla
#9
(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!
magmar, 02-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da