ทดลองทำฟอร์มขึ้นมานะคะ โดยมีปุ่ม save ไว้สำหรับเพิ่ม record ลงในตาราง
เมื่อกดปุ่มแล้ว มันสามารถบันทึกได้ค่ะ แต่จะไม่เพิ่มเป็น record ใหม่ มันจะแทนที่ record เดิม คือในตารางจะมีแค่ 1 record ตลอด และ เมื่อ save แล้วมันไม่เคลียร์ค่าใน text box ให้ค่ะ

Private Sub SAVE_Click()
On Error GoTo Err_SAVE_Click

Dim adb As Database
Dim A As DAO.Recordset
Set adb = cuurentDb
Set A = db.openrecordset("employee")
A.AddNew
A![ID] = ID.Value
A![Name] = Name.Value
A![Address] = Address.Value
A![Departmaent] = Department.Value
A![Company] = Company.Value

A.Update
A.Close
MsgBox ("SAVE")
ID.Text = ""
Name.Text = ""
Address.Text = ""
Department.Text = ""
Company.Text = ""




    
End Sub