Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/05/2019 00:24
Konu Sahibi
magmar
Yorumlar
8
Okunma
380
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
magmar

magmar

Üye
9989
 Belirtilmemiş
 7
 49
 02/10/2009
0
 Kahramanmaraş
 
 Ofis 2003
 17/07/2019,14:14
(21/05/2019 12:09)haliliyas Adlı Kullanıcıdan Alıntı: 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.

halily

halily

Uzman
65596
ha....
 26
 1.283
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,20:23
kusura bakmayın "requery" eklemeyi unutmuşum
"frmCariAra" formunun yüklenirken olayı

Visual Basic Code
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



...........
magmar

magmar

Üye
9989
 Belirtilmemiş
 7
 49
 02/10/2009
0
 Kahramanmaraş
 
 Ofis 2003
 17/07/2019,14:14
(21/05/2019 12:17)haliliyas Adlı Kullanıcıdan Alıntı: kusura bakmayın "requery" eklemeyi unutmuşum
"frmCariAra" formunun yüklenirken olayı

Visual Basic Code
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.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Tablodan Forma Aktarma atamsinatamsin 19 479 09/07/2019, 18:24
Son Yorum: halily
Çözüldü Form Ortalama Ekran Çözünürlüğüne Göre cozum 3 132 31/05/2019, 17:31
Son Yorum: ozanakkaya
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 176 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Girilen Sipariş Miktarına Göre Makinanın Üretm Doluluğu gimbo25 7 328 14/05/2019, 14:10
Son Yorum: halily
Çözüldü Stok Bakiye Depoya Göre Seçilerek Arama ahmetbal 1 253 06/05/2019, 21:26
Son Yorum: C*e*l*o*y*c*e

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.