Bence tam Access & ADO luk bir dosya.Akşama kadar çözüm bulamazsanız ancak o zaman kapsamlıca bakabilirim.
Kolaylıklar dilerim.
hocam tüm liste göster deyince ordan seçince hata veriyor lb = ListBox1.List(ListBox1.ListIndex) burda ama listobxdan seçince siliyorTekrar merhaba.
Mevcut kodlara şöyle bir göz attım.
Neleri değiştirdiğimden emin olmadığım için tüm kodları vereyim.
Userform kodlarının tamamını silip, yerine aşağıdakileri yapıştırarak denemeler yapın.
Tek farklı durum; Listview'den seçilen bir ürün, Listboxtaki kategorinin ilk elemanı ise,
soldaki Listbox'ta yer alan sıralama değişiyor ve bu da UserForm_Initalize kodu devreye girdiği için kaçınılmaz.
Tabi, silme öncesi seçili olan kategori yine seçili hale geliyor ama sadece Listbox1'deki sıralama değişmiş oluyor.
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (208 satır)
access ve ado için çok acemiyimBence tam Access & ADO luk bir dosya.
Teşekkür ederim ama sizin kodlar ado ile sanırım olmayabilir kodları yazayım buraya istersenizt1 = CLng(CDate([d2])):
t2 = CLng(CDate([e2]))
sorgu = "select [PN], [TNZM], "
sorgu = sorgu & "sum([BP]) "
sorgu = sorgu & "from [DATA$]"
sorgu = sorgu & "where CLng(cdate(TNZM)) >=" & t1 & " and CLng(cdate(TNZM)) <=" & t2 & " "
sorgu = sorgu & "group by [PN]"
Yukarıdaki kod ile 2 tarih arası sorgulama yapabilirsiniz.
Kendi dosyanıza uyarlayınız.
Günlük dosya indirme limitim 1 olduğu için dosyanızı indiremedim.
Teşekkür ederim ama sizin kodlar ado ile sanırım olmayabilir kodları yazayım buraya isterseniz
Görüntülemek için giriş yapmanız gerekmektedir.
(72 satır)
@Ömer BARAN hocam bu dosyadaki kodlara daha çok hakimim ben ve yedek parça dosyamı bunun üzerinden yapacam buna bi 2 tarih arası ekleyebilirmisiniz müsait oluncayedek parça dosyama şu ekteki arama tekniği olan daha basit anlaşılır olan dosya üzerinden gitmek istiyorum sizden ricam şimdi ekleyeceğim dosyaya 2 tarih arası textbox ekledim onları arama dahil edebilirmiyiz lütfen
24 bolu mesajımda bi dosya eklemiştim ondali kodlara daha çok hakimim onun üzerinden devam etmek istiyorum o dosyada var tarih sütünü felanBelgenizde TARİH sütunu yok ki iki tarih arası diye bir işlem olsun.
Tarih sütunları ekleyecekseniz, sonradan konumunu (sütununu) değiştirmeyecek şekilde
sütun eklemesi/değişikliği neyse onu ve UserForm üzerine kriter tarihlerin yazılacağı nesne eklemesini de
yaptıktan sonra belgenizin son halini eklerseniz iyi olur.
Zaten bendeki dosyalar biraz birbirine girmiş durumda idi.
Böylece son hali üzerinden devam edilebilir. Rastladığınız hata filan varsa onu da net belirtirsiniz.
.
Alıntıladığım mesaj ekindeki belgede düzenleme yaptım.hocam tüm liste göster deyince ordan seçince hata veriyor lb = ListBox1.List(ListBox1.ListIndex) burda ama listobxdan seçince siliyor
günceller ile değiştirince seçince bir alttaki kayıtı değiştiriyor seçilen aynı kalıyor bir seferde en üst süton başlığı değişti
Teşekkür ederim Ömer hocamAlıntıladığım mesaj ekindeki belgede düzenleme yaptım.
Bu mesaja eklediğim dosyayı her türle (Listview de tümü görünüyorken, solda Listbox üzerinden seçim yapılmışken),
DEĞİŞTİR/SİL işlemlerini kontrol ediniz.
Son mesajınızdaki belgeyle, konu açılış mesajındaki ve konunun başından beri üzerinde çalışılan
belge/userform vs arasında bir bağlantı yok. Bu nedenle, konu bütünlüğü bakımından
son cevabınız ekindeki belgede yapmayı düşündüğünüz işlemle ilgili olarak yeni bir konu açansanız iyi olur.
.
Bu yüzden sadece web sitemizin çalışması yönelik temel çerezleri ve deneyiminizi geliştirmek için isteğe bağlı çerezleri kullanıyoruz.
Çerezler hakkında daha fazla bilgi görüntülemek ve tercihlerinizi yapılandırmak için tıklayın