TextBox_Change olayından dolayı yeni kayıt yapılamıyor.

[enes2000eren]

slm.arkadaşlar elimdeki formda texboxa girilen numaralar sayesinde verilerim forma geliyor.yeni kayıt dediğimde texler boşaltılıyor.ancak yeni kayıt yaparken sorun oluyor.yani diğer bilgileri giriyorum ancak numara girilirken girmiş olduğum veriler kayboluyor ve girilen numaraya ait veya (123 girilirlen önce 1 e ait ,sonra 12 ye ait )bilgiler geliyor.kısacası yeni kayıtı bir türlü yapamıyorum.kullanmış olduğum kodlar aşağıda.yardımlarınız için tşk.

Private Sub TextBox1_Change()
Set S1 = Sheets("KAYIT")
sat = S1.Columns(2).Find(TextBox1.Value).Row
ComboBox1.Value = S1.Cells(sat, 1).Value
TextBox1.Value = S1.Cells(sat, 2).Value
TextBox2.Value = S1.Cells(sat, 1).Value
TextBox3.Value = S1.Cells(sat, 3).Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Sanırım siz TextBox1 i hem kayıt bulmak için kullanıyorsunuz hemde yeni kayıt girerken kullanıyorsunuz. Bu durumda kayıt bulma işlevini TextBox1 den silip bir butona tanımlayarak yapabilirsiniz.