kaydet butonuna eski kayıtları düzelt özelliği eklemek istiyorum ama nasıl

[kiriktesti]

ekli dosyadaki çağır butonuna bastıktan sonra listboxtan seçtiğim kayıt üzerinde değişiklik yapıp kaydetmek istiyorum fakat şu an olmuyor. yardımcı olursanız sevinirim.

 

[kiriktesti]

birileri de bu konu ile ilgilenirse müteşekkir kalacağım

 

[kiriktesti]

hocam sizi görmedim kusura bakmayın

 

[hamitcan]

Eki inceleyin. Hataları varsa, devam ederiz.

 

[kiriktesti]

hocam buradayım

 

[hamitcan]

Lütfen, sorularınızı özel mesaj ile sormayınız.
İlgili kodu eskisiyle değiştirin.

Private Sub ComboBox3_Change()
If ComboBox3 = "YENİ KAYIT" Then
[a1].Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
kayitno = ActiveCell.Row
Label13 = kayitno

Loop
'ComboBox2 = ""
'TextBox7 = ""
'TextBox8 = ""
'TextBox9 = ""
'TextBox1 = ""
'TextBox2 = ""
'TextBox3 = ""
'TextBox4 = ""
'TextBox10 = ""
'TextBox5 = ""
'TextBox6 = ""
End If
End Sub

 

[kiriktesti]

hocam konu ile ilgili soracağınız varsa buradayım

 

[kiriktesti]

hocam elinize sağlık Allah razı olsun işlerinizde kolaylıklar versin

 

[kiriktesti]

Comboboxa Plaka YazdiĞimda Hemen Kayit DeĞİŞtİr Moduna GeÇİyor Bunun Olmasini Nasil Engellerİz

 

[kiriktesti]

Hocam Kayit DeĞİŞİklİĞİ Modunda DeĞİŞİklİĞİ Kaydedİyor Ama Yenİden Bİr Tane Daha Kaydedİyor

 

[kiriktesti]

Sadece DeĞİŞtİrİlecek SÜtÜnu DeĞİŞtİrecek Ve Bu DeĞİŞİklİĞİ Kaydedecek. Fakat Bu Hem DeĞİŞİklİk YapilmiŞ Olani Kaydedİyor. Hem De Eskİsİ Kaliyor. Bu Sefer İkİ Kayit Oluyor Lİstede Bİrİsİ DeĞİŞİklİk YapilmiŞ Kayit DİĞerİ Eskİ Kayit

 

[kiriktesti]

dr f1 konu ile ilgileniyorsunuz acaba yardımcı olabilir misiniz

 

[hamitcan]

Kaydet butonu içindeki kodu değiştirdim. Bir de böyle deneyin.

Private Sub CommandButton1_Click()
If ActiveSheet.AutoFilterMode = True Then [a1:o1].AutoFilter
Sheets(1).Activate
If Label13 = 0 Then MsgBox "Bir kayıt çağırın": Exit Sub

Cells(kayitno, 1).Value = kayitno - 1
Cells(kayitno, 2).Value = TextBox1.Text
Cells(kayitno, 3).Value = TextBox7.Text
Cells(kayitno, 4).Value = TextBox4.Text
Cells(kayitno, 5).Value = TextBox9.Text
Cells(kayitno, 6).Value = TextBox2.Text
Cells(kayitno, 7).Value = TextBox10.Text
Cells(kayitno, 8).Value = ComboBox2
Cells(kayitno, 9).Value = TextBox8.Text
Cells(kayitno, 10).Value = TextBox5.Text
Cells(kayitno, 11).Value = TextBox3.Text
Cells(kayitno, 12).Value = 1
Cells(kayitno, 15).Value = TextBox6.Text


[a1:o1].AutoFilter Field:=8, Criteria1:=ComboBox2

ComboBox2.SetFocus
ComboBox2 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox10 = ""
TextBox5 = ""
TextBox6 = ""



acik = "İşlem Tamamlandı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
bas = "KAYIT İŞLEMİ"
MsgBox acik, buton, bas
End Sub