Application.OnTime

[pit84]

Hi

Wile reading a book, I came across this function and I try to grasp it, yet there is something I am clearly missing. I tried to create pseudo password login. I crated a userform, added text field and login button. I added code:

Private Sub confirmPassword_Click()
If passwordBox.Text = "qwerty" Then
    Unload Me
Else
    greetingLabel.Caption = "Password Not Recogized"
    'Application.OnTime Now + TimeValue("00:00:05"), "ExitApp"
    Call ExitApp
    
End If
End Sub

Sub ExitApp()
    Unload PasswordForm
    ActiveWorkbook.Close (False)
End Sub

if I simply call ExitApp, it closes workbook, leaving app open. If I try to use OnTIme (commented out), nothing happens.
If you could head me into direction, what I'm missing here, what should I look for to learn more

Thanks

 

[Ruddles]

I think ExitApp needs to be in a general code module, not the Userform code module.

 

[pit84]

True, thanks. Oddly, it should give me any message saying it can't be called or something.

 

[joeu2004]

I think ExitApp needs to be in a general code module, not the Userform code module.

Alternatively, does it work to declare Public Sub ExitApp() ?

[ERRATA] I guess not. At least, it does not work for worksheet modules.

Oddly, it should give me any message saying it can't be called or something.

That happens at run-time, in my experience.

 

[dmt32]

Hi,
Try this:

In Your Forms Code Page

Private Sub confirmPassword_Click()
    If passwordBox.Text = "qwerty" Then
        Unload Me
    Else
        greetingLabel.Caption = "Password Not Recogized"
        Application.OnTime Now + TimeValue("00:00:05"), "'ExitApp PasswordForm'"
        
    End If
End Sub

In a STANDARD Module

Sub ExitApp(ByVal Form As Object)
    Unload Form
    ActiveWorkbook.Close (False)
End Sub

Dave

 

[Ruddles]

True, thanks. Oddly, it should give me any message saying it can't be called or something.

You'd think so, but they obviously designed it not to. Perhaps because the code runs as a background task, they decided not to allow it to intrude on the foreground task. I don't know.