LOGIN Form not disappearing

[AussieAsh]

I have created a login form, however, once i log in correctly it takes me to my main form, but the log in form still stays up over the main form.

Any ideas on how to get it to disappear once i press 'ok' button on the login form and the username and password are correct?

[Bob Fitz]

Can you show us the code behind the 'ok' button.

[AussieAsh]

If Me.pass = "a" Then
DoCmd.OpenForm "frmMain"
Else


If Me.pass = Me.UserPass Then
DoCmd.OpenForm "frmMain"
' DoCmd.OpenForm "DetectIdleTime", acFormDS, , , acFormEdit, acHidden
Else
Dim Msg, Style, Title, Response, MyString
Msg = "You have entered an Incorrect Password. " & vbCrLf & vbCrLf & "Click OK to retry." & vbCrLf & "Cancel to Close." & vbCrLf & vbCrLf & "If you need access to this database please contact s."
Style = vbOKCancel
Title = "Incorrect Password"
Response = MsgBox(Msg, Style, Title)

If Response = vbOK Then
Me.pass.SetFocus
Else
DoCmd.Quit
End If
End If
End If

[Bob Fitz]

Perhaps you just need a line of code to close the form. Try:

If Me.pass = "ashley" Then
DoCmd.OpenForm "frmMain"
Else


If Me.pass = Me.UserPass Then
DoCmd.OpenForm "frmMain"
' DoCmd.OpenForm "DetectIdleTime", acFormDS, , , acFormEdit, acHidden
DoCmd.Close acForm, "NameOfYourForm"
Else
Dim Msg, Style, Title, Response, MyString
Msg = "You have entered an Incorrect Password. " & vbCrLf & vbCrLf & "Click OK to retry." & vbCrLf & "Cancel to Close." & vbCrLf & vbCrLf & "If you need access to this database please contact Sandra Clark."
Style = vbOKCancel
Title = "Incorrect Password"
Response = MsgBox(Msg, Style, Title)

If Response = vbOK Then
Me.pass.SetFocus
Else
DoCmd.Quit
End If
End If
End If

[AussieAsh]

Hmm.. I tried that... got the same result though :-/

[Bob Fitz]

OK. How about:

If Me.pass = "ashley" Then
DoCmd.OpenForm "frmMain"
DoCmd.Close acForm, "NameOfYourForm"
Else


If Me.pass = Me.UserPass Then
DoCmd.OpenForm "frmMain"
' DoCmd.OpenForm "DetectIdleTime", acFormDS, , , acFormEdit, acHidden

Else
Dim Msg, Style, Title, Response, MyString
Msg = "You have entered an Incorrect Password. " & vbCrLf & vbCrLf & "Click OK to retry." & vbCrLf & "Cancel to Close." & vbCrLf & vbCrLf & "If you need access to this database please contact Sandra Clark."
Style = vbOKCancel
Title = "Incorrect Password"
Response = MsgBox(Msg, Style, Title)

If Response = vbOK Then
Me.pass.SetFocus
Else
DoCmd.Quit
End If
End If
End If

[AussieAsh]

You are a GENIUS!!! Thank you SO much!!

[Bob Fitz]

You are a GENIUS!!! Thank you SO much!!

I don't think so but I thank you for your kind words.