Running VBA code after clicking on a UserForm 'image'

Hello, I am currently trying to write some VBA code that will initialize once I left click on a UserForm image I have uploaded. In my specific situation, I am using a hovering effect for a 'Login...

excel

Macros and VBA

HansVogelaar
Apr 28, 2021
There is a textbox named TextBox1 on top of the Password text box.

So you actually enter the password in TextBox1, and the Password text box remains empty. Hence the message that the login information is incorrect.

ryanbarton324

Copper Contributor

Apr 26, 2021

HansVogelaar

Thank you for the reply! Very much appreciated!

That did work for me to be able to click on the button after the highlight. Now, I have a different problem, hopefully minor.

So I have code that will run when the MouseUp sub is run after I left click on the 'Login' button, and it should be checking the login credentials and verifying that they are correct with a username and password. If the username and/or password is incorrect, it will return a message saying 'ATTENTION: Wrong Login Information'. If not, the main menu UserForm will pop up and the login form will be unloaded. See code below.

Private Sub OKButton_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Me.Username.Value = "fhwa" Then
If Me.Password.Value = "1234" Then
Unload Me
frmMainMenu.Show
        Exit Sub
    End If
End If
MsgBox "ATTENTION: Wrong Login Information"

End Sub

When testing, it works correctly when the wrong info is inputted, but it also returns the error message when I input the correct login credentials as well. See below (Password is 1234)

Do you know where in the code I might be going wrong? Are there some extra steps that need to be taken in order to have another UserForm open up based on user inputs?

Does the Me.Username.Value have to be directly referenced from the login form now that I'm using pictures instead of command buttons?

Thanks,

Ryan

HansVogelaar

MVP

Apr 26, 2021

ryanbarton324

Try this version:

Private Sub OKButton_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Me.UserName.Value = "fhwa" And Me.Password.Value = "1234" Then
        Unload Me
        frmMainMenu.Show
    Else
        MsgBox "ATTENTION: Wrong Login Information"
    End If
End Sub

It shouldn't make a difference whether you use an image or a command button.

If you need to refer to the username elsewhere, you could store the value of Me.UserName in a public variable that has been declared in a standard module. It will then be available to all code in the workbook.

Forum Discussion

Running VBA code after clicking on a UserForm 'image'

Resources