Converting Option value to text

[James3mc]

I have a form with a Frame containing three option buttons, which return the values 1, 2 or 3.

However I want the underlying database field to contain "Book", "Video" or "DVD" (rather than 1, 2 or 3).

As the Option values can only be numeric, how do i get the text values into the table?

So far I have the following code (which fails) :

Private Sub Frame1_AfterUpdate()
    If Me.Frame1 = 1 Then
        tblBooks!Resource = "Book"
    End If
End Sub

[NTC]

just repeat that stack of code for 2 and 3....

[James3mc]

No, like i say it fails. The first problem is that on compiling, it returns the error "Variable not found" referring to "tblBooks" (and the table tblBooks does indeed exist).

The full sub is :

Private Sub Frame1_AfterUpdate()
    If Me.Frame1 = 1 Then
        tblBooks!Resource = "Book"
    ElseIf Me.Frame1 = 2 Then
        tblBooks!Resource = "Video"
    Else
        tblBooks!Resource = "DVD"
    End If
End Sub

[NTC]

you need to refer to the control in the form - not the table itself....

so that when OptionGrp is = 1 then Me.TextBoxName = "Book"

part of this fix depends on what you have now...the OptionGrp should be unbound (because you are not wanting 1,2,3 going to the table)....so then you have Me.textboxName is the field that is bound so that when you fill it with this code the word "Book" goes to the table....

If OptionGrp is currently bound to the table; unbound it....you have to go to the table and if that field's property is number you need to make it text...

[James3mc]

Ar that's it, brilliant, thank you