• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü acces sorgulama hakkında.

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
68
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
Değerli sayın ustalarım herkese iyi akşamlar.

Excel vba aşağıdaki kodlar ile accesden benzersiz en son tarihli personel no listesi çekiyorum buraya kadar tamam ancak yapmaya çalıştığım şu; excelde A1 hücresine Pasif yazdığımda accesde durum adlı kolonda geçen aktif pasiflerden sadece pasif olanların gelmesini sağlamak.
Bir türlü yapamadım, değerli desteklerinizi rica ederim sayın ustalarım :)


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çözüm
Refaz
Dosya ekte.

Gifte ekledim.Siz Dao ile yapmışsınız ama normalde artık Ado ile yapılıyor neyse çalışıyor.
Access sütun adlarını Tr karakter yani Ş gibileri kullanırsanız sıkıntı yaşayabilirsiniz yazayım istedim.


11.gif
Tarihe göre sırala Oylara göre sırala
Dosya ekte.

Gifte ekledim.Siz Dao ile yapmışsınız ama normalde artık Ado ile yapılıyor neyse çalışıyor.
Access sütun adlarını Tr karakter yani Ş gibileri kullanırsanız sıkıntı yaşayabilirsiniz yazayım istedim.


11.gif
 

Ekli dosyalar

  • Personel benzersiz liste çekilmesi.xlsm
    1.1 MB · Gösterim: 2
Olumlu oy 1 Negatif oyla
Çözüm
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

ilk bakışta sorun buradaymış gibi duruyor. Where şartında tarihin karşısına bir değer gelirken durumun karşısına true ya da false gelmemiş aktif pasif gibi bir değer gelmemiş.

durum adlı alan mantıksal true false değer döndürüyorsa "durum=true" ya da "durum=false" gibi atamalar yapmalısınız. eğer string olarak "aktif", "pasif" gibi değerler tutuyorsanız da durum='aktif' gibi değerler girmelisiniz.
 
Olumlu oy 0 Negatif oyla
Merhaba sayın aeGNor.
string atadım ve durum= string karşılığıda verdim ancak yine bişeyleri yapamadım :((((

aktif_pasif = Range("A1").Text
sorgu = " SELECT pdks.personel_no, pdks.ad, pdks.soyad, pdks.departman, pdks.evli_bekar,pdks.durumu, pdks.Forklift_ehliyeti,pdks.işe_giriş_tarihi,pdks.telefon_1,pdks.telefon_2,pdks.ücret" & _
" FROM (SELECT pdks.personel_no" & _
" FROM pdks" & _
" GROUP BY pdks.personel_no) as MxID INNER JOIN pdks ON MxID.personel_no = pdks.personel_no" & _
" WHERE (((pdks.işlem_kayıt_tarihi)=(SELECT MAX(işlem_kayıt_tarihi) FROM pdks AS T1 WHERE T1.personel_no=pdks.personel_no))) & durum" = aktif_pasif _
" ORDER BY pdks.personel_no;"
 
Olumlu oy 0 Negatif oyla
Refaz bey abim selamlar, saygılar ve sevgiler abim :)

Refaz bey abim: Daha önce verdiğin sorgulama kodları mükemmel şekilde işliyor çalışıyor abi, ellerine sağlık abim.
iş yerim genel ifade ile depo abi, elleçleme işçisiyim, personel azaltma oldu, sizler sayesinde yaptığım excel makrolar ile beni işten çıkartmadılar abi ve ekmek parası kazanıyorum sizler sayesinde. Bugün maaş alıp eve ekmek götürüyorsam siz ve excelçözüm üyerleri sayesinde refaz bey abi :)

Excelcözüm ailesine ve üyelerine ayrı ayrı herkese teşekkürlerimi iletirim.
Sağolun varolun hepiniz, çok desteğiniz oldu bana çok çok hemde :)
 

Ekli dosyalar

  • Personel benzersiz liste çekilmesi.xlsm
    1.1 MB · Gösterim: 2
Olumlu oy 0 Negatif oyla
Hayırlı işler üstadım :)
Access dosyayıda ekleyin.
 
Olumlu oy 0 Negatif oyla
Tabii koda I:S sütunları temizleme kodlarınıda ekleyin.
 
Olumlu oy 0 Negatif oyla
Deneyemem ancak gece yada yarın denerim ama kıda bakarak yanlışları yazarım.
 
Olumlu oy 0 Negatif oyla
Sheets("Erdem").select

Yanılmıyorsam dosyanızda yukardaki kod vardı onu silmişsiniz gerçi kod Erdem sayfasında çalışırsa sorun olmaz.
Ayrıca on error resume next kodun önüne tek tırnak koyun hatayı gösterir.
Ben dosyanızda denemiş ve veriler gelmişti pasifte 2 adet aktiftede 2 adet gelmişti.
 
Olumlu oy 0 Negatif oyla
Sheets("Erdem").select

Yanılmıyorsam dosyanızda yukardaki kod vardı onu silmişsiniz gerçi kod Erdem sayfasında çalışırsa sorun olmaz.
Ayrıca on error resume next kodun önüne tek tırnak koyun hatayı gösterir.
Ben dosyanızda denemiş ve veriler gelmişti pasifte 2 adet aktiftede 2 adet gelmişti.
 
Olumlu oy 0 Negatif oyla
Kısaca 7.mesajdakş dosyadaki koda sadece 8.mesajdaki işaretlediklerimi ekleyip deneyin.
& & arasındakini 14.mesajdaki alttani yazabilirsiniz.
 
Olumlu oy 0 Negatif oyla
Abi denedim galiba ben yapamadım :)
ricam müsait olduğunuzda kıymetli desteğiniz refaz bey abi :)


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst