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:
Then I had the code I've used in the past to create filtering option buttons within a form:
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:
...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
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_C lick
On Error GoTo Err_Command13_C lick
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command13_ Click:Dim stLinkCriteria As String
stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit Sub
Err_Command13_C lick: MsgBox Err.Description
Resume Exit_Command13_ Click
End SubResume Exit_Command13_ Click
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.Filter On = True
BID_List.Filter On = 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_C lick
On Error GoTo Err_Command13_C lick
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria
BID_List.Filter = "Status2 = [Bid Submitted]"
BID_List.Filter On = True
Exit_Command13_ Click:Dim stLinkCriteria As String
stDocName = "BID LIST"
DoCmd.OpenForm stDocName, , , stLinkCriteria
BID_List.Filter = "Status2 = [Bid Submitted]"
BID_List.Filter On = True
Exit Sub
Err_Command13_C lick:MsgBox Err.Description
Resume Exit_Command13_ Click
End SubResume Exit_Command13_ Click
...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
Comment