Hi there,
I am trying to filtered the data by Invoice no. in my one of the field and I get the following overflow error...the coding is
your help is appreciated...
thnks
ankit
I am trying to filtered the data by Invoice no. in my one of the field and I get the following overflow error...the coding is
Code:
Private Sub cboInvoiceNumber_AfterUpdate()
Dim intInvoiceNumber As Integer
intInvoiceNumber = Nz(Me![cboInvoiceNumber])
strFilter = "[InvoiceNumber] =" & intInvoiceNumber
Me![FilterString] = strFilter
DoCmd.RunCommand acCmdSaveRecord
strRecordSource = "qryMainSearch"
strQuery = "qryFilteredMainSearch"
strSQL = "SELECT * FROM " & strRecordSource & " WHERE " _
& strFilter & ";"
Debug.Print "SQL Statement: " & strSQL
Debug.Print CreateAndTestQuery(strQuery, strSQL) _
& " records found"
Me![subSearchResults].Form.RecordSource = strQuery
End Sub
your help is appreciated...
thnks
ankit