Is there a VBA equivalent of ASP's 'Execute' command. I'd like to use such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" & arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.

"The Vision Thing" wrote in message
...
Is there a VBA equivalent of ASP's 'Execute' command. I'd like to use
such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" & arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.



I think Application.Evaluate is what you are looking for.

/Fredrik

Are you executing a different program?

Take a look at Shell in VBA's help.

Are you running a different subroutine?

Application.Run

maybe it.

The Vision Thing wrote:

Is there a VBA equivalent of ASP's 'Execute' command. I'd like to use such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" & arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.

--

Dave Peterson

"Fredrik Wahlgren" wrote in message
...

"The Vision Thing" wrote in message
...
Is there a VBA equivalent of ASP's 'Execute' command. I'd like to use
such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" & arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.



I think Application.Evaluate is what you are looking for.

/Fredrik



I don't think Application.Evaluate solves the problem. I want to
dynamically declare variables and assign values like so:-

For i = 1 to Ubound(arrIn)
Dim ("var" & i) as string
("var" & i) = arrIn(i)
Next

Regards,
Wayne C.

"Dave Peterson" wrote in message
...
Are you executing a different program?

Take a look at Shell in VBA's help.

Are you running a different subroutine?

Application.Run

maybe it.

The Vision Thing wrote:

Is there a VBA equivalent of ASP's 'Execute' command. I'd like to use
such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" & arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.

--

Dave Peterson

What I'm trying to do is dynamically declare variables and assign values to
them, like so

For i = 1 to Ubound(arrIn)
Dim ("var" & arrIn(i)) as string
("var" & arrIn(i)) = arrIn(i)
Next

Regards,
Wayne C.

VBA doesn't support that kind of symbolic substitution.

The Vision Thing wrote:

"Dave Peterson" wrote in message
...
Are you executing a different program?

Take a look at Shell in VBA's help.

Are you running a different subroutine?

Application.Run

maybe it.

The Vision Thing wrote:

Is there a VBA equivalent of ASP's 'Execute' command. I'd like to use
such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" & arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.

--

Dave Peterson

What I'm trying to do is dynamically declare variables and assign values to
them, like so

For i = 1 to Ubound(arrIn)
Dim ("var" & arrIn(i)) as string
("var" & arrIn(i)) = arrIn(i)
Next

Regards,
Wayne C.

--

Dave Peterson

Thanks Dave, that's what I needed to know.

Wayne C.

"Dave Peterson" wrote in message
...
VBA doesn't support that kind of symbolic substitution.

The Vision Thing wrote:

"Dave Peterson" wrote in message
...
Are you executing a different program?

Take a look at Shell in VBA's help.

Are you running a different subroutine?

Application.Run

maybe it.

The Vision Thing wrote:

Is there a VBA equivalent of ASP's 'Execute' command. I'd like to use
such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" &
arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.

--

Dave Peterson

What I'm trying to do is dynamically declare variables and assign values
to
them, like so

For i = 1 to Ubound(arrIn)
Dim ("var" & arrIn(i)) as string
("var" & arrIn(i)) = arrIn(i)
Next

Regards,
Wayne C.

--

Dave Peterson

I'm not sure there aren't better ways to achieve this - declaring
variables on the fly is not really good practise. You would be much
better off using a dictionary object or array for what you're trying
to do.


Tim.


"The Vision Thing" wrote in message
...
Thanks Dave, that's what I needed to know.

Wayne C.

"Dave Peterson" wrote in message
...
VBA doesn't support that kind of symbolic substitution.

The Vision Thing wrote:

"Dave Peterson" wrote in message
...
Are you executing a different program?

Take a look at Shell in VBA's help.

Are you running a different subroutine?

Application.Run

maybe it.

The Vision Thing wrote:

Is there a VBA equivalent of ASP's 'Execute' command. I'd like
to use
such
a command to dynamically declare variables at run-time.

Here's a sample of ASP 'Execute' code.

---------------------------
varID = fp_rs("ID")
varName = fp_rs("Name")
varOccupation = fp_rs("Occupation")

for i = 1 to numFields
Execute("var" & arr_fieldnames(i) & " = fp_rs(""" &
arr_fieldnames(i) &
""")"
next

---------------------------

Thanks,
Wayne C.

--

Dave Peterson

What I'm trying to do is dynamically declare variables and assign
values to
them, like so

For i = 1 to Ubound(arrIn)
Dim ("var" & arrIn(i)) as string
("var" & arrIn(i)) = arrIn(i)
Next

Regards,
Wayne C.

--

Dave Peterson