Hi All!
I am trying to set a required field in a subform (datasheet view) upon exiting the main form. I have a save/close button which I have coded to require other fields within the main form, so I am familiar with how to require fields. I am just unsure on how to reference the subform field.
Main Form: Edit_Invoice
Subform: Create_Payment
Subform Field: Amount_Paid
Below is the current code I have on click for the save/close button There are no issues with the required fields from the main form, just adding the subform's field as required. Thanks!
Code:
Private Sub Command459_Click()
If IsNull(Me.cbo_ClientName) Then
MsgBox "PLEASE INSERT CLIENT NAME", vbExclamation, "DATA REQUIRED!"
Me.cbo_ClientName.SetFocus
Exit Sub
End If
If IsNull(Me.Combo482) Then
MsgBox "PLEASE ENTER SOC ACTIVE/INACTIVE", vbExclamation, "DATA REQUIRED!"
Me.Combo482.SetFocus
Exit Sub
End If
If IsNull(Me.Text423) Then
MsgBox "PLEASE ENTER SOC DATE", vbExclamation, "DATA REQUIRED!"
Me.Text423.SetFocus
Exit Sub
End If
If IsNull(Me.Text479) Then
MsgBox "PLEASE ENTER PAYMENT DUE DATE", vbExclamation, "DATA REQUIRED!"
Me.Text479.SetFocus
Exit Sub
End If
If IsNull(Me.Combo701) Then
MsgBox "PLEASE ENTER TOLLS OWED", vbExclamation, "DATA REQUIRED!"
Me.Combo701.SetFocus
Exit Sub
End If
If IsNull(Me.Combo702) Then
MsgBox "PLEASE ENTER FEES OWED", vbExclamation, "DATA REQUIRED!"
Me.Combo702.SetFocus
Exit Sub
End If
If IsNull(Me.Text491) Then
MsgBox "PLEASE ENTER TOLLS REMOVED", vbExclamation, "DATA REQUIRED!"
Me.Text491.SetFocus
Exit Sub
End If
If IsNull(Me.Text493) Then
MsgBox "PLEASE ENTER FEES REMOVED", vbExclamation, "DATA REQUIRED!"
Me.Text493.SetFocus
Exit Sub
End If
If IsNull(Me.Combo810) Then
MsgBox "PLEASE ENTER % FEE DISCOUNT", vbExclamation, "DATA REQUIRED!"
Me.Combo810.SetFocus
Exit Sub
End If
If IsNull(Me.Text455) Then
MsgBox "PLEASE ENTER VCD RUN DATE", vbExclamation, "DATA REQUIRED!"
Me.Text455.SetFocus
Exit Sub
End If
If IsNull(Me.Text443) Then
MsgBox "PLEASE ENTER VIOLATION START DATE", vbExclamation, "DATA REQUIRED!"
Me.Text443.SetFocus
Exit Sub
End If
If IsNull(Me.Text444) Then
MsgBox "PLEASE ENTER VIOLATION END DATE", vbExclamation, "DATA REQUIRED!"
Me.Text444.SetFocus
Exit Sub
End If
If IsNull(Me.Text453) Then
MsgBox "PLEASE ENTER NUMBER OF VIOLATIONS", vbExclamation, "DATA REQUIRED!"
Me.Text453.SetFocus
Exit Sub
End If
If IsNull(Me.Combo703) Then
MsgBox "PLEASE ENTER SOC CONTACT NAME", vbExclamation, "DATA REQUIRED!"
Me.Combo703.SetFocus
Exit Sub
End If
If IsNull(Me.Combo704) Then
MsgBox "PLEASE ENTER SOC CONTACT PHONE NUMBER", vbExclamation, "DATA REQUIRED!"
Me.Combo704.SetFocus
Exit Sub
End If
If IsNull(Me.Combo705) Then
MsgBox "PLEASE ENTER SOC CONTACT E-MAIL", vbExclamation, "DATA REQUIRED!"
Me.Combo705.SetFocus
Exit Sub
End If
If Forms!Master_ManAcc_Form_EDIT_Invoice_Data!SubForm.Payment_History_subform!Payment_Type <> "" Then
MsgBox "PLEASE ENTER PAYMENT TYPE"
Forms!Master_ManAcc_Form_EDIT_Invoice_Data!SubForm.Payment_History_subform!Payment_Type.SetFocus
Exit Sub
End If
DoCmd.Close
DoCmd.OpenForm "frmAdvancedSearch_Edit_Invoice_Data"
End Sub