compile error variable not defined VB code, Access97

[hhuuhn]

No, this is a text field when the table created, although it is put with numbers.
My other field code is not as complecated as this one, which is a simple condition, such as
Private Sub anticoagulation_AfterUpdate()
Me![DateOfStop].Enabled = Me![anticoagulation].Value = "0"
Me![DateOfStop].Value = ""
End
this means if a patient didn't stop taking medicine, then no date of stopped.
I really appreciate all of your time and help!

[hhuuhn]

It looks to me like Change_smoking can *only* be 0,1 or 8. Is that true? Having fun answering two people at the same time?

Yes, it is strictly controlled, no other choices. Also, one only can select one choice, and impossible to have two people's data mixed...

[RuralGuy]

If it is a Text field then why wouldn't this code work?

Private Sub change_smoking_AfterUpdate()
   If Me![change smoking] = "8" Then
      Me![Ceased smoking] = ""
      Me![Ceased smoking].Enabled = False
      Me![ReducedSmoking] = ""
      Me![ReducedSmoking].Enabled = False
      Me![IncreasedSmoking] = ""
      Me![IncreasedSmoking].Enabled = False
   Else
      Me![Ceased smoking] = ""
      Me![Ceased smoking].Enabled = True
      Me![ReducedSmoking] = ""
      Me![ReducedSmoking].Enabled = True
      Me![IncreasedSmoking] = ""
      Me![IncreasedSmoking].Enabled = True
   End If
End Sub

[rommelgenlight]

on your very first message here on this forum, you said that this is a combo box. is the data on your combo box could be from a table? if so, what is the data type of your number 0,1,8 on your table?

[RuralGuy]

A lot would depend on RowSourceType, RowSource, ControlSource and BoundColumn. Would you tell us what those values are please?

[hhuuhn]

if it is a number format base on your lookup table, then your change_smoking.value must be a number and not text format like what you've done such as "8", "1", "0". it should only be 8,0 or 1. and like i've said you cannot make ms access decide for itself what to choose between two values there in your OR statement. you should assign one value.

Sorry, I think this is not let ms access to make choice, but to have wider choices, that means either "1" or"0" satisfys the condition it will be excuted. If only one value satisfy the condition, sure to assign one value.
Here, my data question is smoking changed or not, if Yes, or No selected, then further question, ceased or redused smoking or increased smoking. NA mean never smoked, so it doesn't make sense to have ceased, redused, increased... VB code has this function.
Also, I think here you talk data type as data format. Text type can have any kind of letters, numbers, signs, but numeric type only have number with some different format such as long, interger, simple, double etc.
My data is text type for this field, even though number is put, this number doesn't have any meaning itself, only a definition is given then it make sense, it can not be calculated. 1 means Yes, 1 can also mean No, depanding on what meaning you assign to.

Thank you very much for your time!

[hhuuhn]

A lot would depend on RowSourceType, RowSource, ControlSource and BoundColumn. Would you tell us what those values are please?

This field has row source type: Table/Query
Row Source: L_YN/NA ( looke up dable with two columns: Yes 1
No 0
NA 8
controlSource: change smoking ( from the main table)
Bound column: 2
Here I made typo to bound column 1. I just changed to column 2 when i checked. Now it works
Such a tiny typo made me crazy

Thanks a million to help me find problem!

[RuralGuy]

Bingo! I knew we would get there eventually. Thanks for posting back with your success.

[rommelgenlight]

good to know its working now.