Blank Password Text Box Crashes Database

[KpAtch3s]

Having not done any real programming since college almost 6 years ago I'm slowly picking it back up as I build a new database so my knowledge is still pretty limited to what I remember.



Currently I have a form that is password protected by another form.
Design goes as this:
Main Menu>Open Password_Form>Open Inventory_Form

Code is:

Dim PassWord As String

Private Sub Password_OK_Click()
' verify password then close password form and open inventory form
PassWord = Password_Text
If PassWord = "mypassword" Then
DoCmd.Close
DoCmd.OpenForm "Inventory"
' reset password text to blank and throw dialog box
Else
MsgBox ("You're not auathorized for Administrator access.")
Password_Text = ""
End If

End Sub

Since then I have tried the following but getting an invalid use of Null when left blank:

~
Dim PassWord As String


Private Sub Password_OK_Click()


PassWord = Password_Text

' Close password form and open inventory form
If PassWord = "amledpass" Then
DoCmd.Close
DoCmd.OpenForm "Inventory"

' Password left blank throw dialog box
ElseIf PassWord = Empty Then
MsgBox ("Please enter password.")
Exit Sub

' Reset password text to blank and throw dialog box
Else
MsgBox ("You're not auathorized for Administrator access.")
PassWord = ""
End If


End Sub

[CJ_London]

getting an invalid use of Null when left blank:

if it is left blank then the field is null - so you need to cater for this situation - investigate using the isnull and nz functions - easy to find if you google them. Also so far as I am aware there is not an 'Empty' value in Access vba.

[June7]

Issue possibly with: ElseIf PassWord = Empty

What is Empty?

Try: ElseIf PassWord = "" Then

Are you aware that holding down shift key when opening db will bypass all this code?

[KpAtch3s]

Thanks, I'll check out isnull and nz functions. I initially had

ElseIf PassWord = "" Then

But I was getting the same error.

Most everyone will be using Access Runtime so I'm not too concerned at the moment with the bypass. Unless I'm mistaken, correct me if I'm wrong.

[June7]

What is Password_Text - a textbox?

Which line is throwing the error?

PassWord is defined as a string type. Only variant type can hold Null.

Maybe: PassWord = Nz(Me.Password_Text,"")

Step debug. Refer to link at bottom of my post for guidance.

[KpAtch3s]

I'll have to wait to get back work to answer most of those questions, but yes PassWord_Text is a textbox. I'll update the thread tomorrow with my results.

[KpAtch3s]

What is Password_Text - a textbox?

Which line is throwing the error?

PassWord is defined as a string type. Only variant type can hold Null.

Maybe: PassWord = Nz(Me.Password_Text,"")

Step debug. Refer to link at bottom of my post for guidance.

Nz is exactly what I needed. It seems to have broke another function of the code though. It no longer clears Password_Text after an incorrect password is entered. I can play around with that however. I'll mark solved. Thanks!