Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
[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: 5)
Bul
Alıntı
#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
Private Sub cmd1_Click() 'değişiklik'
'Eklenen kod Başla___________
Set rs = CreateObject("ADODB.recordset")
For i = 0 To Me.ListBox1.ListCount - 1
TxtKayit = TxtKayit & "," & Me.ListBox1.List(i)
Next
TxtKayit = Mid(TxtKayit, 2)
strSQL = "UPDATE [Add] set [Aciklama]='" & Me.tbxaciklama & "', [tarih]= Date()   Where [Id] in (" & TxtKayit & ") ;"
 
rs.Open strSQL, adoCN, 1, 3
'Eklenen kod ___________Bitti

'rs.Close
'RefreshDB   '<== devredışı bıraktım
Set rs = Nothing  '<== gerisi sizin kodlarınız dokunmadım

Application.DisplayAlerts = False



2. soru içinse "UserForm_Initialize" olayına 2. bir ado bağlantısı eklendi
Visual Basic
Private Sub UserForm_Initialize()
On Error Resume Next
Set adoCN = CreateObject("ADODB.Connection")
DatabasePath = ThisWorkbook.Path & "\Newitem.accdb" '"D:\makrolar\Newitem.mdb"
    If Dir(DatabasePath) = "" Then
        Unload Me
    Exit Sub
    End If
adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
adoCN.Properties("Data Source") = DatabasePath
adoCN.Open
 
'adoCN2 Eklenen kod____________
'____________________________
Set adoCN2 = CreateObject("ADODB.Connection")
DatabasePath2 = ThisWorkbook.Path & "\Database.accdb"
    If Dir(DatabasePath2) = "" Then
        Unload Me
    Exit Sub
    End If
adoCN2.Provider = "Microsoft.ACE.OLEDB.12.0"
adoCN2.Properties("Data Source") = DatabasePath2
adoCN2.Open
'adoCN2 Eklenen kod____________________Bitti
'_____________________________________________

'RefreshDB '<==devre dışı bırakıldı
Call combolist1
End Sub



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


dilerim işinize yarar


Eklenti Dosyaları
.rar   64bit_hy_3_1.rar (Boyut: 48,58 KB / İndirilme: 14)
Bul
Alıntı


İmlemeler

Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-17 [FORM] Excel'e Tarihli Veri Atma prestij06 3 85 9 saat önce
Son Mesaj: halily
access-sql-18 En az olanı otomatik vermesi ve excel'e yazdırma prestij06 25 370 14-06-2019, 08:27
Son Mesaj: prestij06
  [FORM] Açılan Kutuda Filtreleme keremm 2 82 15-05-2019, 16:59
Son Mesaj: keremm
  [FORM] parametre filtreleme yardım magggmar 5 131 13-05-2019, 13:08
Son Mesaj: magggmar
  [FORM] form da çoklu veri seçme ve kaydetme metocan 12 370 12-05-2019, 23:53
Son Mesaj: metocan
  Listview -Listbox h2001 3 120 18-02-2019, 01:27
Son Mesaj: dsezgin
  [SORGU] Excel Aktar Butonu ramazanke 5 207 30-01-2019, 10:46
Son Mesaj: ramazanke
  [VBA] Metin Kutusu ve Liste Kutusu Arasında Kaydetme, Yeni Kayıt Ekleme ve Silme Sorunu mmert06 6 349 12-01-2019, 16:05
Son Mesaj: mmert06

Foruma Git:


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