Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Populate dataform with combobox1.value
Ok. I give in. Tried for hours, and have search the forum and google.
Is it possible to populate a dataform with the combobox1 value. I can pick up the value, but can't get it in to the dataform. The code uses the form from the dropdown Data\Form. The form works thanks to advice from Dave Peterson, however what I want to achieve is when the user make a selection in the Combobox, they click on the update command button which brings up the the dataform and the form default to the record containing the value. Possibly something along these line: ActiveSheet.ShowDataForm If ComboBox1.Value -1 Then With Dataform SendKeys "%c" ' SendKeys "{%}" + c ..Add (ComboBox1.Value) SendKeys "%P" ' SendKeys "{%}" + P End With Else End If Any advice would be gratefully received. Thanks, -- Brian McCaffery |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Populate dataform with combobox1.value
You are getting astring back. Convert it to a date format using the
functtion datevalue. The data value string can be in any of the acceptabble microsoft date formats. mydate = datevalue("1/1/07") I think for you code ..Add (datevalue(ComboBox1.Value)) "Brian" wrote: Ok. I give in. Tried for hours, and have search the forum and google. Is it possible to populate a dataform with the combobox1 value. I can pick up the value, but can't get it in to the dataform. The code uses the form from the dropdown Data\Form. The form works thanks to advice from Dave Peterson, however what I want to achieve is when the user make a selection in the Combobox, they click on the update command button which brings up the the dataform and the form default to the record containing the value. Possibly something along these line: ActiveSheet.ShowDataForm If ComboBox1.Value -1 Then With Dataform SendKeys "%c" ' SendKeys "{%}" + c .Add (ComboBox1.Value) SendKeys "%P" ' SendKeys "{%}" + P End With Else End If Any advice would be gratefully received. Thanks, -- Brian McCaffery |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Populate dataform with combobox1.value
Thanks for the response. Will give it a try.
-- Brian McCaffery "Joel" wrote: You are getting astring back. Convert it to a date format using the functtion datevalue. The data value string can be in any of the acceptabble microsoft date formats. mydate = datevalue("1/1/07") I think for you code .Add (datevalue(ComboBox1.Value)) "Brian" wrote: Ok. I give in. Tried for hours, and have search the forum and google. Is it possible to populate a dataform with the combobox1 value. I can pick up the value, but can't get it in to the dataform. The code uses the form from the dropdown Data\Form. The form works thanks to advice from Dave Peterson, however what I want to achieve is when the user make a selection in the Combobox, they click on the update command button which brings up the the dataform and the form default to the record containing the value. Possibly something along these line: ActiveSheet.ShowDataForm If ComboBox1.Value -1 Then With Dataform SendKeys "%c" ' SendKeys "{%}" + c .Add (ComboBox1.Value) SendKeys "%P" ' SendKeys "{%}" + P End With Else End If Any advice would be gratefully received. Thanks, -- Brian McCaffery |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Modify code to reference from a Matching value in Combobox1 | Excel Programming | |||
ComboBox1 | Excel Discussion (Misc queries) | |||
Endless Loop when using ComboBox1.BoundColumn = 2 | Excel Programming | |||
Deleting/Adding/Changing values based on ComboBox1 Value | Excel Programming | |||
3 textbox values based on value in ComboBox1 | Excel Programming |