Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [MAKRO] excel userform listbox filtreleme ve kaydetme

[MAKRO] excel userform listbox filtreleme ve kaydetme
Akbas
Yeni Üye 1-15

*
Kayıt Tarihi: 22.05.2019
Toplam 2 konu açtı.
Toplam 4 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 EN,
Beğeniler: 0 / 0
#1
22-05-2019, 16:14

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: 288)



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#2
23-05-2019, 22:30
"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: 234)



  Bul
  Alıntı
Bu mesajı beğenenler:
Akbas
Yeni Üye 1-15

*
Kayıt Tarihi: 22.05.2019
Toplam 2 konu açtı.
Toplam 4 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 EN,
Beğeniler: 0 / 0
#3
19-07-2019, 08:45
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.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Seçili Tarihe Göre Filtreleme husem 3 87 25-09-2025, 00:25
Son Mesaj: halily
  Form üzerinde Ikili Filtreleme osmangezin@gmail.com 1 199 19-06-2025, 00:01
Son Mesaj: dsezgin
  Aynı Günleri Filtreleme Satir 7 366 30-04-2025, 09:33
Son Mesaj: Satir
  Filtreleme evren89 2 222 04-07-2024, 15:58
Son Mesaj: evren89
  [FORM] Teslim Tarihi Alanına Göre Süzme, Filtreleme programmer67 14 737 09-05-2024, 23:27
Son Mesaj: programmer67
  [TABLO] Excel Aktarımı kahramanselim 6 549 06-04-2024, 21:11
Son Mesaj: kahramanselim
  [TABLO] Formu Tabloda Filtreleme soss 2 347 27-03-2024, 20:04
Son Mesaj: soss
  Formu Pdf Olarak Kaydetme snapper 8 596 01-11-2023, 22:59
Son Mesaj: dsezgin

Foruma Git:


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