MsgBox not working!

[romio]

Can anyone tell me whats wrong with this code, its not working for me!!

If ((txtpassword = "") Or (combusername = "")) Then

MsgBox "Please Enter A Valid Access", vbOKOnly, "Error"

End If

 

[romio]

Update if I click on my clear button

combusername = ""
txtpassword = ""
combusername.SetFocus

Then click on my Enter button then the msg comes out!! Having an empty box is not equal to ""?

 

[Bat17]

Null is not the same as an empty string try :-

If ((nz(txtpassword,"") = "") Or (NZ(combusername,"") = "")) Then

MsgBox "Please Enter A Valid Access", vbOKOnly, "Error"

End If

HTH

Peter

 

[romio]

yeah that works, What I have done is adding this sub on my form load:

Private Sub Form_Load()

combusername = ""
txtpassword = ""
combusername.SetFocus

End Sub

Is this a good method to implement or not?

Thanks.

 

[Bat17]

as long as it works

Could probably do it by setting the controlls default values to "" as well.

I would doulble check whether adding an entry and deleting it sets the value to "" or Null !!

Peter