Popup form

[Guest]

I have a popup form that opens when the user has successfully logged into the
form. The main form verifies that the password is correct and then the popup
form runs. This all worked great up until a day ago and now it will not
popup. I am totally baffled on why the form will not appear.

Private Sub enter_password_AfterUpdate()
If Me!password = Me![enter password] Then
Me![admin] = DLookup("administrator", "employees", "name=forms!main!name")

'MsgBox ("Welcome!")
DoCmd.OpenForm "count popup", , , , , acHidden
DoCmd.OpenForm "answer popup"
DoCmd.Close acForm, "count popup"
' Triggers hidden items that only Admins can see
' If Me![admin] = -1 Then
' Me.Command3.Visible = True
' Refresh
' End If
Else
MsgBox ("Sorry, wrong password, please try again")
Exit Sub
End If
End Sub

 

[Guest]

You aren't by chance using Access 2003 SP3 are you?
--


Bob Larson
HTH

____________________________________
Access 2000, 2003, 2007, SQL Server 2000, Crystal Reports 10/XI, VB6
WinXP, and Vista

 

[Guest]

oh? I believe I'm. So popup forms are not allowed in Access 2003 SP3?

 

[Guest]

There's been some issues around SP3 which need to be resolved and your
problem may be affected by the changes that SP3 made. According to Woody's
Office Watch, they recommend waiting on SP3 until Microsoft gets some fixes
in place as the SP "fixes" broke some stuff at the same time.
--
Bob Larson
Access World Forums Super Moderator
Utter Access VIP
____________________________________
Access 2000, 2003, 2007, SQL Server 2000, Crystal Reports 10/XI, VB6
WinXP, Vista

oh? I believe I'm. So popup forms are not allowed in Access 2003 SP3?

I have a popup form that opens when the user has successfully logged into the
form. The main form verifies that the password is correct and then the popup
form runs. This all worked great up until a day ago and now it will not
popup. I am totally baffled on why the form will not appear.

Private Sub enter_password_AfterUpdate()
If Me!password = Me![enter password] Then
Me![admin] = DLookup("administrator", "employees", "name=forms!main!name")

'MsgBox ("Welcome!")
DoCmd.OpenForm "count popup", , , , , acHidden
DoCmd.OpenForm "answer popup"
DoCmd.Close acForm, "count popup"
' Triggers hidden items that only Admins can see
' If Me![admin] = -1 Then
' Me.Command3.Visible = True
' Refresh
' End If
Else
MsgBox ("Sorry, wrong password, please try again")
Exit Sub
End If
End Sub