Option Group Event problem

[Ant_Snell]

I have an option group on a form labelled Approved (value 1) and Declined (value 2) the values go into a text box “Approved_Declined” where the visible properties are false.
If the user selects Approved option I want to enter current date into “Date_Approved_Declined” & clear ant data from “DeclinedReason”
If the user selects Declined option I want to make the “DeclinedReason” field visible & enter current date in the “Date_Approved_Declined”


I have used the following code on the ‘On Change’ property of “Approved_Declined” field. But nothing works when selecting the option buttons. If I manually change the “Aproved_Declined” (this will not be visible in the final desighn) field my MsgBox Test works but not the current date update. Am I using the wrong property to attach the code to, but if so where should I put it? Thanks
'MsgBox "test"


Date_Approved_Declined = Now()
If Approved_Decline = 2 Then
Me.DeclineReason.Visible = True
Else
Me.DeclineReason.Value = ""
Me.DeclineReason.Visible = False
End If

[CJ_London]

help if you used the correct terminology - fields do not have events, controls and form object components do.

But sounds to me like you need to be using an event (suggest afterupdate) on your Approved option group control since it would appear this is where you want to be triggering the code.

The change event is only valid whilst the control has the focus and does not impact the final value of the control until it is updated/lost focus. So you might use it in a control where the user is typing and you want to do something every time they enter or remove a character. Note that pasting a value into a control will also trigger the change event since it has to receive the focus to accept the paste. However modifying the control value by using vba or a macro will not trigger the change event since it does not receive the focus.

[June7]

Try the AfterUpdate event of Option Group frame control.

Set radio button values to 0 (False) for Declined (i.e. NotApproved) and -1 (True) for Approved then code:

With Me
If .Option Then .DeclineReason = Null
.Date_Approved_Declined = Now()
.DeclineReason.Visible = Not .Option
End With

I don't allow empty string in fields so I use Null instead of "".

[Ant_Snell]

Thanks June7, that's sorted it. Easy when you know what you are doing!