Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü

1 2 3 4 5
14/10/2020, 18:59

hayalibey

Zafer Hocam ListBox İşemleri 4.rar adlı dosyayı şimdi inceliyorum. indirdim
14/10/2020, 19:34

hayalibey

Hocam mükerrer kayıt olmuyor ama txtAra kutucuğuna tıklar tıklamaz hata mesajı veriyor. Userformun bendeki orijinal halini buraya yüklüyorum.

(14/10/2020, 19:34)hayalibey yazdı: Hocam mükerrer kayıt olmuyor ama txtAra kutucuğuna tıklar tıklamaz hata mesajı veriyor. Userformun bendeki orijinal halini buraya yüklüyorum.

Hocam hatalı ekran görüntülerini sizinle paylaşıyorum. Bende ekteki hatayı veriyor.
14/10/2020, 19:48

feraz

(14/10/2020, 19:34)hayalibey yazdı: txtAra kutucuğuna tıklar tıklamaz hata mesajı veriyor.
Burası sizin kodla alakalıydı yani seçim düğmeleri yani optionbuttonlardan biri seçilmezse hata veriyordu.Heralde ilk eklediğim dosyada onu halletmiştim döngü ile sonrakilere eklemedim.
Atıyorum
İf optionbutton1.value = false then
Msgbox "hata"
Exit sub
End if gibi koşullar ekleyebilirsiniz.
14/10/2020, 19:56

feraz

Abey son dosyanızdaki txtAra_Change kodda With Sayfa11 yerine With Sayfa1 olacak ilk olarak.

ikinci olarak en üste alttaki kodu eklememişsiniz.Resimdeki gibi ekleyin.

Dim dict As Object


14/10/2020, 20:02

feraz

3.cü olarak alttaki koduda eklememişsiniz.Bunu en alta ekleyebilirsiniz.
Hafızadan temizlemek için yazdım.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set dict = Nothing
End Sub
14/10/2020, 20:14

feraz

5.ci olarakta kodlar Private Sub ListBox1_Change() içine yazılacak Private Sub ListBox1_CLick yerine()
Her neyse üstad dosyayı ekliyorum.
Düzeltme kapatma olayını iptal emişsiniz set dict = nothing kodlarını ana sayfa butonlarına ekledim.
1 2 3 4 5