Searching

  • Thread starter Thread starter Yousoft
  • Start date Start date
Y

Yousoft

Hi, All
I want find or search the vendor name on the list object, by typing or
matching at least 8 letters,
The following code only it is searching by typing the first letter, so I
need some one to help me to find the vendor name while typing full first name
or full name on the list object
Thanks


Private Sub List53_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Vendor] = '" & Me![List53] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
 
Try code like this:

Private Sub List53_AfterUpdate()
Dim rs As DAO.Recordset
Dim strWhere As String

If Not IsNull(Me.cboMoveTo) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
strWhere = "([Vendor] Like """ & Me![List53] & "*"")"
rs.FindFirst strWhere
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
End Sub

Explanation of the code:
http://allenbrowne.com/ser-03.html
 
Thanks Mr. Browne, for your reply but this code not working, please try check
it again, specially line no 4 ( I mentioned below)
(If Not IsNull(Me.cboMoveTo) Then))
thanks

Allen Browne said:
Try code like this:

Private Sub List53_AfterUpdate()
Dim rs As DAO.Recordset
Dim strWhere As String

If Not IsNull(Me.cboMoveTo) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
strWhere = "([Vendor] Like """ & Me![List53] & "*"")"
rs.FindFirst strWhere
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
End Sub

Explanation of the code:
http://allenbrowne.com/ser-03.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.


Yousoft said:
Hi, All
I want find or search the vendor name on the list object, by typing or
matching at least 8 letters,
The following code only it is searching by typing the first letter, so I
need some one to help me to find the vendor name while typing full first
name
or full name on the list object
Thanks


Private Sub List53_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Vendor] = '" & Me![List53] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Click to expand...
Click to expand...
 
Sorry: cbMoveTo is the name of my combo.
Replace that with the name of your list box, i.e. List53

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.


Yousoft said:
Thanks Mr. Browne, for your reply but this code not working, please try
check
it again, specially line no 4 ( I mentioned below)
(If Not IsNull(Me.cboMoveTo) Then))
thanks

Allen Browne said:
Try code like this:

Private Sub List53_AfterUpdate()
Dim rs As DAO.Recordset
Dim strWhere As String

If Not IsNull(Me.cboMoveTo) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
strWhere = "([Vendor] Like """ & Me![List53] & "*"")"
rs.FindFirst strWhere
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
End Sub

Explanation of the code:
http://allenbrowne.com/ser-03.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.


Yousoft said:
Hi, All
I want find or search the vendor name on the list object, by typing or
matching at least 8 letters,
The following code only it is searching by typing the first letter, so
I
need some one to help me to find the vendor name while typing full
first
name
or full name on the list object
Thanks


Private Sub List53_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Vendor] = '" & Me![List53] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Click to expand...
Click to expand...
Click to expand...
 
Back
Top