Userformumdaki textboxlara bilgileri girip kayıt butonuna bastigimda kayit ediyor fakat 2-3 kayittan sonra satir atliyor(ornegin sayfa! in A satirina 1-2-3 diye yazarken birden a8 e yazmis oluyor.Kullandigim kodlar;
Private Sub kaydet_cmd_Click()
If sira_no_txt.Text = "" Or plaka_txt.Text = "" Then
MsgBox "Primary KEY BOÃ BIRAKILAMAZ", vbOKOnly, "VERİ TABANI KAYIT HATASI"
Else
dene = Application.CountA(Sheets("DATA").Columns("A")) + 1
sira = sira_no_txt
Sheets("DATA").Cells(dene, 1) = sira_no_txt.Text
Sheets("DATA").Cells(dene, 2) = plaka_txt.Text
Sheets("DATA").Cells(dene, 3) = marka_cmb.Text
Sheets("DATA").Cells(dene, 4) = model_yili_txt.Text
Sheets("DATA").Cells(dene, 5) = km_txt.Text
Sheets("DATA").Cells(dene, 6) = silindir_txt.Text
Sheets("DATA").Cells(dene, 7) = yakit_cmb.Text
Sheets("DATA").Cells(dene, 8) = motor_txt
End If
End Sub
Private Sub kaydet_cmd_Click()
If sira_no_txt.Text = "" Or plaka_txt.Text = "" Then
MsgBox "Primary KEY BOÃ BIRAKILAMAZ", vbOKOnly, "VERİ TABANI KAYIT HATASI"
Else
dene = Application.CountA(Sheets("DATA").Columns("A")) + 1
sira = sira_no_txt
Sheets("DATA").Cells(dene, 1) = sira_no_txt.Text
Sheets("DATA").Cells(dene, 2) = plaka_txt.Text
Sheets("DATA").Cells(dene, 3) = marka_cmb.Text
Sheets("DATA").Cells(dene, 4) = model_yili_txt.Text
Sheets("DATA").Cells(dene, 5) = km_txt.Text
Sheets("DATA").Cells(dene, 6) = silindir_txt.Text
Sheets("DATA").Cells(dene, 7) = yakit_cmb.Text
Sheets("DATA").Cells(dene, 8) = motor_txt
End If
End Sub