default value for sub

[amiroo]

Hi
I have a form. i need run a sub with textbox value as default values. something like this:

Private Sub Submit_1_Click(Optional serial = TSerial_1.Value, Optional model = CModel_1.Value)

but when I run it, an error occurred that you should use constant value. is there any way to fix it?

 

[pgc01]

Hi

Just use some constant value that you know it's not a valid parameter value and then test inside, like:

Private Sub Submit_1_Click(Optional serial = "Optional", Optional model = "Optional")

If serial = "Optional" Then serial = TSerial_1.Value
If model = "Optional" Then model = CModel_1.Value

' ...

 

[amiroo]

Hi

Just use some constant value that you know it's not a valid parameter value and then test inside, like:

Private Sub Submit_1_Click(Optional serial = "Optional", Optional model = "Optional")

If serial = "Optional" Then serial = TSerial_1.Value
If model = "Optional" Then model = CModel_1.Value

' ...

thanks. so there is no way to use a dynamic value as input?

 

[pgc01]

thanks. so there is no way to use a dynamic value as input?

As far as I know, not directly in the procedure header like you wanted.


By the way, the answer I posted works but is dumb, you don't need to specify any value for the optional parameters.

I should have posted:

Private Sub Submit_1_Click(Optional serial, Optional model)

If IsMissing(serial) Then serial = TSerial_1.Value
If IsMissing(model) Then model = CModel_1.Value

' ...

As you can see vba already provides you with IsMissing() that allows you to assign a dynamic value to the parameters,