Search Function

[Guest]

I have created a database which will hold about 1000 or more records which
will consist of 8 to 10 digits per record. I am having difficulty in creating
a function within a form which will allow me to carry out a search on these
records.

What I had in mind was a function which will allow the user to carry out a
seach on these records. However, the user might not know all of the digits.
They might only know 2, 3 or perhaps 7 of these digits and once they have
been entered I am looking for a list of possible results. Most probably by
using a continous form.

Firstly, is it possible to do something like this?

Secondly, if this is possible, how does one go about designing and
developing something hopefully as powerful as this.

Thanks In Advance,
Kieron White

 

[Pieter Wijnen]

Create a textbox named search & enter the numbers + * or ? as wildcard(s)
examples:
123*78*
1237?89*

In the afterupdate_event of the field put:

Private Sub Search_AfterUpdate()
Me.Filter = "TheNumberfield Like '" & Me!Search & "'"
Me.FilterOn = True
End Sub

HTH

Pieter

I have created a database which will hold about 1000 or more records which
will consist of 8 to 10 digits per record. I am having difficulty in
creating
a function within a form which will allow me to carry out a search on
these
records.

What I had in mind was a function which will allow the user to carry out a
seach on these records. However, the user might not know all of the
digits.
They might only know 2, 3 or perhaps 7 of these digits and once they have
been entered I am looking for a list of possible results. Most probably by
using a continous form.

Firstly, is it possible to do something like this?

Secondly, if this is possible, how does one go about designing and
developing something hopefully as powerful as this.

Thanks In Advance,
Kieron White

--

 

[Pieter Wijnen]

Create a textbox named search & enter the numbers + * or ? as wildcard(s)
examples:
123*78*
1237?89*

In the afterupdate_event of the field put:

Private Sub Search_AfterUpdate()
Me.Filter = "TheNumberfield Like '" & Me!Search & "'"
Me.FilterOn = True
End Sub

HTH

Pieter

 

[Guest]

Hi Kieron,

I have a sample tutorial that I can send to you. If you are interested, send
me a private e-mail message with a valid reply-to address. My e-mail address
is available at the bottom of the contributor's page indicated below.

Please do not post your e-mail address (or mine) to a newsgroup reply. Doing
so will only attract the unwanted attention of spammers.


Tom Wickerath
Microsoft Access MVP

http://www.access.qbuilt.com/html/expert_contributors.html
http://www.access.qbuilt.com/html/search.html
__________________________________________