Should be a easy question (1 Viewer)

[Cpar]

Hey guys i put a password on a button but i am having trouble with one part. See i need to put the code in my form "on current" and "after update". If you guys could help me revise this code that would be awesome. Here it is.

Private Sub Check1503_Click()
Dim Mypassword
Mypassword = InputBox("Enter Password", ("Password"))
If Mypassword = "12345" Then
Me.Sig.Visible = True
Else
Me.Sig.Visible = False
End If
End Sub

If i put it in just like this it asks for the password at weird times.

 

[jdraw]

Did you step through your code?
What error?

 

[Cpar]

Sorry im not sure what step through my code means? If i just take out the Private Sub Check1503_Click() part every time i open my form it asks me for the password. I do not want that. I want to have to click the button. If i leave Private Sub Check1503_Click() as part of the code under the "on current" it gives me a error.

 

[jdraw]

Sorry im not sure what step through my code means?

Go to the debugging tips link in my signature.

It is asking you for a password because you have told it to do so

Mypassword = InputBox("Enter Password", ("Password"))

 

[Cpar]

Ok i tried reading through the debugging tips. Tried pressing F8. Idk why but its not working for me. All i know is when i put
Dim Mypassword
Mypassword = InputBox("Enter Password", ("Password"))
If Mypassword = "12345" Then
Me.Sig.Visible = True
Else
Me.Sig.Visible = False
End If

In the "on current section of my form it asks me for the password right away. I need it to somehow ask me for it when i press the button.

 

[bob fitz]

In the "on current section of my form it asks me for the password right away. I need it to somehow ask me for it when i press the button.

Then perhaps you just need your code in the buttons On Click event

 

[Cpar]

I have the code in the button on click event.

 

[bob fitz]

I have the code in the button on click event.

Is that the only place you have it

 

[Cpar]

Yes. I guess my question is idk how to code it into the "on current" section

 

[Cpar]

Any idea on how to convert the code? to make it work with the "on current"

 

[jdraw]

Do you have the code in the onclick event of your button?

 

[bob fitz]

I am confused.

In post #6 I quoted some of your text from post #5 which I took to mean that the code was running in the Forms On Current event already but that you just needed it to run when the button was clicked, hence my reply in post # 7.

 

[Cpar]

Sorry if i am being confusing. I have this code in my "on click" button.
Private Sub Command1502_Click()
Dim Mypassword
Mypassword = InputBox("Enter Password", ("Password"))
If Mypassword = "12345" Then
Me.Sig.Visible = True
Else
Me.Sig.Visible = False
End If
End Sub

I now need to write some code that will go in my "On current" form command. So if i do it to one it does not affect the rest of my forms. Does this make more sense? I hope so. Let me know if it is still confusing.

 

[gemma-the-husky]

why would you want to click a button to then enter a password?

just have an unbound textbox with a label of "password", and set the text box format to "password".

then test the password in the afterupdate event of the textbox

with an inputbox you can't hide the password from someone watching over your shoulder.

 

[jdraw]

Further to Dave's post, can you describe to us in simple terms What you are trying to do? Readers are attempting to answer, but, in my view, they still aren't sure what it is you are trying to accomplish.

 

[Cpar]

Yes i can try and describe better. Once again sorry. I am trying to make a button on my form that when clicked it will ask for a password. If the password is correct it will then show a picture. If the password is not correct it will not show the picture. So i have a button with this code in it

Private Sub Command1502_Click()
Dim Mypassword
Mypassword = InputBox("Enter Password", ("Password"))
If Mypassword = "12345" Then
Me.Sig.Visible = True
Else
Me.Sig.Visible = False
End If
End Sub

I do not want one form to affect my others. (Split Form, I can just click on different rows). So i need code to go into my form "on current" This is what i am having trouble with

 

[Cpar]

Anyone help me?

 

[bob fitz]

What happens if you copy your code to the forms on current event

 

[Cpar]

If i put this

Dim Mypassword
Mypassword = InputBox("Enter Password", ("Password"))
If Mypassword = "12345" Then
Me.Sig.Visible = True
Else
Me.Sig.Visible = False
End If

Into my form "on current" event it asks me for a password right when the form opens. I do not want this to happen. I want to actually have to push the button for it to ask me the password. Thanks for the reply Bob fitz.

 

[bob fitz]

In your post #16 you said:

So i need code to go into my form "on current" This is what i am having trouble with

but in your post #19 you contradict yourself (again) saying:

Into my form "on current" event it asks me for a password right when the form opens. I do not want this to happen

I'm sorry, but don't think I can offer anything more on this subject.