Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/09/2011 15:09
Konu Sahibi
mehmetb84
Yorumlar
8
Okunma
2556
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mehmetb84

Gümüş Üye
Kullanici Avatari
Gümüş Üye
M.... B....
465
29/12/2010
0
Denizli
Ofis 2013 64 Bit
18/09/2017,12:21
Çözüldü 
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.!


Ek Dosyalar
.rar   Database3.rar (Dosya Boyutu: 53,04 KB / İndirme Sayısı: 18)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.870
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,05:43
Çözüldü 
kodu aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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


Cevapla

mehmetb84

Gümüş Üye
Kullanici Avatari
Gümüş Üye
M.... B....
465
29/12/2010
0
Denizli
Ofis 2013 64 Bit
18/09/2017,12:21
Çözüldü 
_ 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.


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.870
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,05:43
Çözüldü 
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

Visual Basic Code
Select Case Çerçeve43

yazmışsınız.

Visual Basic Code
Select Case Çerçeve109

olarak değiştirin.

2. olarak; benim 2. mesajda gönderdiğim koddaki case 2 koduna bakacak olursanız

Visual Basic Code
((t_hambezgönderilen.giden_geldigiyer)<>'" & hareket & "')

kodunu göreceksiniz, ama siz case 2'ye

Visual Basic Code
((t_hambezgönderilen.giden_geldigiyer)='" & hareket & "')

kodunu eklemişsiniz.


Cevapla

mehmetb84

Gümüş Üye
Kullanici Avatari
Gümüş Üye
M.... B....
465
29/12/2010
0
Denizli
Ofis 2013 64 Bit
18/09/2017,12:21
Çözüldü 
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;")


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.870
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,05:43
Çözüldü 
(22/09/2011, 10:37)mehmetb84 Adlı Kullanıcıdan Alıntı: _ koyuyoruz kodun sonuna anladım......


kodun sonuna _ koymuyoruz,

SQL Code
"SELECT Tablo1.Kimlik, Tablo1.Alan1, Tablo1.Alan2, Tablo1.Alan3 FROM Tablo1 WHERE (((Tablo1.Kimlik)=1))"


kodunu

SQL Code
"SELECT Tablo1.Kimlik, Tablo1.Alan1,"& _
" Tablo1.Alan2, Tablo1.Alan3 FROM Tablo1"& _
" WHERE (((Tablo1.Kimlik)=1))"


şeklinde yazıyoruz.



Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Access Te Alt Satıra Geçemiyorum sancho16 3 262 29/05/2017, 11:42 atoz112
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 12 1.007 26/05/2017, 17:17 ozanakkaya
Çözüldü Access 2003 De Yapılan Dosyanın Access 2010 Da Çalıştırılması Kullanıcı Güvenlik Prob keskin78 9 644 14/05/2017, 14:54 keskin78
Çözüldü Tabloda Seçili Satıra Ait Veriyi Güncelleme pelitt 14 856 13/05/2017, 12:22 atoz112
Çözüldü Wep Access Dosyasını Masaüstü Access Dosyasına Çevirme next 7 617 02/04/2017, 23:36 next

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.