Object Required

[jossimon]

I have the following code and I am getting an error that says "Object Required." The debugger is highlighting the line "If NZ(TorderImpFilter.Shippable, 0) > 0 Then"
What am I doing wrong?

Private Sub Crt_ExportFile_Click()
Dim i As Integer
Dim StrSQL As String

If Nz(TOrderImpFilter.Shippable, 0) > 0 Then

For i = 1 To TOrderImpFilter.Shippable
StrSQL = "Insert into TExportFile (SITM,CustomerOrderNumber) VALUES TOrderImpFilter.SITM, TOrderImpFilter.CustomerOrderNumber from TOrderImpFilter;"
DoCmd.RunSQL StrSQL
Next i

Else
MsgBox "Shippable must be greater than 1."
End If

End Sub

 

[PHV]

TOrderImpFilter is a table, so take a look at the DLookUp function:
If Nz(DLookUp("Shippable", "TOrderImpFilter"), 0) > 0 Then

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[jossimon]

I am now getting an error stating Syntax error in Insert Into statement.

 

[PHV]

Can you post your amended code ?
Anyway, replace VALUES by SELECT

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244