Option buttons

[teebird]

Hi Everyone

I have 3 option buttons on a form that when the user selects 1, 2 or 3, 2 textboxes will be disabled. Here is my code but I am stuck.

Private Sub fraReport_BeforeUpdate(Cancel As Integer)
Dim i As Integer

Const conMyValue = 1

For i = 1 > 3

If Me!fraReport.Value = conMyValue Then

Me!BeginningDate.Enabled = False

Me!EndingDate.Enabled = False

Else

Me!BeginningDate.Enabled = True

Me!EndingDate.Enabled = True

End If
Next i
End Sub

It will only grey out on the 1st option button. Any help would be great.

Thanks tee

 

[rbowes]

What is the loop for?

Try this:

Private Sub fraReport_AfterUpdate()

If Me!fraReport.Value = 1 Then
Me!BeginningDate.Enabled = False
Me!EndingDate.Enabled = False
Else
Me!BeginningDate.Enabled = True
Me!EndingDate.Enabled = True
End If

End Sub

Hope that helps.


Bob