I tried to check if all required fields have been filled before saving the record using the following code.
Private Sub txtReportNo_BeforeUpdate(Cancel As Integer)
If IsNull(Me.cboMainCat) Then
Cancel = True
MsgBox ("Please enter Data for Main Cat")
Me.cboMainCat.SetFocus
End If
Repeat above code for all required controls here.
End Sub
It did not work with following error code.
Run-time error ‘2108’
You must save the field before you execute the GoToControl action, the GoToControl method, or the SetFocus method.
The error message contradicts my original intention that prevents from saving without all required fields have been filled. Is there any way to get rid of this error message?
In addition, under the value of certain field, I need to check additional fields under that scenario. Is any additional code required to add in for that purpose?
Private Sub txtReportNo_BeforeUpdate(Cancel As Integer)
If IsNull(Me.cboMainCat) Then
Cancel = True
MsgBox ("Please enter Data for Main Cat")
Me.cboMainCat.SetFocus
End If
Repeat above code for all required controls here.
End Sub
It did not work with following error code.
Run-time error ‘2108’
You must save the field before you execute the GoToControl action, the GoToControl method, or the SetFocus method.
The error message contradicts my original intention that prevents from saving without all required fields have been filled. Is there any way to get rid of this error message?
In addition, under the value of certain field, I need to check additional fields under that scenario. Is any additional code required to add in for that purpose?