F
F1stman
Hello all,
Below is a VBA command that I created to verify that a previous value has
been entered and to open a new form if it has. I have looked this thing over
for about an hour and still no luck. I am fairly new at VBA and advice or
critiques will be much appreciated. Many Thanks, Adam Kemp
Private Sub Custom_ID_Click()
IIf(IsNull(Forms![Invoice Entry]![Invoice ID]), MsgBox("Please enter and
Invoice # before proceeding." _
& Chr(13) & Chr(10) _
& "This will insure data integrity." _
& Chr(13) & Chr(10) _
& "Press OK to return to previous screen", _
vbOK, "Insufficient Data"), DoCmd.OpenForm (Form![SelectInvEncu#1],
acNormal, , [Custom ID] = [Forms]![Invoice
Entry]![EntryLedgerListing].[Form]![Custom ID], acFormEdit, acDialog) =
vbOK)
End If
End Sub
Below is a VBA command that I created to verify that a previous value has
been entered and to open a new form if it has. I have looked this thing over
for about an hour and still no luck. I am fairly new at VBA and advice or
critiques will be much appreciated. Many Thanks, Adam Kemp
Private Sub Custom_ID_Click()
IIf(IsNull(Forms![Invoice Entry]![Invoice ID]), MsgBox("Please enter and
Invoice # before proceeding." _
& Chr(13) & Chr(10) _
& "This will insure data integrity." _
& Chr(13) & Chr(10) _
& "Press OK to return to previous screen", _
vbOK, "Insufficient Data"), DoCmd.OpenForm (Form![SelectInvEncu#1],
acNormal, , [Custom ID] = [Forms]![Invoice
Entry]![EntryLedgerListing].[Form]![Custom ID], acFormEdit, acDialog) =
vbOK)
End If
End Sub