Enhanced Data Form - Setting Default Values

[kgreave1]

I know that it is possible through talking with people, so my question is pretty simple: How do you set an Enhanced Data Form (like the J-walk Enhanced Data Form) to put a "default" value for new entries?

I have set the data form up to automatically insert a new row and new entry. I want that insert to automatically populate a default value for some of the fields. However since there is no defining of the variables manually, I am not sure what call those variables when trying to define the default values. Typically, I would use something like this:

Myvariable.value = "default value"

but since there is no defining "myvariable", I am not sure how to do it.

Any thoughts/ideas?

[JapanDave]

Is this a user form?

[kgreave1]

In short, yes it is a User Form (in that it is loaded through "Private Sub UserForm_Initialize().

The Form itself is an add-in that has been written in VBA. It acts the same as the Excel Data Form (in the way it populates), but has the added benefit of being customizable. Basically, it will look at the "database" of the selected cell. Then it looks to the headers of the data base and automatically creates a User Form like Pop-up for you to enter new data.

I would prefer not to post the code, as there is a key you have to purchase to view the coding on the form, but if it is required to answer the question, I will try to post what I can without causing any issues.

[royUK]

Don't post the code because that would then make john Walkenbach's code public.

Maybe something like

Const MyValue as String= "Test"

Me.TextBox1.Value= MyValue

[kgreave1]

I tried this and ran into some problems. I was trying to change the third combo box, which is filled by using a named range, and got this error both times:
"Compile Error: Method or Data member not found"

I tried both of the following:

Me.ComobBox3.Value = "Default Value"
Me.Service_Type.Value = "Default Value"

Where Service_type is the named range that works to fill the combobox.

[royUK]

All your code is doing is putting "Default Value" as the value into the combobox.

You cannot use Me to add it to the range because the range is not an object on the userform

You might need

Range(Service_Type.Value).offset(1,0).Value="Default Value"

Note you are using a String not a Variable!

[kgreave1]

That is what I am trying to do right now though, add a default value into the combo box. For example, I was Service_Type to always show "Consulting Service" when form opens. I just wanted to clarify in case it wasn't clear.

I think the real problem I am facing is that I can't figure out what the code is naming things.
Here are my column headers: IC_Name, Opportunity, Work Order Number, Cost Center, Service_Type, Department, Hours used per week
Where IC_Name, Opportunity, Service_Type, and Department have named ranges that cause them to be comboboxes.

Here is the coding that is populating them. I cut out as much as I could, but thought this was necessary to help with discovering the names:

Set NewLabel = CurrentFrame.Controls.Add("forms.label.1")
            With NewLabel
                .Caption = Application.WorksheetFunction.Clean(DatabaseRange.Cells(1, j)
            End With
            ModifiedName = Application.Substitute(NewLabel.Caption, " ", "_")
            
            If NameHasData(ModifiedName) Then
                Set NewControl = CurrentFrame.Controls.Add("forms.combobox.1")
                ComboBoxOptions = UNIQUEITEMS(Worksheets(Range(ModifiedName).Parent.Name).Range(ModifiedName))
                If IsArray(ComboBoxOptions) Then NewControl.List = ComboBoxOptions
            Else
                'Add a TextBox
                Set NewControl = CurrentFrame.Controls.Add("forms.textbox.1")
            End If
            With NewControl
                .Top = VerticalPosition
                .Left = FieldWidth + 6
                .Height = 16
                .Font.Size = 8
                .Tag = "EntryControl"
            End With
            VerticalPosition = VerticalPosition + 18 'increment
        Next j

Here is a picture of what it looks like. It is creating it the way I want it, just can't figure out the names of the combobox/texbox to set default values
DataEntryFormPic.jpg

[kgreave1]

I did it!!!!!

I used

Frame1!combobox1.Value = "Test"

and it works!

I'm finally catching on to this VBA stuff!!!

[royUK]

Glad you got there and thanks for the rep