If condition...

[Margaret]

Dear Friends,

How can I modify the following code as it is not working: The command button name is: cmdANS

Public Sub Timer7_Mod()
 
If cmdANS_Click Then
Timer7.Enabled = True
Timer7.Interval = 200
Call cmdNext_Click
Timer7.Enabled = False
End if
 
End Sub

Margaret

[robbedaya]

what is it supposed to do?

[jeroen79]

If cmdANS_Click Then

cmdANS_Click is cmdANS' Click-event.
You can't call it as if it were a variable or function.

[Margaret]

what is it supposed to do?

Hi,

When I press cmdAns button....

Timer7.Enabled = True >>>> Timer7 should start working
Timer7.Interval = 200 >>>> This is the time
Call cmdNext_Click >>>>> when time finishes it should click cmdNext button automatically

Timer7.Enabled = False >>> Lastly it should stop working.

[Jenova]

Why don't you use a flag to indicate that the button was pressed. Declare a global boolean value and set it to true at the end of the procedure. Then query the boolean value to determine if it is true or not. Like this...

Dim bFlag       As Boolean
 
Private Sub CmdANS_Click()
    ' Statements Here
    ' Statements Here
    ' Statements Here
    ' Statements Here
    ' Statements Here
    ' Statements Here
    ' Statements Here
    bFlag = True
End Sub
 
Public Sub Timer1_Mod()
    If bFlag Then
        Timer7.Enabled = True
        Timer7.Interval = 200
        Call cmdNext_Click
        Timer7.Enabled = False
    End If
End Sub

Hope this helps,

Jenova

[Margaret]

Why the following code is not working? Any help please.

Private Sub Timer7_Timer()
Static i As Long
i = i + 1
If i = 500 Then
Timer7.Enabled = False
i = 0
End If
End Sub

Margaret

[robbedaya]

what error does the code give? what doesn't work?

[moinkhan]

Make sure Timer is getting enabled with an interval of more than 0 from somewhere...

[robbedaya]

Make sure Timer is getting enabled with an interval of more than 0 from somewhere...

i tested the code, and the code works like a charm. So check the things Moinkhan said.
timer.enabled = true
timer.interval must be bigger than 0. (1000 = 1 second)

[smUX]

cmdANS_Click is cmdANS' Click-event.
You can't call it as if it were a variable or function.

Not quite true...you can call it to fire the sub by typing "cmdANS_click" in your code...but no, you can't use it in a true/false statement or to hold a value...A better way to do that would be an option button