Çözüldü Listboxtaki kayda çift tıklayınca yeni açılan userforma bilgileri getirme hk.

[himmgarip]

Merhaba,
Aşağıdaki kodlarla Anaekran isimli userformda bulunan listbox1 isimli listboxta kayda çift tıklama ile kayda ait bilgileri aynı userformda bulunan textboxlara aldırıyorum.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Yapmak istediğim;

Anaekran isimli userformda bulunan listboxta ki kayda çift tıklayınca UrunKayit isimli userformu açıp bu bilgileri oradaki textboxlara yazdırmak. Bütün textbox isimleri Anaekran userformu ile aynı.

 

[Alparslan]

End Sub dan önce aşağıdaki kodları ekleyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[himmgarip]

End Sub dan önce aşağıdaki kodları ekleyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

OptionButton için Anaekranda çalışanlar Urunkayit a atınca çalışmıyor. Bunu nasıl yapabilirim? id numarasını da doğru alıyor.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Alparslan]

End With den önce aşağıdaki kodları ekleyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[himmgarip]

End With den önce aşağıdaki kodları ekleyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Problemsiz çalışıyor teşekkürler.

Son olarak bu kodları listbox1 den kaydı seçip "bt_duzenle" isimli butona basarak nasıl çalıştıracağım?
Kaydı seçeceğim ve düzenle butonuna basınca UrunKayit açılacak.

 

[Alparslan]

Çift tıklama ile hiçbir işlem yapılmayacaksa
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) başlığını Private Sub bt_duzenle_Click() olarak değiştiriniz.

 

[himmgarip]

Çift tıklama ile hiçbir işlem yapılmayacaksa
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) başlığını Private Sub bt_duzenle_Click() olarak değiştiriniz.

Sizi saygıyla selamlıyorum.

Teşekkürler. Emeğinize sağlık.

 

[Alparslan]

Ben teşekkür ederim.

Ek olarak şu açıklamayı yazıyordum ki mesajı düzenleme süresi doldu diye uyarı verdi.

Tek Tıklama ile Seçip, buton ile aktarmak istiyorsanız
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) başlığını Private Sub ListBox1_Click() olarak değiştirip.

Buton kodunu aşağıdaki gibi kullanabilirsiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.