Help on before and after update procedure

[JOM]

based on the idea that I found in the following website
http://www.rogersaccesslibrary.com/download3.asp?SampleName=OtherProblem.mdb

My table has a borrowers address and the loan account's address and a field
AcctDescrAvailable which means is the loan account's address avaiable. (I
did not want have so much cluther on the form. as in have 2 address on the
form that is why I used AcctDescrAvailable which has values Yes,No, Unknown).

If the user selects No then the popup form pops up for the user to enter the
Loan Accounts address. If the user selects Yes, then the Loan Account
address will be updated with the Borrowers address., if unknown, then the
loan account address information will be left blank.

My form has before update event procedure which will not save a record if
certain information is missing, a popup will comeup informing the user to
enter the missing information.

The problem is that when I select the AcctDescrAvailable combox to select
Yes/No/Unknown, form's beforeupdate procedure fires up to inform me that I
need to enter certain information.

So I press ok then then the runtime error 2501, the Domenuitem action was
cancelled. If you press debug it points to the DoCmd.DoMenuItem acFormBar,
acEditMenu, acPaste, , acMenuVer70
Which is in the afterupdate procedure of that combobox ...

I hope this is understandable....
*********************AfterUpdate Procedure*********************
Private Sub AcctDescrAvailable_AfterUpdate()
Dim strARG As String
Dim strSQL As String
Dim DocName As String
Dim LinkCriteria As String
Dim Response As Integer
Dim Cancel As Boolean

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

If AcctDescrAvailable.Value = "No" Then
strARG = _
"Account Information, SELECT MailAddressLine1 as
AcctAddrLine1,MailAddressLine2 as AcctAddrLine2, propCity as AcctCity,
MailState as AcctState,MailZipCode as AcctZipCode FROM tblAcctInfor where
[AcctID] = " & AcctID & ";"
DocName = "frmAcctDescInput"
DoCmd.OpenForm DocName, , , LinkCriteria, , , strARG
Else
strSQL = "UPDATE tblAcctInfor SET MailAddressLine1, MailAddressLine2,
MailCity, MailState, MailZipCode= null where [AcctID] =" & AcctID & ";"
CurrentDb.Execute strSQL
End If

End Sub

**********************************************

***************beforeUpdate Procedure**************
If Me!AcctDecision.Column(1) = "Pending" Then
Debug.Print "Pending"
If IsNull(Me!AcctCode) Then
Debug.Print "AcctCode is null. Cancelling."
Cancel = True
strControl = strControl & "Select an Account Name" & vbCrLf
End If
End If
**********************************************