Snasui Excel Forum

Code: Select all

Dim mFields As String: mFields = ""
    If Usernames.Value = "" Then mFields = mFields & "Username" & vbNewLine
    If passwords.Value = "" Then mFields = mFields & "password" & vbNewLine
If mFields <> "" Then
     MsgBox "กรุณากรอกข้อมูลเข้าสู่ระบบ" & vbNewLine & mFields, vbCritical, mTitel
    Else

    Dim uSH   As Worksheet: Set uSH = ThisWorkbook.Sheets("Login")
    Dim isExist As Boolean: isExist = False
    Dim wpassword As String: wpassword = ""
    
       For c = 2 To uSH.Cells(Rows.Count, 2).End(xlUp).Row
         If uSH.Range("A" & c).Value = Usernames.Value Then
            isExist = True
            wpassword = uSH.Range("B" & c).Value
            Loginnames = uSH.Range("C" & c).Value
               
    Exit For
    End If
    Next c
    If isExist = False Then
     MsgBox "คุณกรอก Username ผิด", vbCritical, mTitel
     Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
     Else
     If passwords.Value <> wpassword Then
       MsgBox "คุณกรอก password ผิด", vbCritical, mTitel
        Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
       Else
       MsgBox "Welcome", vbInformation, mTitel
       Unload Me
           ผู้ใช้งาน.Show
           
           
     End If
     End If
     End If
     

Code: Select all

'...
If passwords.Value <> wpassword Then
    MsgBox "คุณกรอก password ผิด", vbCritical, mTitel
    Usernames.Value = ""
    passwords.Value = ""
    Usernames.SetFocus
Else
    MsgBox "Welcome", vbInformation, mTitel
    uSH.Range("e" & c).Value2 = Date
    uSH.Range("f" & c).Value2 = Time
    Unload Me
    ผู้ใช้งาน.Show
End If
'...

Code: Select all

 Dim lRow As Long: lRow = 0
        lRow = uSH.Cells(Rows.Count, 2).End(xlUp).Row + 1
       uSH.Range("G" & lRow).Value2 = Date
         uSH.Range("H" & lRow).Value2 = Time
       Unload Me
           ¼Ùéãªé§Ò¹.Show
[code]

Code: Select all

Dim mFields As String: mFields = ""
    If Usernames.Value = "" Then mFields = mFields & "Username" & vbNewLine
    If passwords.Value = "" Then mFields = mFields & "password" & vbNewLine
If mFields <> "" Then
     MsgBox "กรุณากรอกข้อมูลเข้าสู่ระบบ" & vbNewLine & mFields, vbCritical, mTitel
    Else

    Dim uSH   As Worksheet: Set uSH = ThisWorkbook.Sheets("Login")
    Dim isExist As Boolean: isExist = False
    Dim wpassword As String: wpassword = ""
    
       For c = 2 To uSH.Cells(Rows.Count, 2).End(xlUp).Row
         If uSH.Range("A" & c).Value = Usernames.Value Then
            isExist = True
            wpassword = uSH.Range("B" & c).Value
            Loginnames = uSH.Range("C" & c).Value
               
    Exit For
    End If
    Next c
    If isExist = False Then
     MsgBox "คุณกรอก Username ผิด", vbCritical, mTitel
     Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
     Else
     If passwords.Value <> wpassword Then
       MsgBox "คุณกรอก password ผิด", vbCritical, mTitel
        Usernames.Value = ""
     passwords.Value = ""
      Usernames.SetFocus
       Else
       MsgBox "Welcome", vbInformation, mTitel
       Dim lRow As Long: lRow = 0
      lRow = uSH.Cells(Rows.Count, 2).End(xlUp).Row + 1
       uSH.Range("G" & c).Value2 = Date
       uSH.Range("H" & c).Value2 = Time

       Unload Me
           ผู้ใช้งาน.Show
           
           
     End If
     End If
     End If