Hello,
I want to add New info. and close the form but I got error:"you can't goto specical record" when I click the button. And also, the form not close yet.
Thank you for your help.
Jeannia
Here are my codes:
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
If PassWord.Value = Text8.Value Then
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, "sbfrmNewMember"
GoTo Exit_Command11_Click
Else
MsgBox "Verify PassWord not match, Please try again."
GoTo Exit_Command11_Click
End If
Exit_Command11_Click:
Exit Sub
Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click
End Sub
I want to add New info. and close the form but I got error:"you can't goto specical record" when I click the button. And also, the form not close yet.
Thank you for your help.
Jeannia
Here are my codes:
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
If PassWord.Value = Text8.Value Then
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, "sbfrmNewMember"
GoTo Exit_Command11_Click
Else
MsgBox "Verify PassWord not match, Please try again."
GoTo Exit_Command11_Click
End If
Exit_Command11_Click:
Exit Sub
Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click
End Sub