By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,847 Members | 2,354 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,847 IT Pros & Developers. It's quick & easy.

Opening a filtered form from a custom switchboard

P: 55
Hi - In Access 2000, I'm trying to create a switchboard so users can open a certain form with different filters. I thought I would use an option group with toggle buttons. I suppose it could be just a series of command buttons instead. Either way, I can't figure out the code to get Access to both open a form and filter it at the same time.

Part of my trouble is also that the terms I need to filter on are multiple words, and I'm really confused about how to correctly refer to things with multiple words that are separated by spaces when I'm working in VB -- when to use [], or _, or " ", etc.

The form is called BID LIST.
The filter is on a control called Status2. The options are:
1. Bid Accepted
2. Submitted Budgetary Bid
3. No Bid
4. Bid Rejected
5. Bid in Process
6. Bid Submitted
7. ...and of course, 'no filter' is another option. (In other words, just open the form).

I tried making just one command button to open the "Bid Submitted" version of the form. Using the command button wizard, I first created the button to open the BID LIST form. This is the code I got:
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
Then I had the code I've used in the past to create filtering option buttons within a form:
BID_List.Filter = "Status2 = Bid Submitted"
BID_List.FilterOn = True
Of course, I don't know how to deal with the two words Bid Submitted that are already within a quotation-marked statement... ??

And I couldn't figure out where to insert these two lines in the larger mess of code for opening the form. I tried:
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria

BID_List.Filter = "Status2 = [Bid Submitted]"
BID_List.FilterOn = True
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
...but I got an error message when I tried out the button ("Object Required"). I have no idea whether the error has to do with the wording, placement, or punctuation of the code I inserted.

Any ideas?

Angi
Feb 11 '08 #1
Share this Question
Share on Google+
9 Replies


ADezii
Expert 5K+
P: 8,616
Hi - In Access 2000, I'm trying to create a switchboard so users can open a certain form with different filters. I thought I would use an option group with toggle buttons. I suppose it could be just a series of command buttons instead. Either way, I can't figure out the code to get Access to both open a form and filter it at the same time.

Part of my trouble is also that the terms I need to filter on are multiple words, and I'm really confused about how to correctly refer to things with multiple words that are separated by spaces when I'm working in VB -- when to use [], or _, or " ", etc.

The form is called BID LIST.
The filter is on a control called Status2. The options are:
1. Bid Accepted
2. Submitted Budgetary Bid
3. No Bid
4. Bid Rejected
5. Bid in Process
6. Bid Submitted
7. ...and of course, 'no filter' is another option. (In other words, just open the form).

I tried making just one command button to open the "Bid Submitted" version of the form. Using the command button wizard, I first created the button to open the BID LIST form. This is the code I got:
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
Then I had the code I've used in the past to create filtering option buttons within a form:
BID_List.Filter = "Status2 = Bid Submitted"
BID_List.FilterOn = True
Of course, I don't know how to deal with the two words Bid Submitted that are already within a quotation-marked statement... ??

And I couldn't figure out where to insert these two lines in the larger mess of code for opening the form. I tried:
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria

BID_List.Filter = "Status2 = [Bid Submitted]"
BID_List.FilterOn = True
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
...but I got an error message when I tried out the button ("Object Required"). I have no idea whether the error has to do with the wording, placement, or punctuation of the code I inserted.

Any ideas?

Angi
Expand|Select|Wrap|Line Numbers
  1. BID_List.Filter = "[Status2] = 'Bid Submitted'"
  2. BID_List.FilterOn = True
Feb 12 '08 #2

P: 55
Expand|Select|Wrap|Line Numbers
  1. BID_List.Filter = "[Status2] = 'Bid Submitted'"
  2. BID_List.FilterOn = True

Thanks, but I'm still having the error problem. My form is called BID LIST, but I noticed that when I type BID_LIST.Filter, the program insists on automatically changing LIST to List. Maybe this is the problem. Is there any way to make it stop changing this?

Angi
Feb 12 '08 #3

ADezii
Expert 5K+
P: 8,616
Thanks, but I'm still having the error problem. My form is called BID LIST, but I noticed that when I type BID_LIST.Filter, the program insists on automatically changing LIST to List. Maybe this is the problem. Is there any way to make it stop changing this?

Angi
I'll try to duplicate the problem and get back to you.
Feb 12 '08 #4

ADezii
Expert 5K+
P: 8,616
Thanks, but I'm still having the error problem. My form is called BID LIST, but I noticed that when I type BID_LIST.Filter, the program insists on automatically changing LIST to List. Maybe this is the problem. Is there any way to make it stop changing this?

Angi
Expand|Select|Wrap|Line Numbers
  1. If your Form is called BID LIST, then:
  2. Forms![BID List].Filter = "[Status2] = 'Bid Submitted'"
  3. Forms![BID List].FilterOn = True
  4.              OR
  5. Me.Filter = "[Status2] = 'Bid Submitted'"
  6. Me.FilterOn = True
Feb 12 '08 #5

P: 55
Expand|Select|Wrap|Line Numbers
  1. If your Form is called BID LIST, then:
  2. Forms![BID List].Filter = "[Status2] = 'Bid Submitted'"
  3. Forms![BID List].FilterOn = True
  4.              OR
  5. Me.Filter = "[Status2] = 'Bid Submitted'"
  6. Me.FilterOn = True

Thanks for your help! That did it.

Patty
Feb 12 '08 #6

ADezii
Expert 5K+
P: 8,616
Thanks for your help! That did it.

Patty
You're welcome, Patty.
Feb 12 '08 #7

mshmyob
Expert 100+
P: 903
From Angi to Patty - neat trick (lol)
You're welcome, Patty.
Feb 12 '08 #8

ADezii
Expert 5K+
P: 8,616
From Angi to Patty - neat trick (lol)
After almost 3,000 Posts, the names sort of all blend in together. (LOL).
Feb 12 '08 #9

P: 55
After almost 3,000 Posts, the names sort of all blend in together. (LOL).
Oh well... I'll answer to both.

Angi, aka Patty
Feb 13 '08 #10

Post your reply

Sign in to post your reply or Sign up for a free account.