Code:
[Forms]![frmTracer]![Return Date]<Date()
[Forms]![frmTracer]![Return Date]<Date()
Private Sub Command8_Click() If Me.fPrint = "" Then Me.fPrint = "Y" Else Me.fPrint = "" End If End Sub
Private Sub Command170_Click() Call fillwordform End Sub Private Sub fillwordform() Dim appword As Word.Application Dim doc As Word.Document
SELECT tblEmployees.LastName, tblEmployees.Billet , tblEmployees.Program, tblEmployees.[Parent Company] FROM tblEmployees WHERE (( (tblEmployees.LastName) Like "*" & [Forms]![frmSearch]![LastName] & "*") AND ((tblEmployees.Billet) Like "*" & [Forms]![frmSearch]![Billet] & "*") AND ((tblEmployees.Program)
Like "*" & Forms!SearchFor m!LastName & "*"
and three other search criteria. The problem is that some search fields are not pulling every record. Can anybody help or suggest another way to do this. Thanks.
Leave a comment: