Option Groups - change value from number to text

[nchesebro]

I have a form with a set of option groups on it, and I have discovered that when using option groups, they store the selection in the table as a number, rather than text. So, I thought I could simply change the value in the properties box - and that didnt work at all...



So... I did some research online, and found that you could create a hidden text box that would, based on the selection, match a value to a string of text in VB. Here is such an example that I have implemented.

Private Sub Frame404_AfterUpdate()
Select Case Me![Frame404]
  Case 1
    Me![Text618] = "80+"
  Case 2
    Me![Text618] = "79-50"
  Case 3
    Me![Text618] = "49-33"
  Case 4
    Me![Text618] = "32-"
End Select
End Sub

This seems it should work, however, the value does not transfer to the text box, and i get this error:

"The expression After Update you entered as the event property setting produced the following error: A problem occured while Microsoft Access was communicating with the OLE server or ActiveX Control.

*The expression may not result in the name of a macro, the name or a user-defined function, or [Event Procedure].
*There may have been an error evaluating the function, event, or macro.

Show Help >>

This error occurs when an event has failed to run because the location of the logic for the event cannot be evaluated. For example, if the OnOpen property of a form is set to =[Field], this error occurs because a macro or event name is expected to run when the event occurs."

Does anyone know what is going on and how this is corrected?

[ajetrumpet]

have you tried replacing the "me!" with "me."?? you don't get intellisense when you use "me!"

also, control names that have no spaces do not need enclosures in brackets. try using the "." identifier

how about trying to use "case = 1" instead of "case 1"?? not that it matters I don't think though.

[nchesebro]

Still not working... I modified my code as follows:

Private Sub Frame384_AfterUpdate()
Select Case Me.Frame384
Case 1
Me.Text614 = "Above Average"
Case 2
Me.Text614 = "Average"
Case 3
Me.Text614 = "Below or None"
End Select
End Sub

[nchesebro]

i should also state that i switched "Case X" to "Case If = X"

[ajetrumpet]

i should also state that i switched "Case X" to "Case If = X"

i don't get it. what?

[nchesebro]

You said:

how about trying to use "case = 1" instead of "case 1"?? not that it matters I don't think though.

I said:

i should also state that i switched "Case X" to "Case If = X"

Therefore, I did as you suggested.

[ajetrumpet]

Case If = X

is not the same as

Case = X

, bud.

[nchesebro]

When entering "Case = X" into Micorsofts VB editor that pops up when you click 'view code' on the access toolbar, you cant simply type Case = X into the code. It inserts the If there regardless of what you do.

[ajetrumpet]

(laugh). I see. you typed it wrong, bud. it inserts the word "IS", not "IF".

but regardless, that doesn't do anything either, huh?

[nchesebro]

Holy crap, you are right.... it IS is... funny how one stinkin letter messes it up and causes such embarassment...

Nope, still doesnt make one damn difference... which is odd, because I would assume that this would be a simple fix since access seems to be so popular and, most forms use option groups... seems like they would take extra care to ensure a problem like this doesent happen...

I will say, I am stumped...

[ajetrumpet]

i'm out of ideas, as I don't work with option groups much anyway. it might be related, and it might also be related to a corrupted object.

last thing i'd say would be: create a new form JUST like this one that's causing the problem. don't copy anything, and don't use the same code OR the same module. do it all over again.

if it happens again, it's narrowed down to the file as the corrupted part. see what I'm doing? narrow it down, one step at a time, and you can do it yourself.

in terms of corruption, I've only had one time in my 10+ years of messing with Access that I actually found out that a module was corrupted. It's usually an object, namely forms or tables.