username and password

**lushh** · 09-05-2006, 10:02 AM

hi.. i am working on a system and it needs a username and password for security. i am using ms access 2003. and my form looks like this:

the user will enter a username and password in order to get into the system. the system will have 2 or more users. i just wanna ask if anyone has a sample VBA code for this kind of form. your replies wil surely be appreciated. thank you very much.

**Rufo** · 09-06-2006, 08:32 AM

The easiest (but not best!) way to do this would be using a case/if combo:

Code:

Private Sub cmdLogin_Click()

  un = txtUsername.Text
  pw = txtPassword.Text

  ok = False

  Select Case un
    Case "user1"
      If pw = "pw1" Then ok = True
    Case "user2"
      If pw = "pw2" Then ok = True
    Case "user3"
      If pw = "pw3" Then ok = True
  End Select

  If ok Then
    'login was ok - do something
  Else
    'login was not ok - do something else
  End If

End Sub

Rufo

**lushh** · 09-06-2006, 09:48 PM

thanks for the reply. it really did help.. =)