stop code if address not there (1 Viewer)

[rainbows]

below is the code someone helped me with a while ago but i have now got a problem that

i would like to stop this give an error message if the address attached to the line number is not there in the table. i have discovered that people are not entering it and the reports are blank

So if i have an invoice for customer id no 149 the report will be ok but if i create another on say for customer id 150 . but there is no "address no" or information in the fields. i would like a message telling me

thanks
steve

Private Sub cmdOpenInvoice_Click()


    On Error GoTo Err_Handler
    
    Const MESSAGE_TEXT = "No current invoice."
 If Not IsNull([Invoice].[Form]![InvoiceNo]) Then
    
        ' ensure current record is saved
        Me.Dirty = False
        
         Me.addressno = InputBox("Please provide address line number")
        ' open report in print preview
        DoCmd.OpenReport "Invoice report", View:=acViewPreview
    Else
        MsgBox MESSAGE_TEXT, vbExclamation, "Invalid Operation"
    End If
    
Exit_Here:
    Exit Sub
    
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Here
End Sub

 

[Minty]

Why not give the user a list/combo of available addresses for that customer on the form, and not process the rest of the print command if it's not selected?

Asking them to know what address line no it is off the top of their heads seems a bit strange, and they could type anything into an input box that wasn't a valid choice. Take out the uncertainty in the process.

 

[June7]

Where is this code? Why do you show a table and not a form?

Data should be validated during data entry, not reporting.

 

[Gasman]

Shutting the barn doors after the horse has bolted aren't we

As mentioned, you should have data validation that prevents that happening.

As a stop gap, produce a report for records that have no address, and pass back t the user to rectify.?

Plus InputBoxes are very limited. Again as mentioned a form would be a much better option.