Search form

[Guest]

Hello all

I have created a form to enable users to search for an application rather
than use the CTRL+F find function built into access.

I have created the following:-

1. A form called Search_Form
The search form contains a listbox. The list box is populated from a query
called Search_Bar. The Query Search_bar contain the following:-

Expr1: [Data Entry]![Customer Name]
Expr2: [Data Entry]![Application ID]
Expr3: [Data Entry]![Lender]

The list box is set up to read the query and this so far is working OK

What I want to do is be able to click on an entry in this listbox and have
it take me to the respective entry in the Data Entry form (form name is
Data_Entry)

I would also like it to be able to search by Lender, Application ID or
Customer name.

If the user chooses search by lender, I would like the search function to
bring up everything in the data base for that particular lender.

Does this sound like it is going to work???

 

[Lee-Anne W via AccessMonster.com]

Dim StrControlNum As String
StrControlNum = Me.yourlistboxname.Column(0) 'assuming you have a unique
identifier for each record

DoCmd.OpenForm "frmData_Entry", acNormal, , "YourUniqueIdentifiedHere= "
& StrControlNum, acFormEdit

you can put this on the double click event if you wish...

Lee-Anne

Hello all

I have created a form to enable users to search for an application rather
than use the CTRL+F find function built into access.

I have created the following:-

1. A form called Search_Form
The search form contains a listbox. The list box is populated from a query
called Search_Bar. The Query Search_bar contain the following:-

Expr1: [Data Entry]![Customer Name]
Expr2: [Data Entry]![Application ID]
Expr3: [Data Entry]![Lender]

The list box is set up to read the query and this so far is working OK

What I want to do is be able to click on an entry in this listbox and have
it take me to the respective entry in the Data Entry form (form name is
Data_Entry)

I would also like it to be able to search by Lender, Application ID or
Customer name.

If the user chooses search by lender, I would like the search function to
bring up everything in the data base for that particular lender.

Does this sound like it is going to work???

 

[Guest]

Lee-Anne

Sorry.. you have totally lost me here with the unique identifier. Would the
unique Identifier be the application ID as per my posting or another
identifier???!!!

Dim StrControlNum As String
StrControlNum = Me.yourlistboxname.Column(0) 'assuming you have a unique
identifier for each record

DoCmd.OpenForm "frmData_Entry", acNormal, , "YourUniqueIdentifiedHere= "
& StrControlNum, acFormEdit

you can put this on the double click event if you wish...

Lee-Anne

Hello all

I have created a form to enable users to search for an application rather
than use the CTRL+F find function built into access.

I have created the following:-

1. A form called Search_Form
The search form contains a listbox. The list box is populated from a query
called Search_Bar. The Query Search_bar contain the following:-

Expr1: [Data Entry]![Customer Name]
Expr2: [Data Entry]![Application ID]
Expr3: [Data Entry]![Lender]

The list box is set up to read the query and this so far is working OK

What I want to do is be able to click on an entry in this listbox and have
it take me to the respective entry in the Data Entry form (form name is
Data_Entry)

I would also like it to be able to search by Lender, Application ID or
Customer name.

If the user chooses search by lender, I would like the search function to
bring up everything in the data base for that particular lender.

Does this sound like it is going to work???

 

[Lee-Anne W via AccessMonster.com]

hi,

the unique identifier would be the auto number or somethng similiar that is
unique to each record

Lee-Anne

Sorry.. you have totally lost me here with the unique identifier. Would the
unique Identifier be the application ID as per my posting or another
identifier???!!!

Dim StrControlNum As String
StrControlNum = Me.yourlistboxname.Column(0) 'assuming you have a unique

[quoted text clipped - 35 lines]

 

[Guest]

Thanks Lee-Ann It is working now!

How can I make the list appear in Alphabetical order. The list box captures
Lender, Application ID & Customer name (Customer name is in one box First
name first, last name last) Is there a way of going this????

Thanks

hi,

the unique identifier would be the auto number or somethng similiar that is
unique to each record

Lee-Anne

Sorry.. you have totally lost me here with the unique identifier. Would the
unique Identifier be the application ID as per my posting or another
identifier???!!!

Dim StrControlNum As String
StrControlNum = Me.yourlistboxname.Column(0) 'assuming you have a unique

[quoted text clipped - 35 lines]

Does this sound like it is going to work???

 

[Lee-Anne Waters via AccessMonster.com]

hi,

open the list box in design view and open the select query. you can then set
your records to sort ascending or descending on the required fields

Lee-Anne

Thanks Lee-Ann It is working now!

How can I make the list appear in Alphabetical order. The list box captures
Lender, Application ID & Customer name (Customer name is in one box First
name first, last name last) Is there a way of going this????

Thanks

hi,

[quoted text clipped - 12 lines]