MErhaba arkadaşlar,
yöndendirmelerinizle daha önce çevçeveyle süzme işlemini ve arama yaptığım liste kutusunu süzme işlemini başka bir veritabanı için kullanmıştım.Bu veritabanıma bunu uyarlamak istedim fakat tablo ve alan isimleri dha auzun olduğu için kod satıra sığımadı.Ve
Access satırın bittiği yerde kodu otomatik olarak kapatıyor 2. satırda kalan kodu başka bir kod olarak algılıyor.
Yardımcı olabilirseniz sevinirim.
Tşkler
veritabanı son soruya göre güncellendi.!
kodu aşağıdaki ile değiştir.
Private Sub Çerçeve43_AfterUpdate()
hareket = "LARMADEPO"
Select Case Çerçeve43
Case 1
Me.Listekutusu.RowSource = "SELECT t_hambezgönderilen.G_Anahtar, t_hambezgönderilen.giden_ürünadı, t_hambezgönderilen.giden_hambezmt, t_hambezgönderilen.giden_irsaliyeno, t_hambezgönderilen.giden_faturano, t_hambezgönderilen.giden_beztarihi, t_hambezgönderilen.giden_geldigiyer, t_hambezgönderilen.giden_sevkyeri, t_hambezgönderilen.giden_not, t_hambezgönderilen.giden_beztipi, t_hambezgönderilen.giden_kimlik," & _
"[giden_hambezmt] & '*' & [giden_irsaliyeno] & '*' & [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*' & [giden_beztipi] & '*' & [giden_kimlik] & '*' & [giden_beztarihi] & '*' & [giden_faturano] AS Arama FROM t_hambezgönderilen WHERE (((t_hambezgönderilen.giden_geldigiyer)='" & hareket & "') AND (([hambezsipno] & '*' & [giden_hambezmt] & '*' & [giden_irsaliyeno] & '*'" & _
"& [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*'&[giden_beztipi]&'*' & [giden_beztarihi] & '*' & [giden_faturano]) Like '*' & [Formlar]![t_hambezgönderilen]![Metin100] & '*')) ORDER BY t_hambezgönderilen.giden_beztarihi;"
Case 2
Me.Listekutusu.RowSource = "SELECT t_hambezgönderilen.G_Anahtar, t_hambezgönderilen.giden_ürünadı, t_hambezgönderilen.giden_hambezmt, t_hambezgönderilen.giden_irsaliyeno, t_hambezgönderilen.giden_faturano, t_hambezgönderilen.giden_beztarihi, t_hambezgönderilen.giden_geldigiyer, t_hambezgönderilen.giden_sevkyeri, t_hambezgönderilen.giden_not, t_hambezgönderilen.giden_beztipi, t_hambezgönderilen.giden_kimlik," & _
"[giden_hambezmt] & '*' & [giden_irsaliyeno] & '*' & [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*' & [giden_beztipi] & '*' & [giden_kimlik] & '*' & [giden_beztarihi] & '*' & [giden_faturano] AS Arama FROM t_hambezgönderilen WHERE (((t_hambezgönderilen.giden_geldigiyer)<>'" & hareket & "') AND (([hambezsipno] & '*' & [giden_hambezmt] & '*' & [giden_irsaliyeno] & '*'" & _
"& [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*'&[giden_beztipi]&'*' & [giden_beztarihi] & '*' & [giden_faturano]) Like '*' & [Formlar]![t_hambezgönderilen]![Metin100] & '*')) ORDER BY t_hambezgönderilen.giden_beztarihi;"
End Select
Me.Listekutusu.Requery
End Sub
_ koyuyoruz kodun sonuna anladım.Fakat yeni bir sorunum var sanırım kodum hatalı, çünkü hangi seçeneği seçersem seçeğim koşullarımı sağlamıyor.Bir kontrol edebilir misiniz?
dosyayı güncelledim ,son hali ektedir.
1. mesaja eklediğiniz ilk örnek ile şu anki örnek farklı
Seçenek grubunu değiştirmişsiniz. Son örneğinizde seçenek grubunun adı "Çerçeve109", siz kodda
Select Case Çerçeve43
yazmışsınız.
Select Case Çerçeve109
olarak değiştirin.
2. olarak; benim 2. mesajda gönderdiğim koddaki case 2 koduna bakacak olursanız
((t_hambezgönderilen.giden_geldigiyer)<>'" & hareket & "')
kodunu göreceksiniz, ama siz case 2'ye
((t_hambezgönderilen.giden_geldigiyer)='" & hareket & "')
kodunu eklemişsiniz.
evet çerçeve ismi gözümden kaçmış,sıkıntı orda ,diğer kodları değiştirmiştim evet doğru onlar istediğim gibi son hali.Çok tşkler çalıştı şimdi,emeğinize aklınıza sağlık. Kısa birşey daha sorucam, caselerin sonunda geçen sıralama kodunu azalan veya artan olarak nasıl değiştirebilirim ,yani vb kodu nedir o sıralamayı uygulamanın? ( ORDER BY t_hambezgönderilen.giden_beztarihi;")
(22/09/2011, 10:37)mehmetb84 yazdı: _ koyuyoruz kodun sonuna anladım......
kodun sonuna _ koymuyoruz,
"SELECT Tablo1.Kimlik, Tablo1.Alan1, Tablo1.Alan2, Tablo1.Alan3 FROM Tablo1 WHERE (((Tablo1.Kimlik)=1))"
kodunu
"SELECT Tablo1.Kimlik, Tablo1.Alan1,"& _
" Tablo1.Alan2, Tablo1.Alan3 FROM Tablo1"& _
" WHERE (((Tablo1.Kimlik)=1))"
şeklinde yazıyoruz.