[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: 6)
  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: 17)
  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
  [SORGU] Gelişmiş Filtreleme yardım proxent1 3 155 09-07-2019, 19:56
Son Mesaj: dsezgin
access-sql-18 En az olanı otomatik vermesi ve excel'e yazdırma prestij06 43 1.498 25-06-2019, 13:47
Son Mesaj: halily
access-sql-17 [FORM] Excel'e Tarihli Veri Atma prestij06 10 679 20-06-2019, 14:02
Son Mesaj: halily
  [FORM] Açılan Kutuda Filtreleme keremm 2 134 15-05-2019, 16:59
Son Mesaj: keremm
  [FORM] parametre filtreleme yardım magggmar 5 170 13-05-2019, 13:08
Son Mesaj: magggmar
  [FORM] form da çoklu veri seçme ve kaydetme metocan 12 548 12-05-2019, 23:53
Son Mesaj: metocan
  Listview -Listbox h2001 3 185 18-02-2019, 01:27
Son Mesaj: dsezgin
  [SORGU] Excel Aktar Butonu ramazanke 5 277 30-01-2019, 10:46
Son Mesaj: ramazanke

Foruma Git:


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