
ASAP: How do u set the cmdOK_Click event to have more than one event procedure
You could declare a static variable and do something like this
Private Sub cmdOK_Click()
STATIC CTR AS INTERGER
CTR = CTR + 1
IF CTR =1 THEN
If optSaving.Value = True Or optChequing.Value = True Then
txtMessage = "Please select your transaction." & _
"Press OK when finish."
fraTransaction.Visible = True
End If
If optDeposit.Value = True Or optWithdraw.Value = True Or _
optTransfer.Value = True Or optBillPayment.Value = True Then
lblInput.Visible = True
txtInput.Visible = True
End If
ELSE
'I want to give control to the txtInput after the OK command
button
is click
'2 times
txtInput.SetFocus
CTR = 0 'THIS WILL RESET IT FOR THE NEXT TIME
END IF
End Sub
If you don't want to use a static variable you could change the Caption on
your button after to click it once. From OK to Finished and check the
caption on the button
Hope this helps
Mike
Quote:
>ex:
>Private Sub cmdOK_Click()
> If optSaving.Value = True Or optChequing.Value = True Then
> txtMessage = "Please select your transaction." & _
> "Press OK when finish."
> fraTransaction.Visible = True
> End If
> If optDeposit.Value = True Or optWithdraw.Value = True Or _
> optTransfer.Value = True Or optBillPayment.Value = True Then
> lblInput.Visible = True
> txtInput.Visible = True
> End If
> 'I want to give control to the txtInput after the OK command button
>is click
> '2 times
> 'txtInput.SetFocus
>End Sub