C
Cabby
Each of the following 2 lines of code work properly if used
seperately. But when I try to use them together, I get an error.
It has been suggested to use 'Resume Next', but I don't
know where to place it. Can anyone help?
TIA
Cabby
Me.Parent![ctrlSubform2].Requery
OR
Me.Parent!ctrlSubform2.Form!Description.RowSource _
= fProductList(Me!Supplier_ID)
Private Sub Form_Current()
' This code created by Form Wizard.
Dim strParentDocName As String
On Error Resume Next
strParentDocName = Me.Parent.Name
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![ctrlSubform2].Requery
Me.Parent!ctrlSubform2.Form!Description.RowSource _
= fProductList(Me!Supplier_ID)
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Err.Description
Resume Form_Current_Exit
End Sub
seperately. But when I try to use them together, I get an error.
It has been suggested to use 'Resume Next', but I don't
know where to place it. Can anyone help?
TIA
Cabby
Me.Parent![ctrlSubform2].Requery
OR
Me.Parent!ctrlSubform2.Form!Description.RowSource _
= fProductList(Me!Supplier_ID)
Private Sub Form_Current()
' This code created by Form Wizard.
Dim strParentDocName As String
On Error Resume Next
strParentDocName = Me.Parent.Name
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![ctrlSubform2].Requery
Me.Parent!ctrlSubform2.Form!Description.RowSource _
= fProductList(Me!Supplier_ID)
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Err.Description
Resume Form_Current_Exit
End Sub