http://www.thai-access.com/yeadram_view.php?topic_id=301

อ่านแล้วไม่เห็นภาพเลยครับ พอดีไม่ค่อยเก่งครับ อยากจะลองพยายามหัดเขียนครับ พอมีตัวอย่างหรือไม่ครับ คุณ Krathok-man

Private Sub text2_afterupdate()
          Dim stDocName As String, stLinkCriteria As String
          Dim rst As Recordset, dbs As Database
          Set dbs = CurrentDb()
          On Error GoTo el:
Set rst = dbs.OpenRecordset("SELECT * FROM TBL_USER")
rst.MoveFirst
Do Until rst.EOF
               If rst!USER_NAME = Text0.value And rst!USER_PASS = Text2.value Then
              
                                UL = rst!USER_NAME '***
                                bt = rst!USER_ADMIN '****
                                Gyn = rst!GY '****                           
                                codeunit = rst!codeunit'****

                                DoCmd.Close
                                stDocName = " ¿ÍÃìÁ1"
                                DoCmd.OpenForm stDocName, , , stLinkCriteria
                   Call fSetAccessWindow(3)
                   DoCmd.Maximize
                               Exit Sub
                            End If
              rst.MoveNext
            Loop
                            Beep
                                    MsgBox "ss"
   Set dbs = Nothing
el: MsgBox (" ")
Application.Quit acPrompt
End Sub

ตัวอย่าง การอ่าน ชื่อ USER NAME มาเก็บในตัวแปล ตรงที่ผม **** ไว้นะครับ
คือตัวแปร Global ซึ่งเก็บ หลังการ Lock in ว่าใครเข้ามาใช้ ส่วนอื่นๆ ไม่ต้องไปสนใจครับ ประยุกต์เอานะครับ

Dear K. krathok-man

Very big thanks so much ครับ