Forms :: Option Group - Warn User When Neither Of 2 In Option Group Not Ticked?
Jul 25, 2013
I stumbled upon the Option Group function just yesterday and, happy as a clam, I created a group with 2 options in radio button style. I assigned the values to a field called Registration_Type as the 2 options are "Confirmed Registrants" and "Prospective Attendees".
[Great. That part works well. When I look at the table, a 1 or a 2 is in that field so it's great to know how to control accidental ticking of radio buttons (previous 450 records or so didn't have this option group functionality so one might easily tick one of the buttons. So one part of controlling option group I know I can handle via the table itself for now.]
The challenge is how to ensure the user always ticks one or the other ... I went back to the main table and tested the 'required entry' option for the Registration_Type field but forcing an action like this is not ideal in my mind. The usual error message vagueness for the average user is no good and I don't want to limit the user so much.
Is there a way to simply have a popup come up warning that neither radio button was ticked? Perhaps something linked to the form - i.e., maybe "after update"?? I only learned about attaching code to before and after update on controls a couple of days ago, so not sure if this would be best approach.
Just something to let the user know that nothing has been ticked in the option group as that controls in which of 2 reports the data will show up in so any record not ticked might mean a registrant being left out, which would be rather disastrous <g>.
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
I have an option group with 4 options and I want them to display traffic light colours when an option is clicked. So if option 4 is clicked it displays red, if option 1 is clicked it displays green, however, once clicked the colours remain, and dont disappear when I click another option and they remain for all records.
Private Sub Frame742_AfterUpdate() 'Select Case Me![Frame742] ' Case 1
I have would like to have a option group requery a list box with 2 yes/no columns as the criteria.
First Option = No criteria Second Option = Yes in first column only Third Option = Yes in second column only
So far I've been able to get option 1 and 2 to work, but I've not been able to define the same value to the third option, some of the values in the 2 columns over lap so using a single option doesn't seem to be the right method.
In creating a form with checkboxes created using the "option group" control type,
I am trying to find a way to clear all the checkbox options in an option group after having checked an option. For instance, if the user checks one of the options but then decides they actually want to skip that question altogether and leave it blank - is there a way to clear all options, or reset the question?
I'm using option group with value 1 and value 2 with a command button to open two different forms. This is the code:
Code: Private Sub Command9_Click() Dim strForm As String Select Case Me.Cornice0 Case Is = 1
[Code] ....
I would like to close form's option group once clicked the command button after the opening of the requested value form. I tried Docmd.close but all I get is the option group no more working.
I have a main form named as FOTOFILM and a child form named as FOTOFILM_Subform ( Datasheet view, and datasource is a query builted on FotoFilm_table). they don't have relationship but the datasource for both is the same (FotoFilm_table).On the main form FOTOFILM, I have an option group named optChoose and 5 options within. Options are;
The last week, The last month The last 3 months The last 6 months the last 12 months
I would like to query / filter FOTOFILM_Subform by clicking any option.The field name ( to be filtered) IstekTrh (Date/Time-ShortDate)
I have a form with 5 options in a group. This works fine when I only have 1 filter applied to each button. I need to select the "Not Collected" button and have it filter out and show "Collected = No" and "Deleted = No". Here is my code..Case 3 is the one I'm currently working on. I can get the others once I figure out the first one.
Private Sub Frame799_Click() Select Case Frame799 Case 1
I have a query that i need to run from a form. From form I need to pass criteria
1 for canada 2 for us 1 and 2 for us and Canada
The criteria needs to go into field Pricing Type. If user selects 1 then only Pricing Type 1 will display. If user selects 2 than only Pricing Type 2 should display. I user selects both , Pricing Type 1 and 2 should be listed.
I have an Option Group I created (simple Yes-No) in a form that links to a Yes-No field in a table. I have the default set for this field to "Yes" in the form. The option button works when the form is first opened. If I cange the option to "No", that works. Here's the tricky part that is giving me eye twitches...
If I change the option back to "Yes", the radial button doesn't reflect the change...but it does change the table data! Why do the radial buttons stop changing? Even when I close the form and open it again, the data in the table is no longer reflected with the buttons in the form.
Not all the choices (numeric codes) for my form's option box are being saved to the associated table.
I am using the options choices in the option group to enter data into a table and do additional things - clicking one option is supposed put a code in the table and then take you another form, while clicking a different option will make a new option box visible so I can collect additional data.
My option group has three options, only the data from the second option, which makes a second option group visible, is being saved in the table. If someone clicks on the first or thrid option, which takes them to another form, the data from that option choice does not get saved to the table.
This frame controls an option group. If they are in an existing citation and want to start one for another type, this offers to write a new record in when they try to switch. Problem is, if it DOES write the new record, it seems to be saving the old record, and thus both will end up 56, for example. Access seems to be ignoring/overwriting the Me.frameCitationType.Undo (I don't want to use Me.Undo because they may have made other changes as well).
If the user does not spawn the new citation, it undoes fine. I suspect the problem may be the Filter/FilterOn?
Code: Private Sub frameCitationType_BeforeUpdate(Cancel As Integer) Dim chap As Integer Dim othercit As Variant Dim curRecord As DAO.Recordset Dim curDefend As DAO.Recordset If Me.NewRecord = True And IsNull(Me.CaseNumber) Then MsgBox "Enter the Service Order and Increment first, please.", vbExclamation
I need to pass a criteria to a query from my option group control to my query.
It contains three options 1,2 and 3.
If option 3 then Pricing Type 1 and 2
How do I make the code below working?
IIf([Forms]![FrmUserSelection]![PricingType] Like 3,([dbo_AGPricingDiscounts].[PricingType])="2" Or ([dbo_AGPricingDiscounts].[PricingType])="1",",[Forms]![FrmUserSelection]![PricingType]")
Is there a way to duplicate, triplicate, a record based on an option group selection. i.e.
Form Field: Option group Value = 1 Value = 2 Value = 3 Field 2: Field 3: Field 4: and so on.
Basically if value 1 is selected, then I fill out the rest of the fields hit enter and go to a new record. But if value 2 or 3 is selected, I fill out the the fields, hit enter. The information is recorded said number of times based on the selection in the option group. Ideally I would have2 or 3 of the same record in the db, with different Primary keys of course.
I have a form with an option group to select subforms to be displayed .To save space on the main form I have added a subform (frmSubService) to the option group to display some of the data that was originally on the main form. The subforms data source is the same as that of the main form but only displays five fields.
After editing data in the subform frmSubService, if I then click on a field on the main form no problem, however if I click on an option button to view another subform I get a messagebox pop up with the following message;
The data has been changed. Another user edited this record and saved the changes before you attempted to save your changes. Re-Edit the record.
If I click OK,and without re-editing the record, I can open another subform.
I have checked and the data changes made on frmSubService, in both cases, has been saved.
I have an option group with two toggle buttons. Is it possible to set up the option group such that only one toggle button is visible at any given time (i.e. the unselected option) So the group has a default value. Clicking the visible button should switch the value, hide the button (option) associated with that value and show the alternate button (option) for the alternate value?
Basically only having one visible button at any given time which toggles between the two values (but I'd like to retain it as an option group, rather than as two independent buttons, as that gives me a handy value from which to determine control sources elsewhere)
I've tried setting the visibility of the buttons from the AfterUpdate event of the option group but it doesn't work.
I know I can do this with independent buttons but was hoping there was a quick(er) and easy way to do it with an option group instead?
At present I have a form which is used to select a date range then using one of three buttons I can select one of three reports. I want to use an Option Group with three options to replace the three buttons. I have fiddled around using three separate Option Buttons and they work ok but in my opinion they are not the way to go. I need some assistance with the code as the Option Group is slightly different to the Option Buttons.
I have a very simple option group, status 1, 2 , 3 or 4. When the status of the group is changed i have the following code used to label txtStatusChangeAudit which lables who changed it based on the log in name. I have this code for each of the four options. The code works great but when i leave the form and come back to it the txtStatusChangeAudit that holds the code is now blank. When i click an option it again shows the information i want.
How do i get the form to save this information so when i leave the form and come back to it the last person to change the status will still be present?
Private Sub OpenOptionButton_GotFocus() Me.StatusChangeAudit = "Status Open By; " & User.UserName & Space(1) & (Now) End Sub
This should be an easy one.... I had an existing form. Needed a second form. But the two were so close I just added and option group to make certian fields visible when that option was picked. Now.... The problem is sorting or doing a query by the value of the option group. What I am thinking is I need to store the value of the option to a field. ie My option group is named "PickWO" the value is "1" or "2", so I added a field to my WO table... so how do I store the value of "1" or "2" to the new field? Hope this makes sense!
I have created an option group. There is a question and the response is yes, no or N/A. If the answer is no or N/A then I want to skip to the next question. If the answer is yes then I want to ask a follow up question. How would I make it so that when the answer is no or na and the user hits tab it would skip right over the follow up portion and move on to the next question?
I have a option group with several buttons. Is it possible to apply a msgbox to one of the buttons where it will ask the user "Are you sure you want to generate report to excel". I would like the user click ok to continue or cancel. I am not sure how to get this message box prior to the code running when the option button is pressed. Thanks you for your time.
Will someone look at my option group in my form (frmcustomer) and help me figure out why the option group selections for existing records nulls out (visually you cannot see which button had been previously selected).
The option group is working fine in that it is adding the appropriate selection to the record, but when you open the form up in edit mode the selection has been grayed out.
I have an Option Group with 3 choices...1,2 and 3. The default value is 2 as setup in the table default value setting. I have a subform that has a check box and when checked I want the Option Group value to be "1" otherwise I want the default value of "2" or "3" to remain in the table. I can get all this to work through a Afterupdate code in the subform check box except the part where I want the value left at what ever was in the option group part. Here is my code...
Private Sub Paperwork_Returned_AfterUpdate() If Me.Paperwork_Returned = "yes" Then Me.Parent.paperworkstatus = "1" Else Me.Parent.paperworkstatus = False End If End Subvalue
I think the problem is in the "Else" part. The if trus seems to work but if false it will not leave the previouse value in the field.
This last little thing is the last thing I need to finish up. This board has taught me so much...most of all it has taught me that when somebody ask me if I am an advanced access user, I will have to say is anyone? This program is so powerful and I can take a lifetime to master, or so it seems.