Sorum şu olacak : userform üzerinden arama yapıp listboxa kayıtları getiriyorum. Yapmak istediğim listboxda listelenen kayıtlardan herhangi birine tıkladığımda bilgilerin başka bir formda bulunan textbox ve combobaxlara aktarılması. Bunu nasıl sağlarım.


Ekte gönderdiğim örnekte userform1 de listelenen kayıtları PersonelKartı formunda yeralan textbox ve combobaxlara akratarmak istiyorum.

Diğer bir yapamadığım husus da Listeleme yaparken combobox seçildiğinde otomatik listeliyorum. Ben Arama butonuna tıkladığımda listelemek istiyorum.

ilk sorunuz için aşağıdaki çalışmayı dener misiniz?

---

yapılanlar:
1 - MdlSabitler adında değişkenleri saklayan bir modül eklendi
2 - MdlSabitler modülünde Public xDgr As String değişkeni tanımlandı
3 - UserForm1 formundaki ListBox1 tıklama olayının kodu

Private Sub ListBox1_Click()

xDgr = ListBox1.Column(1) & "|" & ListBox1.Column(2) & "|" & ListBox1.Column(4) & "|" & ListBox1.Column(11)

PersonelKartı.Show

End Sub

4 - UserForm1 formunun başlangıç olayı

Private Sub UserForm_Initialize()

xDgr = ""

listeye_al

End Sub

5 - PersonelKartı formunun başlangıç olayı

Private Sub UserForm_Initialize()

If Len(xDgr & "") > 0 Then

b = Split(xDgr, "|")

    With Me

         .TextBox1 = b(0) '-Ad       METE          METE

         .TextBox2 = b(1)

         .ComboBox1 = b(2)

         .ComboBox2 = b(3)

    End With

End If

xDgr = ""

End Sub

6 - PersonelKartı formunun kapanma olayı

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

xDgr = ""

End Sub

2. sorunuz için yeni konu açıp daha ayrıntılı bir açıklama yapar mısınız?

(23/03/2022, 13:31)berduş yazdı: ilk sorunuz için aşağıdaki çalışmayı dener misiniz?

---

yapılanlar:
1 - MdlSabitler adında değişkenleri saklayan bir modül eklendi
2 - MdlSabitler modülünde  Public xDgr As String değişkeni tanımlandı
3 - UserForm1 formundaki ListBox1 tıklama olayının kodu

Private Sub ListBox1_Click()

xDgr = ListBox1.Column(1) & "|" & ListBox1.Column(2) & "|" & ListBox1.Column(4) & "|" & ListBox1.Column(11)

PersonelKartı.Show

End Sub

4 - UserForm1 formunun başlangıç olayı

Private Sub UserForm_Initialize()

xDgr = ""

listeye_al

End Sub

5 - PersonelKartı formunun başlangıç olayı

Private Sub UserForm_Initialize()

If Len(xDgr & "") > 0 Then

b = Split(xDgr, "|")

    With Me

        .TextBox1 = b(0) '-Ad      METE          METE

        .TextBox2 = b(1)

        .ComboBox1 = b(2)

        .ComboBox2 = b(3)

    End With

End If

xDgr = ""

End Sub

6 - PersonelKartı formunun kapanma olayı

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

xDgr = ""

End Sub

Üstad Allah razı olsun çok teşekkürler. Sayenizde çözemediğim büyük bir sorun çözülmüş oldu ve yeni birşey öğrenmiş oldum.


2. sorunum aslında arama butonunu ile ilgiliydi ara butonunu kullanamadım. Butonu ekledim ama kodlayamadım.