Private Sub CommandButton1_Click() 'Kaydet
b = WorksheetFunction.CountA(Sheets("veri").Range("A:A"))
Sheets("veri").Range("a" & b + 3).Select
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = TextBox3.Value
ActiveCell.Offset(0, 4) = TextBox4.Value
MsgBox "Verileriniz Kayıt Yapıldı", , "AccessTR"
End Sub
#4
Buyrun bakalım Kaydet ile ilgili kod.
