Skip to main content

AccessTr.neT


access yazılan kodun satıra sığımaması

access yazılan kodun satıra sığımaması

Çözüldü #1
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.!
.rar Database3.rar (Dosya Boyutu: 53,04 KB | İndirme Sayısı: 18)
Son Düzenleme: 22/09/2011, 10:44, Düzenleyen: mehmetb84.
Cevapla
Çözüldü #2
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
Cevapla
Çözüldü #3
_ 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.
Son Düzenleme: 22/09/2011, 10:43, Düzenleyen: mehmetb84.
Cevapla
Çözüldü #4
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.
Cevapla
Çözüldü #5
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;")
Son Düzenleme: 23/09/2011, 11:10, Düzenleyen: mehmetb84.
Cevapla
Çözüldü #6
(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.


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task