Kaydet butonunun kodları şu şekilde
Kod:
Dim baglan As New Connection
Dim rs As New Recordset
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
rs.Open "SELECT * FROM personel where id", baglan, adOpenKeyset, adLockPessimistic
rs.AddNew
If Me.TextBox1.Text <> "" Then rs.Fields(1) = Me.TextBox1.Text
If Me.TextBox2.Text <> "" Then rs.Fields(2) = Me.TextBox2.Text
If Me.TextBox3.Text <> "" Then rs.Fields(3) = Me.TextBox3.Text
If Me.TextBox4.Text <> "" Then rs.Fields(4) = Me.TextBox4.Text
rs.Update
rs.Close
baglan.Close
mesaj = MsgBox("Personel bilgileri veri tabanına kaydedildi.", vbOKOnly, "KAYIT MESAJI")
Call formtemizle
End Sub