Change A Listbox Recordsource With The Use Of Option Buttons
May 27, 2005
Good afternoon
I have been helped out so many times in the past here I thought I would try my luck again.
Is it possible with the use of option buttons to change the row source of a listbox?
I want to use the listbox for a search criteria and thought it might be easier to have 1 listbox been updated from the choices made using a group of buttons.
I would like like the row source to be based on different tables maybe I might need to use queries.
I am using an Access database for a foreign language dictionary project.
One of the forms I use is populated by a query (qryLemmaTable) to retrieve information from tblLEMMA.
This form works precisely as I intend it to work, but there is a glitch on it that is driving me mad.
The form in question has an option group with 11 radio buttons that correspond to the parts of speech associated with each word in tblLEMMA.
When I click on the button optAdjective I apply a filter and the only records that are displayed are adjectives. (The same applies for Nouns, Verbs, Prepositions etc.)
Here is the glitch: even though the radio buttons apply the filter correctly, no “black spot” appears in the button. Other signals on the screen let me know what word type is selected, so I can accomplish what I want, but I want the “black spots” too!
Perhaps this will be a clue: For each radio button I use the following code in the GotFocus event. Me.FilterOn = False Me.Filter = "wordtype = 'A'" ‘(or N, etc) Me.FilterOn = True
And this for the Lost Focus event Me.FilterOn = False
If Not IsNull(Me.[StartDate]) And Not IsNull(Me.[EndDate]) Then strCriteria = strCriteria & "tblWO.Created Between #" & _ Format(Me.[StartDate], "m/d/yyyy") & "# And #" & _ Format(Me.[EndDate], "m/d/yyyy") & "#"
What I am trying to do is trigger a message box from the onclick of a command button on Form 2 and read the listbox # records on Form 1. It's gotta be something simple in my syntax. Search hasnt provided this scenario for me. I have tried these and more:
'If Forms("frmFilter").RecordsetClone.RecordCount = 0 Then 'If IsNull(Forms("frmFilter")).Listbox1 Then 'If Forms("frmFilter").Listbox1.RowSource = 0 Then 'If Forms("frmFilter").Listbox1.RowSource = Null Then 'If [Forms]![FrmFilter]![Listbox1.recordcount] = 0 Then 'If Forms("frmFilter").Listbox1.RecordCount = 0 Then 'If Forms("frmFilter").Listbox1.RecordCount = "" Then 'If Forms("frmFilter").Listbox1.RecordCount = Null Then
MsgBox "Sorry, no records meet your chosen dates. Change the dates and try again."
I've been trying to determine what recordsource to apply to a listbox to get the following results for its three columns:
Column1 Column2 Column3 AddressID Address Owner
The data is being pulled from two tables:
tblAddress AddressID (pk) HouseNum Street Apt
tblOwner OwnerID (pk) AddressID (fk) LastName FirstName Current
Problem: I need each record from the Address Table to be shown with the most current Owner information from the related table. The most current Owner Information record is identified by a checkmark in the 'Current' field.
I've tried the following queries:
This query gives me duplicate addresses for each instance of owners: SELECT DISTINCTROW [AddressID], [HouseNum] & ' ' & [Street] & ' ' & [Apt] AS Address, tblOwner.LastName AS Owner FROM tblAddress LEFT JOIN tblOwner ON tblOwner.AddressID=tblAddress.AddressID;
This query gives me only addresses that have a current owner, the problem is, sometimes a house won't have any related owner record in the owner table: SELECT DISTINCTROW [AddressID], [HouseNum] & ' ' & [Street] & ' ' & [Apt] AS Address, tblOwner.LastName AS Owner FROM tblAddress LEFT JOIN tblOwner ON tblOwner.AddressID=tblAddress.AddressID WHERE tblOwner.Current = True;
Can this even be done with a query? This is driving me nuts. Help!
I have a report that can be used for 3 different queries. I've been trying for the last hour or so to get three different buttons on a form to open this report but give it an appropriate record source. I figured there's got to be a way that's easier than three queries, and three reports...? I was trying to use the same format as with forms : [Reports]![rptReportName].recordsource = "qryQueryName"
or variations of that. Am I way off? It keeps saying that I've misspelled the name or it doesn't exist.
I want to write Visual Basic language in the form with one button:
I have one form named "setForm" with one button and one text box: Let's set the new table "frm2", the new form "frm2"
Dim sql As String sql = "SELECT [model].* INTO frm2 FROM [model]" CurrentDb.Execute sql DoCmd.CopyObject CurrentDb.Name, "frm2", acForm, "frm1" Forms!frm2.RecordSource = "frm2"
The last statement code doesn't work: It is said that Microsoft Access cannot find the form "frm2" referred to in a macro expression or visual basic code.
But I don't know what to put for an expression. I would like to use the same form but base the RecordSource on a query called "Receiving Search by Date". :eek:
How do i make my subfrm record source switch to another saved query (qryPendingStatus) when it's opened from the form.
Heres what i am trying to accomplish: I have a subfrm that i'd like to use to display info in 2 different forms.
There's a form currently for All statuses. Then another new one for Pending status. I'd like to use the same subform for this pending status form also, and in doing that my qryAllStatuses, but change to qryPendingStatus on the subfrm when i open the mainfrom.
This is on the open even ofthe mainform, but does not work (says method not founds...so obviouly i can't use ".Recordsource" here: Private Sub Form_Open(Cancel As Integer) Me.subfrmJobInfo.RecordSource = "qryPendingStatus" End Sub
I have been tryign to work with Option Buttons and am not having much success. I have been looking on line for examples and I get close.
The example tells me to Set the GroupName Property although I can not seem to find it.
Basically what I do is use the wizard and select the Option Group and add that to the form. With the wizard I enter three Label Names and take the default Values. I then add a Control Button and use the code below.
Result: Everytime I click the Control Button it gives me all three MsgBox's. Its reading all the values in the Option Group NOT the one that is selected??????
CODE: Private Sub Command11_Click()
Dim x As Control
For Each x In Me.Controls
If InStr(x.Name, "Value1") Then MsgBox "You Selected Value1" ElseIf InStr(x.Name, "Value2") Then MsgBox "You Selected Value2" ElseIf InStr(x.Name, "Value3") Then MsgBox "You Selected Value3"
End If Next End Sub
I HAVE BEEN TRYING A FEW VARIATIONS AND I GET ERRORS WHEN USING THEM: 1. I changed the .Caption to .Name...IF I USE CAPTION it tells me that this "Object does not support this property or method" 'Check for the string "Option" within the caption of each control. If InStr(x.Caption, "Option") Then
2. Dont knwo where GroupName is 'Check the group name. If x.GroupName = "mygroup1" Then MsgBox x.Caption
3. Value gets an error 'Check the status of the option button. If x.Value = True Then
Below is the code that I used to make a Menu. The only problem is that when a report is opened, it is placed under the Menu form instead of on top of it.
How can I get it to stay on top?
Private Sub Frame2_Click()
DoCmd.Restore On Error GoTo MyTrap
Select Case Me.Frame2
Case Is = 1 DoCmd.OpenForm "Resident from Last Name", acNormal
Case Is = 2 DoCmd.OpenForm "Resident from Phone No", acNormal
Case Is = 3 DoCmd.OpenForm "Resident from Address", acNormal
Case Is = 4 DoCmd.OpenReport "Multiple Addresses", acViewPreview
Case Is = 5 DoCmd.OpenReport "Missing Phone Numbers", acViewPreview
Case Is = 6 DoCmd.OpenForm "Update/Add/Modify PGIDdb"
Case Is = 7 DoCmd.OpenForm "Delete Records", acNormal
Case Is = 8 DoCmd.OpenReport "PrintAll", acViewPreview
End Select
MyTrap: If Err.Number = 2501 Then MsgBox "Action Canceled" Else End If
DoCmd.Close acForm, "PGMenu" DoCmd.OpenForm "PGMenu", acNormal 'This places Menu on top of opened report etc.
I need 2 option buttons created individually, as an option group has proven utterly worthless to me for what I need.
A simple Yes / No pair that toggle back and forth when clicked.
I would use an option group, but you cannot define an On Click Event Procedure on an Option group button, and I cannot set the value of an option to 1.06 or anything other than whole numbers.
I just want to set a simple On Click event for each to set a variable to one of 2 possible values.
how to use option buttons? I've looked around, but I cant find any site, thread, etc, etc on how to fully use them. I have 3 option buttons, there "Retired" "Current" and "Not Stocking" I want them to be tied the the list box named "lstItems" that gets its info from a qryItems.
I have a form based on a query that has 16 options for values in one of the fields. I wanted to put an option button for each value on a form that would allow the user to view the records based on which option buttons were selected and have the form update accordingly.
The way I've gone about it is to have some code in the after_update event thingimy of each option button that updates a boolean value in a table that's linked to the underlying query the form is based on - but this just seems a long way to go about this... plus it's not working...
I've searched the archives for clues on this but haven't come up with anything. So I just wondered, is there a better way than what I'm doing. I'm not after somebody to do this for me, just point me in the right direction.
Hello, I wonder could anyone help, rescue and succour me.
As a former VB6 developer, I'm now working with wonderful Access VBA 2000 which makes the simplest operation such as creating a listbox or adding a control array into a living, breathing nightmare.
Today's incubus is option buttons.
Dear people, please tell me how it can be so hard to create a group of option buttons which are mutually exclusive and by whose value I can set another variable? I tried just sticking them on the screen, but then soon sobered up when I realised that Access would merrily allow me to select all of them if I so wished in joyous defiance of what an option button is actually FOR.
So I consulted the oxymoronic Help (even though it's impossible to construct an oxymoron with one word, this particular piece of functionality has somehow managed it) and was advised by same to create an option group. This I duly did - then realising that I had to set this property called Option Value 1,2, 3 etc. No sooner said than done. Anything to get it over with.
Now having different values, one would imagine that all I do is give each option button the same name. But no - control arrays in this environment would be like the discovery of the wheel in Caveman Land. So I google it and am told that I have to select the name of the option group.
Now where in all Christendom or Islamdom or NoGodsAtAllDom (in case Richard Dawkins is logged on and wants to help) can I find the name of this option group? Nowhere was I asked to assign an option group name, nowhere can I see a control that resembles an "option group", whatever that may be.
If someone could enlighten me I would be very grateful as a simple problem has once again taken hours thanks to the Access VBA environment. Grrrrrr
I have a form with a number of fields for users to enter data into, with a "Total" being calculated. The users also have the option to ignore these fields and just enter a total manually into a seperate "Totals" field.
I want to set the form up so that when the form is opened the manually entered "Totals" field is hidden, leaving users to enter the component values, with the total being calculated automatically.
However, I want to add an option button so that if users just want to type in a total manually rather than enter the component values, they click the option button and the manually entered "Totals" field appears and the other component fields become disabled. This would prevent both a calulated total and a manually entered total being entered into the form.
Any help on the code that I need to use when the option button is clicked would be greatly appreciated.
Hello, I have a form named Welcome which I want to use as search menu for my database. I have added 4 option buttons and a unique textbox into which users will write their query criteria. My database has 4 queries and each option button should refer to one of them once selected
Obviously I will need a command button that will run the query.
I have a switchboard which gives two selections. Upon selecting a menu item, the new menu appears. If I select from this new menu, it runs as it should do. However, upon returning to this second menu, the button remembers where it was instead of being cleared to select the same item, if desired, again. How can the option box button be cleared as do the switchboard buttons?
i am a student and i have a project to complete in 2days. i have managed to crawl through access and come up with forms and a functional query set. i need to create a search function for names and addresses. i manged to do a fisrt name search. i need to make an option for users to choose either first or last name and then search for the other details.
here is my situation, i need help connecting a radio button to a search form. allow me to illustrate my form.
as of now, the first name combo is connected to the search button via a macro which launches the query with a value from the combo box. how do i make the user choose either option "first/last" and then make the search button search appropriately. please help me. i know this is elementary. i've spent too much time looking for a solution on my own. my time is running out to complete the project. and i've yet to create switch boards and all those other things. please! thanx all.
When I create an option group, the buttons or checkboxes appear to the left of the labels. Is there an easy way to make them come out on the right side of the labels? When I move them around manually it is hard to make the buttons align properly with the labels.
I am doing a worksheet for college and have been asked to create option groups on a form, but I cannot work out how to do this.
The screenshot shows what I have to do but I cannot get the option group wizard to open.
When creating my form based on the design in the screenshot I dragged the Rate field onto the design view sheet but it has only one option button connected to it, I need to add another one that will be connected to the same field and am not sure how to do it. I did try adding another option button from the control bar but I am not sure if is connected to the same field with the correct yes/no properties.
