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

[erdem dağ]

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


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[aeGNoR]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

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.

 

[erdem dağ]

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;"

 

[Refaz]

T1.personel_no=pdks.personel_no))) & durum" = aktif_pasif

Böyle olamaz.Dosyanızı eklerseniz boşa kürek sallanmamış olunur.

 

[erdem dağ]

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

 

[Refaz]

Hayırlı işler üstadım
Access dosyayıda ekleyin.

 

[erdem dağ]

Hayırlı işler üstadım
Access dosyayıda ekleyin.

Ekledim abim

 

[Refaz]

Böyle yapın.

 

[Refaz]

Tabii koda I:S sütunları temizleme kodlarınıda ekleyin.

 

[erdem dağ]

Refaz bey abi denedim olmadı ricam bi bakabilir misiniz size zahmet abi.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Deneyemem ancak gece yada yarın denerim ama kıda bakarak yanlışları yazarım.

 

[Refaz]

Sheets("erdem").[a1

erdemdeki baş harfi büyük E yapın.

 

[Refaz]

Range("I:S").ClearContents

Alttaki olanı silin.

Range("ı:s").Select
Selection.ClearContents

 

[Refaz]

Sheets("erdem").[a1]

Yukardaki yer yetine alttaki ile değiştirin tanımlama yapılmış ama ben görmemişim

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

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.

 

[Refaz]

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.

 

[Refaz]

Kısaca 7.mesajdakş dosyadaki koda sadece 8.mesajdaki işaretlediklerimi ekleyip deneyin.
& & arasındakini 14.mesajdaki alttani yazabilirsiniz.

 

[erdem dağ]

Abi denedim galiba ben yapamadım
ricam müsait olduğunuzda kıymetli desteğiniz refaz bey abi


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

On Error Resume Next

Abey yukardakini bir silin nerde hata verecek?

 

[erdem dağ]

abi on error resume next sildim tüm liste yani aktif pasif hepsi geldi. sadece pasif gelsin dedim olmadı abim