thetambarineman
Technical User
Hello all
Previously ive had a search that isnt a string comparison.
As an enhancement id like it to be.
My code(which as usual- is pretty messy)
frmemployer.dbemployer.Recordset.MoveFirst
frmemployer.dbemployer.Recordset.FindFirst "employer_name='" & txtsearchemp & "'"
If frmemployer.dbemployer.Recordset.NoMatch = True Then
With assistant
.Show
.Speak ("No records found- please refine your search"
.Hide
End With
txtsearchemp.SetFocus
Else
frmemployer.dbemployer.RecordSource = "select * from dbemployer where employer_name like'" & "*" & txtsearchemp & "'*"
Listemp.AddItem frmemployer.dbemployer.Recordset("employer_name"
End If
Thanks in advance..
Previously ive had a search that isnt a string comparison.
As an enhancement id like it to be.
My code(which as usual- is pretty messy)
frmemployer.dbemployer.Recordset.MoveFirst
frmemployer.dbemployer.Recordset.FindFirst "employer_name='" & txtsearchemp & "'"
If frmemployer.dbemployer.Recordset.NoMatch = True Then
With assistant
.Show
.Speak ("No records found- please refine your search"
.Hide
End With
txtsearchemp.SetFocus
Else
frmemployer.dbemployer.RecordSource = "select * from dbemployer where employer_name like'" & "*" & txtsearchemp & "'*"
Listemp.AddItem frmemployer.dbemployer.Recordset("employer_name"
End If
Thanks in advance..