มันขึ้นแบบนี้คืออะไรคับ กดบันทึกแล้วขึ้นทุกครั้ง
อันนี้ code ผม

Private Sub cmd_admin_Click()
Dim ctl As Control 'เอาไว้บนสุด
Dim sql As String
    If id_admin = "" Then
    MsgBox ("กรุณากรอก รหัส Admin")
    ElseIf name_admin = "" Then
    MsgBox ("กรุณากรอกชื่อ")
    ElseIf sername_admin = "" Then
    MsgBox ("กรุณากรอกนามสกุล")
    ElseIf nickname_admin = "" Then
    MsgBox ("กรุณากรอกชื่อเล่น")
    ElseIf tel_admin = "" Then
    MsgBox ("กรุณากรอกเบอร์โทร")
    Else
sql = "insert into Admin(id_admin,name_admin,sername_admin,nickname_admin,tel_admin) values ('" & id_admin & "','" & name_admin & "','" & sername_admin & "','" & nickname_admin & "','" & tel_admin & "');"
    DoCmd.RunSQL sql
       MsgBox ("บันทึกข้อมูลเรียบร้อย")

For Each ctl In Form_Data_Admin.Controls 'เปลี่ยน Form_Form1 เป็น Form_ชื่อฟอร์มที่ใช้โค้ดนี้ โค๊ตนี้ใช้สำหรับล้างหน้าจอ
   Select Case ctl.ControlType
      Case acTextBox
           ctl.Value = ""
      Case acOptionGroup, acComboBox, acListBox
          ctl.Value = Null
      Case acCheckBox
        ctl.Value = False
   End Select
   Next
   End If
End Sub