Each time I click run different code

[Dominaz]

Hello,



I would like to know how can I code, an event in a textbox, so each time I click on it, a different option appears in it.
I know how to give a value to the textbox for the first click (Forms!frmCalendar!txtDayBlock01.Value = "yes"), but no idea how to change this value after each click.....

Let's say:

I've text box , on click event once I want to appear "Yes", on click the second time "No", third click "Maybe", Forth "No way", and then fifth will start again with "Yes".


Thanks

[Robeen]

In your On Click event, you can put code in that first of all reads what is currently in the Text Box.

Then - depending on what is in the Text Box currently, decide what to put in there next.

Eg [not tested]:

 
Text1.SetFocus()
If Text1.Text = "Yes" Then
    Text1.Text = "No"
Else If
    Text1.Text = "No" Then
Text1.Text = "Maybe"
    ' . . . more options here
End If

Hope this helps!

[Dominaz]

Hello, Here I show you my Code,

The problem is that in the First Click it change to Not Available, in the second one it goes to AM.. but thats it...
It doesn't change to PM ,and it stays in AM...

(The text box has the value 1 the first time I click)

If Forms!frmCalendar!txtDayBlock01.Value Like " 1*" Then


Forms!frmCalendar!txtDayBlock01.Value = "Not Available"
Me.ActiveControl.BackColor = 16777165

ElseIf Forms!frmCalendar!txtDayBlock01.Text Like "[Not Available]*" Then
Forms!frmCalendar!txtDayBlock01.Value = "Available AM"
ElseIf Forms!frmCalendar!txtDayBlock01.Text Like "Available AM*" Then
Forms!frmCalendar!txtDayBlock01.Value = "Available PM"
ElseIf Forms!frmCalendar!txtDayBlock01.Text Like "[Available PM]*" Then
Forms!frmCalendar!txtDayBlock01.Value = "Available"
ElseIf Forms!frmCalendar!txtDayBlock01.Value Like "[Available]*" Then
Forms!frmCalendar!txtDayBlock01.Value = "Not Available"


End If


So, What Could I do?? I don't know why it does Not Available, Available AM, and it doesn't continue....

Thank you.

[Robeen]

Put a Break Point in your code on this line:

 
If Forms!frmCalendar!txtDayBlock01.Value Like " 1*" Then

Now - when you run your Click event - when the code sees txtDayBlock01.Text Like "Available AM*"
it will stop and take you to that line of the code.
Once you're in the code in Break mode - you can see what your variables are by holding your mouse pointer over the variable name in the code.

You might be able to find the problem by this method of debugging.
This is a good way to learn how to spot problems in your code.

Let me know if you still have problems.