Help with resetting form - optionbuttons

[RosemaryJB]

My apologies if you have already seen this - I added it to another, related thread but as no-one answered thought it might be overlooked.

I reset all the fields on a search form - Do I = 0 to Count etc.

This works for fine all (textbox, combobox, listbox, toggle buttton) except optionbutton which VB won't let me, saying I can't set a value to this field.

I've tried setting the optionbuttons to 0, defaultvalue & false.

I have to list each optionbutton individually & set them to 0.

As this is a form which changes frequently I'd prefer to Do I = 0 to Count rather than hard-code the field:

Any suggestions please - see code below

Private Sub ClrFilter_Click()

'Clear filter entries from screen

Dim I As Integer
Dim Index As Integer

For I = 0 To Forms![Frm Contacts Search].Count - 1
If TypeOf Forms Is TextBox Then
Forms = ""
ElseIf TypeOf Forms Is ComboBox Then
Forms = ""
ElseIf TypeOf Forms Is ListBox Then
For Index = 0 To Forms.ListCount - 1
Forms.Selected(Index) = False
Next Index
'next bit doesn't work
ElseIf TypeOf Forms Is OptionButton Then
Forms = 0
ElseIf TypeOf Forms Is ToggleButton Then
Forms.Value = Forms.DefaultValue
End If
Next I

'Option buttons - this works
Me!Broxbourne = 0
Me!Dacorum = 0
'etc - unfortunately there are lots of these!

End Sub
Reply With Quote

 

[rainman89]

how about something like

[FONT=monospace]Dim ctl As Control
For Each ctl In Me.Controls
    If (ctl.ControlType = acOptionbutton) Then
        ctl.Value = 0
    End If
Next ctl[/FONT]

 

[RosemaryJB]

Thank-you for your suggestion which I tried.

I still got the message 'you can't assign a value to this field'. However, I noticed the fields were in fact cleared so I inserted 'On Error Resume Next' before the statement which setting the optionbutton fields to False. The code now works perfectly.
BIZARRE!

I have now inserted this in the original code for consistency but many thanks - you gave me a clue.

I didn't know of 'control' as a type so I have learnt something new as well.