How do I Insert a Value in a Field in a table with a toggle button

[ethanhines]

I am trying to dynamically change the value of a filed using a toggle button in a form it is not a yes or no question. I want it to change a value in a table based on it"s state. Toggled on="6 inches" Toggled off=<null>. I want to more then one toggle button on the form each one dynamically changing the value of the table in real time. How do I do this?

[ADezii]

I am trying to dynamically change the value of a filed using a toggle button in a form it is not a yes or no question. I want it to change a value in a table based on it"s state. Toggled on="6 inches" Toggled off=<null>. I want to more then one toggle button on the form each one dynamically changing the value of the table in real time. How do I do this?

In the AfterUpdate() Event of your Toggle Button, place code sililiar to this:

Private Sub tglButton_AfterUpdate()
Select Case Me![tglButton]
  Case True
    Me![txtSomeField] = "6 inches"
  Case Else
    Me![txtSomeField] = Null
End Select
End Sub

[ethanhines]

To make it simple I used the Options Group Wizzard. Now I have a form with toggle buttons that have a numerical value associated with them but now my problem is I need to associate a Text value for each numerical value. Example
if value of Size in table orders =1 then value of Size in table orders = "6 inches"
if value of Size in table orders=2 then value of Size in table orders= "12 inches"
What is the VBA script to do this?

[ADezii]

To make it simple I used the Options Group Wizzard. Now I have a form with toggle buttons that have a numerical value associated with them but now my problem is I need to associate a Text value for each numerical value. Example
if value of Size in table orders =1 then value of Size in table orders = "6 inches"
if value of Size in table orders=2 then value of Size in table orders= "12 inches"
What is the VBA script to do this?

Private Sub tglButton_AfterUpdate()
Select Case Me![tglButton]
  Case 1
    Me![txtSomeField] = "6 inches"
  Case 2
    Me![txtSomeField] = "12 inches"
  Case Else
    'fall through
End Select
End Sub

[ethanhines]

I noticed two things about On Afterupdate....1 is the toggle button doesn't stay down when clicked and 2 my subform doesn't auto update unless I click on it. Is there anyway to fix this?

Thanks for the infomation

[ethanhines]

Here is my VB code so far

Private Sub EXTRA_Frame_AfterUpdate()
Select Case Me![EXTRA]
  Case 1
    Me![EXTRA] = "CHICKEN"
    Me![SUB TOTAL] = Me![SUB TOTAL] + 2.5
  Case 2
    Me![EXTRA] = "DONAIR MEAT"
    Me![SUB TOTAL] = Me![SUB TOTAL] + 2.5
  Case 3
    Me![EXTRA] = "CHEESE"
    IIf Me![SIZE] = 2, Me![SUB TOTAL] = Me![SUB TOTAL] + 1, Me![SUB TOTAL] = Me![SUB TOTAL] + 0.5
  Case 4
    Me![EXTRA] = "SAUCE"
    Me![SUB TOTAL] = Me![SUB TOTAL] + 0.5
  Case 5
    Me![EXTRA] = "BACON BITS"
  Case 6
    Me![EXTRA] = "HOT PEPPERS"
  Case 7
    Me![EXTRA] = "SALAD"
  Case 8
    Me![EXTRA] = "BREAD"
  Case 9
    Me![EXTRA] = "RICE"
  Case Else
   'fall through
End Select
End Sub
__________________________________________
Private Sub Frame_Drinks_AfterUpdate()
Select Case Me![DRINKS]
  Case 100
    Me![DRINKS] = "Coke"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 101
    Me![DRINKS] = "Diet Coke"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 102
    Me![DRINKS] = "Pepsi"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 103
    Me![DRINKS] = "Diet Pepsi"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 104
    Me![DRINKS] = "7-Up"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 105
    Me![DRINKS] = "Five Alive"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 106
    Me![DRINKS] = "Orage Crush"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 107
    Me![DRINKS] = "Root Beer"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 108
    Me![DRINKS] = "Ice Tea"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 109
    Me![DRINKS] = "Apple Juice"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 110
    Me![DRINKS] = "Water"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.5
  Case 111
    Me![DRINKS] = "Lg. Choco Milk"
    Me![SUB TOTAL] = [SUB TOTAL] + 2
  Case 112
    Me![DRINKS] = "Lg. White Milk"
    Me![SUB TOTAL] = [SUB TOTAL] + 2
  Case 113
    Me![DRINKS] = "Sm. White Milk"
    Me![SUB TOTAL] = [SUB TOTAL] + 1.25
  Case Else
    'fall through
End Select
End Sub
_______________________________________________
Private Sub Frame_SUB_SIZE_AfterUpdate()
Select Case Me![SIZE]
  Case 1
    Me![SIZE] = "6 inch"
    Me![SUB TOTAL] = 5
  Case 2
    Me![SIZE] = "12 inch"
    Me![SUB TOTAL] = 7.5
  Case Else
   'fall through
End Select
End Sub
________________________________________________
Private Sub Frame_SUB_TYPE_AfterUpdate()
Select Case Me![TYPE]
  Case 3
    Me![TYPE] = "CHICKEN"
  Case 4
    Me![TYPE] = "DONAIR"
    Me![SAUCE] = "DONIAR"
  Case 5
    Me![TYPE] = "STEAK"
  Case Else
    'fall through
End Select
End Sub
________________________________________________
Private Sub SALAD_SIZE_FRAME_AfterUpdate()
Me![ITEM] = "SALAD"
Me![BREAD] = Null
Select Case Me![SIZE]
 Case 1
    Me![SIZE] = "SMALL"
    Me![SUB TOTAL] = 4
 Case 2
    Me![SIZE] = "LARGE"
    Me![SUB TOTAL] = 5.5
 Case Else
  'fall through
End Select
End Sub
_________________________________________________________
Private Sub SALAD_TYPE_Frame_AfterUpdate()
Select Case Me![TYPE]
  Case 1
   Me![TYPE] = "GREEK"
  Case 2
   Me![TYPE] = "CEASAR"
  Case 3
    Me![TYPE] = "GARDEN"
  Case Else
   'fall through
End Select
End Sub
_______________________________________________
Private Sub Stir_Fry_Type_Frame_AfterUpdate()
Me![ITEM] = "STIR FRY"
Me![BREAD] = Null
Me![SIZE] = Null
Me![SUB TOTAL] = 8
Select Case Me![TYPE]
 Case 3
  Me![TYPE] = "CHICKEN"
 Case 4
  Me![TYPE] = "DONAIR"
 Case 5
  Me![TYPE] = "STEAK"
  Case Else
    'fall through
End Select
End Sub
________________________________________________
Private Sub SUBS_page_Click()
Me![ITEM] = "SUB"
End Sub
__________________________________________________
Private Sub WRAPS_Frame_AfterUpdate()
Me![ITEM] = "WRAP"
Me![SIZE] = Null
Me![SUB TOTAL] = 5
Select Case Me![TYPE]
  Case 1
    Me![TYPE] = "CHICKEN DONAIR"
    Me![SAUCE] = "DONIAR"
  Case 2
    Me![TYPE] = "CHICKEN SOUVLAKI"
    Me![SAUCE] = "SOUVLAKI"
  Case 3
    Me![TYPE] = "CHICKEN FAJITA"
    Me![SAUCE] = "SALSA"
  Case 4
    Me![TYPE] = "CHICKEN CEASAR"
    Me![SAUCE] = "CEASAR"
  Case 5
    Me![TYPE] = "CHICKEN BACON RANCH"
    Me![SAUCE] = "BACON RANCH"
  Case Else
   'fall through
End Select
End Sub

It is bad code I know but It's all I underestand so far and would appreciate any tips to reduce it"s size.

[ADezii]

Because of the mutually exclusive nature of the choices, and the number of choices, Select Case...End Select is an excellent choice, Personally I may shorten and consolidate the code in this following manner. I may get some flack on this because placing multiple commands on the same line is usually not a good idea, but in this case I feel as though it may be appropriate. Let's wait and see what the rest of the gang has to say on the matter.

Private Sub Frame_Drinks_AfterUpdate()
Dim ctlDrk As Control, ctlSub As Control
 
Set ctlDrk = Me![txtSearch]
Set ctlSub = Me![txtSearch2]
 
Select Case ctlDrk
  Case 100
    ctlDrk = "Coke": ctlSub = ctlSub + 1.5
  Case 101
    ctlDrk = "Diet Coke": ctlSub = ctlSub + 1.5
  Case 102
    ctlDrk = "Pepsi": ctlSub = ctlSub + 1.5
  Case 103
    ctlDrk = "Diet Pepsi": ctlSub = ctlSub + 1.5
  Case 104
    ctlDrk = "7-Up": ctlSub = ctlSub + 1.5
  Case 105
    ctlDrk = "Five Alive": ctlSub = ctlSub + 1.5
  Case 106
    ctlDrk = "Orage Crush": ctlSub = ctlSub + 1.5
  Case 107
    ctlDrk = "Root Beer": ctlSub = ctlSub + 1.5
  Case 108
    ctlDrk = "Ice Tea": ctlSub = ctlSub + 1.5
  Case 109
    ctlDrk = "Apple Juice": ctlSub = ctlSub + 1.5
  Case 110
    ctlDrk = "Water": ctlSub = ctlSub + 1.5
  Case 111
    ctlDrk = "Lg. Choco Milk": ctlSub = ctlSub + 2
  Case 112
    ctlDrk = "Lg. White Milk": ctlSub = ctlSub + 2
  Case 113
    ctlDrk = "Sm. White Milk": ctlSub = ctlSub + 1.25
  Case Else
    'fall through
End Select
End Sub

NOTE: Sorry for deleting your original code but my Reply would not display.