Veritabanı Kayıt Ekleme ve Güncelleme

Option Compare Database
Sub kayit_ekle()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("personel")
rst.AddNew
rst("ad").Value = InputBox("İsmi giriniz")
rst("soyad").Value = InputBox("Soyismi giriniz")
rst("maaş").Value = InputBox("maaşı giriniz")
rst.Update
End Sub
Sub kayit_sil()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("personel")
rst.Move InputBox("Silinecek  Değeri giriniz")
rst.Delete
End Sub

Sub kayit_gucelle()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("personel")
rst.Move InputBox("Değişecek İsmin sırasını Giriniz")
rst.Edit
rst("ad").Value = InputBox("yeni İsim değerini Giriniz")
rst("soyad").Value = InputBox("yeni Soyad değerini Giriniz")
rst("maaş").Value = InputBox("yeni Maaş değerini Giriniz")
rst.Update
End Sub