Solved Write Optionbox value as text

[Mylton]

Good afternoon
Sorry for the language, but I don't speak English well.

I know that it is necessary to create a decoupled option group for this value to be written as text.
I even found a topic, but the example was no longer present.

In doubt I have 1 form and 1 table

I would like the value of option 1 to be registered as not seen, or practically not seen, option 2 as seen and option 3 as clearly seen.

I created a MSG box to show the user their choice.

But I can't write the text itself.

Private Sub Frame1_Click()
Dim Tbl1 As Integer
Select Case Me.Frm1
Case Is = 1
MsgBox ("not seen, or barely seen")
' Me.Opcao1.Value = "not seen, or barely seen"

' DoCmd.RunSQL "UPDATE table1 SET table1.Frame1" = Me.Option1

' DoCmd.RunSQL "UPDATE table1 SET table1.Option1.Value "


Case Is = 2
MsgBox("See You")
' Me.Opcao2.Value = "is seen"
Case Is = 3
MsgBox("See Clearly")
' Me.Opcao3.Value = "is clearly seen"
End Select

End Sub




Some way.

Thanks

 

[Ranman256]

in a table tOptValues
1, not seen, or barely seen
2, is seen
3. is clearly seen

this table can be used in a query to translate the opt box.
or to show the text on screen using a combo to show get the text via the value.

 

[Mylton]

Ok
Pat Hartman

any reading tips so I can study coko to do this in VBA?
because I don't have the slightest idea of how to implement it.
thanks

 

[LarryE]

Here is an amended file for you. When you select an option, it will write the appropriate text to the Reply 1 field. Please note the changes to the VBA Select Case code. It was incorrect.

 

[Mylton]

It sure suits me.
Thank you very much.

Good week to everyone.

 

[Mylton]

good morning everyone
thanks for this teaching.

I wish you a great week