Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saving data in userforms on action
I am using a userform with listboxes that the user enters data into and than
another userform that returns the calculated results. I would like to know the code to retain text that was entered in each listbox (in the registry or whatever) on the press of an action button. Here is JW's solution but I get an error improper use of Me function or something similar when I use it. 'Sub Getdefaults() ' Dim ctl As Control ' Dim Ctrltype As String ' For Each ctl In Me.Controls 'Ctrltype = TypeName(ctl) 'If Ctrltype = "Textbox" Or _ '"Combobox" Or _ '"Optionbox" Or _ '"Checkbox" Or _ '"Spinbutton" Then 'ctl.Value = GetSetting _ '(APPNAME, "Defaults", ctl.Name, ctl.Value) 'End If 'Next ctl 'End Sub 'Sub SaveDefaults() ' Dim ctl As Control ' Dim Ctrltype As String ' For Each ctl In Me.Controls 'Ctrltype = TypeName(ctl) 'If Ctrltype = "Textbox" Or _ '"Combobox" Or _ '"Optionbox" Or _ '"Checkbox" Or _ '"Spinbutton" Then 'SaveSetting APPNAME, _ '"Defaults", ctl.Name, ctl.Value 'End If 'Next ctl 'End Sub Any thoughts? Thanks in advance |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saving data in userforms on action
-----Original Message----- I am using a userform with listboxes that the user enters data into and than another userform that returns the calculated results. I would like to know the code to retain text that was entered in each listbox (in the registry or whatever) on the press of an action button. Here is JW's solution but I get an error improper use of Me function or something similar when I use it. 'Sub Getdefaults() ' Dim ctl As Control ' Dim Ctrltype As String ' For Each ctl In Me.Controls 'Ctrltype = TypeName(ctl) 'If Ctrltype = "Textbox" Or _ '"Combobox" Or _ '"Optionbox" Or _ '"Checkbox" Or _ '"Spinbutton" Then 'ctl.Value = GetSetting _ '(APPNAME, "Defaults", ctl.Name, ctl.Value) 'End If 'Next ctl 'End Sub 'Sub SaveDefaults() ' Dim ctl As Control ' Dim Ctrltype As String ' For Each ctl In Me.Controls 'Ctrltype = TypeName(ctl) 'If Ctrltype = "Textbox" Or _ '"Combobox" Or _ '"Optionbox" Or _ '"Checkbox" Or _ '"Spinbutton" Then 'SaveSetting APPNAME, _ '"Defaults", ctl.Name, ctl.Value 'End If 'Next ctl 'End Sub Any thoughts? Thanks in advance Hi, You just have a slight error in your If statement. You cannot say for example:- IF A=1 or 2 or 3 then B=2 You need to say IF A=1 or A=2 or A=3 then B=2. Here is the code I used. Notice that I specified Option Compare Text (because Textbox2<TextBox2 otherwise) and defined APPNAME. Regards, Daniel http://www.danielklann.com Option Compare Text Const APPNAME = "My App" Sub Getdefaults() Dim ctl As Control Dim Ctrltype As String For Each ctl In Me.Controls Ctrltype = TypeName(ctl) If Ctrltype = "Textbox" Or _ Ctrltype = "Combobox" Or _ Ctrltype = "Optionbox" Or _ Ctrltype = "Checkbox" Or _ Ctrltype = "Spinbutton" Then ctl.Value = GetSetting _ (APPNAME, "Defaults", ctl.Name, ctl.Value) End If Next ctl End Sub Sub SaveDefaults() Dim ctl As Control Dim Ctrltype As String For Each ctl In Me.Controls Ctrltype = TypeName(ctl) If Ctrltype = "Textbox" Or _ Ctrltype = "Combobox" Or _ Ctrltype = "Optionbox" Or _ Ctrltype = "Checkbox" Or _ Ctrltype = "Spinbutton" Then SaveSetting APPNAME, _ "Defaults", ctl.Name, ctl.Value End If Next ctl End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excell copy action pauses for 15 second for the smallest action | Excel Discussion (Misc queries) | |||
VBA to run every month and sorting data from userforms | Excel Discussion (Misc queries) | |||
Saving Information on Userforms | Excel Programming | |||
UserForms and Variables and Types of data | Excel Programming | |||
Userforms - Dealing with zeros and non-entry of data | Excel Programming |