เนื่องจากผมได้ลองทำ Form ให้ใส่รหัสผ่าน และชื่อ เพื่อไป form ข้อมูล พร้อมให้ New add rec
ผมได้ลองเขียนแล้ว มันทำให้ทุกอย่าง แต่เมื่อเข้าไปยัง form new add แล้ว มันไปเพิ่ม run rec ใหม่เลย โดยที่ยังไม่ได้ใส่ข้อมูลลงไป ถ้าผมออกหรือปิด form มันก็จะ run เลขไปแล้ว (โดยจะเป็น ข้อมูลเปล่า)

ที่ผมเขียน
On Error GoTo Err_cmdAddNew_Click
    
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim USR As Variant
    Dim rst As Recordset
    Dim dbs As Database
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("SELECT * FROM 1_userpasword1_form" & _
                             " WHERE username1='" & user_name1 & "'")
    If Not rst.EOF Then
        UserLogin = rst!username1
        stDocName = "1_Doc_in_formAdd"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        DoCmd.GoToRecord , , acNewRec
        Forms("1_Doc_in_formAdd").Controls("at_username") = [user_name1]
    Else
        Beep
        MsgBox "ªชื่อหรือรหัสผ่านไม่ถูกต้อง!", 0, "แจ้งให้ทราบว่า"
    End If
          
Exit_cmdAddNew_Click:
    Exit Sub

Err_cmdAddNew_Click:
    MsgBox Err.Description
    Resume Exit_cmdAddNew_Click

End Sub

จาก การเขียนข้างต้น ไม่ทราบว่ามีส่วนไหนผิด หรือต้องเขียนเพิ่มอย่างไร
และต้องเพิ่มในส่วนไหนบ้างครับ
ขอให้ท่าน อ. หรือ ท่านผู้รู้ ช่วยหน่อยครับ

ความต้องการ...
เมื่อใส่รหัสผ่าน หรือ ชื่อ แล้ว คลิ๊กปุ่มไปยัง form new add แล้ว
ยังไม่ให้เพิ่ม run rec ต้องมีการใส่ข้อมูลลงไปก่อน และถ้าผมออกหรือปิด ก่อนใส่ข้อมูล ก็จะไม่มีการ Run rec

หมายเหตุ ถ้าอธิบายไม่เข้าใจ หรือ อยากทราบส่วนอื่นเพิ่ม ช่วยบอกด้วยครับ

ขอบคุณ