A.S.C Filtre, Grafik ve Raporlama Eklentisi

[MAKRO] excel userform listbox filtreleme ve kaydetme
#1

Merhaba,

İnanın deli gibi aradım indirip indirip duruyorum ama bir türlü çözemedim. İstediğim şeyin ne denli zor/kolay olduğunu bilemiyorum. Forumda varsa beni affedin lütfen

Aradım taradım ama sorunumla ilgili bir çözüm bulamadım. Excel 2016 kullanıyorum bir userformum var.
Userformda ilk olarak combobox’a göre newitem.accdb içindeki Add tablosundan Afs kolonuna göre Listbox1 e döküyor

Listbox dökülmüş durumdayken OK tuşuna bastığımda Add tablosundaki Aciklama alanını güncellemesini istiyorum. Nasıl güncelleyecek “Userform Acıklamada ne yazıldıysa o OK tuşuna basınca güncelleyecek”


İkincisi ise

Listbox2 (asla çözemedim)
Database.accdb deki Model tablosundan filtreleme yapmak istiyorum, textbox kullanarak filtreleme, arama, yaptırmak istiyorum.


Yardımclarınızı rica ediyorum, gerçekten çözemedim elimde patladı iş.


Eklenti Dosyaları
.rar   databasefiltreleme.rar (Boyut: 1,66 MB / İndirilme: 50)



  Alıntı
Bu mesajı beğenenler:
#2
"RefreshDB()" prosedürünü sorun çıkardığı için devre dışı bıraktım -form1'e bağlı galiba-, siz onu düzenlersiniz
Yanlış anlamadıysam istediğiniz şeyler ;
1 - "userform2" deki listbox1 de olan kayıtları, "userform2"deki "tbxaciklama"de yazılanla ve ve güncel tarihle==>
add tablosundaki
[Aciklama] =tbxaciklama
[tarih]= günün tarihi ile değiştirmek istiyorsunuz

2 - textbox4 her değiştiğinde liste2'de eşleşen kayıtların görüntülenmesini istiyorsunuz.
_________________________________________
1.si için "Cmd1" tıklama olayına aşağıdakileri ekledim
Visual Basic
  1. Private Sub cmd1_Click() 'değişiklik'
  2. 'Eklenen kod Başla___________
  3. Set rs = CreateObject("ADODB.recordset")
  4. For i = 0 To Me.ListBox1.ListCount - 1
  5. TxtKayit = TxtKayit & "," & Me.ListBox1.List(i)
  6. Next
  7. TxtKayit = Mid(TxtKayit, 2)
  8. strSQL = "UPDATE [Add] set [Aciklama]='" & Me.tbxaciklama & "', [tarih]= Date() Where [Id] in (" & TxtKayit & ") ;"
  9.  
  10. rs.Open strSQL, adoCN, 1, 3
  11. 'Eklenen kod ___________Bitti
  12.  
  13. 'rs.Close
  14. 'RefreshDB '<== devredışı bıraktım
  15. Set rs = Nothing '<== gerisi sizin kodlarınız dokunmadım
  16.  
  17. Application.DisplayAlerts = False



2. soru içinse "UserForm_Initialize" olayına 2. bir ado bağlantısı eklendi
Visual Basic
  1. Private Sub UserForm_Initialize()
  2. On Error Resume Next
  3. Set adoCN = CreateObject("ADODB.Connection")
  4. DatabasePath = ThisWorkbook.Path & "\Newitem.accdb" '"D:\makrolar\Newitem.mdb"
  5. If Dir(DatabasePath) = "" Then
  6. Unload Me
  7. Exit Sub
  8. End If
  9. adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
  10. adoCN.Properties("Data Source") = DatabasePath
  11. adoCN.Open
  12.  
  13. 'adoCN2 Eklenen kod____________
  14. '____________________________
  15. Set adoCN2 = CreateObject("ADODB.Connection")
  16. DatabasePath2 = ThisWorkbook.Path & "\Database.accdb"
  17. If Dir(DatabasePath2) = "" Then
  18. Unload Me
  19. Exit Sub
  20. End If
  21. adoCN2.Provider = "Microsoft.ACE.OLEDB.12.0"
  22. adoCN2.Properties("Data Source") = DatabasePath2
  23. adoCN2.Open
  24. 'adoCN2 Eklenen kod____________________Bitti
  25. '_____________________________________________
  26.  
  27. 'RefreshDB '<==devre dışı bırakıldı
  28. Call combolist1
  29. End Sub



textbox4 değiştiğinde olayı arama [modeltext] alanına göre
Visual Basic
  1. Private Sub TextBox4_Change()
  2. Dim xKriter As String
  3.  
  4. ListBox2.Clear
  5. Set rst = CreateObject("ADODB.recordset")
  6. xKriter = Me.TextBox4.Text
  7. strstQL2 = "select * from [model] WHERE (instr(1,[MODELTEXT],'" & Me.TextBox4.Text & "',1)>0);"
  8.  
  9. rst.Open strstQL2, adoCN2, 1, 3
  10.  
  11. rst.MoveFirst
  12.  
  13. ListBox2.Column = rst.getrows
  14. rst.Close
  15. Set rst = Nothing
  16.  
  17. End Sub


dilerim işinize yarar


Eklenti Dosyaları
.rar   64bit_hy_3_1.rar (Boyut: 48,58 KB / İndirilme: 59)



  Alıntı
Bu mesajı beğenenler:
#3
Sayın @halily öncelikle size dönüş yapamadığım için çok özür diliyorum. Ben bu forum dılında accessle ilgili başka forumlarada yazmıştım bu forumu unutmuşum. Aksilik bu ya bu forum dışında yani sizin dışında hiçbir yer dönüş yapmamıştı.

Tekrar tekrar özür diliyorum, bu kadar emek verip yazmış ve dosya göndermişsiniz gerçekten üzüldüm.

Sonsuz teşekkürlerimi iletiyorum size, dosyayı indirip deneyeceğim yazdığınız şekilde.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Listbox Taki Sütunlara Farklı Font Ayarlama ozonozz 2 50 17-06-2020, 14:29
Son Mesaj: ozonozz
  [VBA] Toplu Biçimlendirme Ve Tasarım Modunda Kaydetme h2001 9 172 07-06-2020, 23:42
Son Mesaj: halily
  Ayrı Excel Sayfalarına Bölme Satir 4 68 25-05-2020, 17:11
Son Mesaj: Satir
  Listbox Değerini Tıklayarak Texboxa Taşımak cozum@msn.com 2 57 21-05-2020, 11:38
Son Mesaj: cozum@msn.com
  [RAPOR] Excel şablona Veri Yazdırmak mtasondaj 0 58 15-05-2020, 10:26
Son Mesaj: mtasondaj
  Tarihe Göre Raporda Filtreleme Yapmak alperadn01 2 147 28-04-2020, 22:09
Son Mesaj: alperadn01
  [VBA] Combobox Ya Da Listbox'dan Label'a Veri Gönderme benuva 6 145 21-04-2020, 16:40
Son Mesaj: benuva
  [FORM] Formdaki Degisikleri Kaydet Butonu Ile Kaydetme Hknkrsn 12 239 25-03-2020, 16:50
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi