Forms - next record

[Sheba]

Hi, please I need help to figure out what is wrong with this my code I want the form (which consists of more than 20 option groups of buttons and check boxes) to clear ALL selections after the SAVE button is clicked. I have this code in the OnCurrent event of the form

If Me.NewRecord Then
Me.Frame1021 = Null
Me.Frame1071 = Null
Else


Me.Frame1021 = Switch(Me.ASAgiven = "Yes", 1, Me.ASAgiven = "No", 2, Me.ASAgiven = "Undetermined", 3)
Me.Frame1071 = Switch(Me.morphWhy, "Allergy", 1, Me.morphWhy = "Vital signs", 2)
End If


but I'm getting run time error '5': Invalid procedure call or argument on the line highlighted in red. Please help!

[June7]

Need = sign instead of the comma in front of "Allergy".

[Sheba]

yup, I fixed. Many thanks June7