ListBox tan nasıl çıkış yaparım

[Mustafa MUTLU]

ListBox tan Herhangi bir veriyi seçiyorum.
Text lerde görüyorum.

Seçtiğim veri de bir iki değişiklik yapıp Yeni Kayıt olarak kaydediyorum. (Kayıt Değiştir Değil )
Kaydet tuşuna aşağıdaki kodu ekledim. Textleri Kaydettikten sonra boşaltıyor.

Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select

text ler boşaldı ben denemek için Kayıt değiştir tuşuna tıkladığımda
daha önce seçtiğim veriler temizlenmemiş gibi işlem yapıyor
Yani text ler boş olduğu için verileri boş olarak değiştiriyor.

Örnek : 15 sıra nolu veriyi listbox tan seçtim
Üzerinde değişiklik yapıp yeni kayıt olarak kaydettim.
(kayıt tuşuma yukarıdaki kodları ekledimki kaydettikten sonra texsler boşalsın diye)
Yeni kayıt 16 numara olarak kaydedildi ve texs ler boşaldı.
Bu durumda kayıt değiştir tuşuna tıkladığımda 15 Nolu verileri değiştiriyor.
Yani listbox tan çıkmamış veriler hala seçili işlemi görüyor
ama ben texslerde veri görmüyorum.

kısacası : ListBox tan yaptığım seçimi nasıl iptal ederim.

İlginize Teşekkür ederim...

 

[Mustafa MUTLU]

Her işi başkalarına yıkmaya alışmışım.
Biraz dikkat edince çözümü buldum.

If TextBox2.Text = Empty Then
MsgBox "Lütfen Listeden Seçim Yapınız", vbExclamation, "Dikkat !.."
Exit Sub
End If

Text ler otomatik olarak boşaltıldığına göre
Kayıt değiştir kodlarına yukardaki kodu ekleyince sorunu giderdim.

Benzer sorunu olanlara yardımcı olmak amacıylada kodu ekledim buraya...