When I try to duplicate a record with the three following Private subs blank I run into a error code 2110 Access can't move the focus to the control. Is there a way to not get the error messages when duplicating the record? I still want to have the controls available to force the user to use the form in the correct sequence as described in the Standard Operating Procedures (SOP). My intent is to stop from filling in the field at the wrong time and to clear the field with the message box pops.
Thanks
Private Sub O6_RECOMMENDATION__VOTE_AfterUpdate()
If Me.AO_RECOMMENDATION___VOTE & "" = "" Then
MsgBox "AO Recommendation Vote must be filled in first"
Me.O6_RECOMMENDATION__VOTE = Null
AO_RECOMMENDATION___VOTE.SetFocus
End If
End Sub
Private Sub GO_VOTE_AfterUpdate()
If Me.O6_RECOMMENDATION__VOTE & "" = "" Then
MsgBox "AO and O6 Recommendation Vote must be filled in first"
Me.GO_Vote = Null
O6_RECOMMENDATION__VOTE.SetFocus
End If
End Sub
Private Sub Final_VOTE_AfterUpdate()
If Me.AO_RECOMMENDATION___VOTE & "" = "" Or Me.AO_RECOMMENDATION___VOTE & "" = "" And Me!O6_Recommendation_Vote & "" = "" Then
MsgBox "Select a combination of" & Chr(10) & Chr(10) & "AORB Level -" & Chr(9) & "AO Vote" & Chr(10) & "CCB Level -" & Chr(9) & "AO and O6 Votes" & Chr(10) & _
"GO Level -" & Chr(9) & Chr(9) & "AO, O6 and GO Votes" & Chr(10) & Chr(10) & "before Final Vote is selected"
Me.Final_Vote = Null
O6_RECOMMENDATION__VOTE.SetFocus
End If
End Sub