Çö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
59
Çö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
aeGNoR

aeGNoR

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
772
Çözümler
98
Aldığı beğeni
867
Excel Versiyonu
Office 2021 TR
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
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
59
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
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
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
59
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
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
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,168
Çözümler
496
Aldığı beğeni
3,908
Excel Versiyonu
Office 2021 TR
Hayırlı işler üstadım :)
Access dosyayıda ekleyin.
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,168
Çözümler
496
Aldığı beğeni
3,908
Excel Versiyonu
Office 2021 TR
Tabii koda I:S sütunları temizleme kodlarınıda ekleyin.
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,168
Çözümler
496
Aldığı beğeni
3,908
Excel Versiyonu
Office 2021 TR
Deneyemem ancak gece yada yarın denerim ama kıda bakarak yanlışları yazarım.
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,168
Çözümler
496
Aldığı beğeni
3,908
Excel Versiyonu
Office 2021 TR
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
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,168
Çözümler
496
Aldığı beğeni
3,908
Excel Versiyonu
Office 2021 TR
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
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,168
Çözümler
496
Aldığı beğeni
3,908
Excel Versiyonu
Office 2021 TR
Kısaca 7.mesajdakş dosyadaki koda sadece 8.mesajdaki işaretlediklerimi ekleyip deneyin.
& & arasındakini 14.mesajdaki alttani yazabilirsiniz.
 
Olumlu oy 0 Negatif oyla
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
59
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
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
E

erdem dağ

Bronz Üye
Kullanıcı Bilgileri
Katılım
25 Mar 2023
Mesajlar
59
Çözümler
1
Aldığı beğeni
11
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
abi on error resume next sildim tüm liste yani aktif pasif hepsi geldi. sadece pasif gelsin dedim olmadı abim :)
 
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)
Üst