parameters in query, when the parameter is a table name

[halx]

Hello !

getParameter(x) is a function that gives a table's name.
I want to write a query like:

SELECT *
FROM getParameter(1)

but it does not work.

Could anybody help me ?
thanks

Alex

 

[jdegeorge]

What are you trying to do in the query with the table's name? "Get it right the first time, that's the main thing..."

 

[halx]

I want to select all the fields of the table whose name is given by the function getParameter(1).

But maybe it is not possible to pass the name of a table as parameter.

Alex

 

[jdegeorge]

How are you capturing the parameter? In a form?
Jim "Get it right the first time, that's the main thing..."

 

[halx]

Yes, I should have precised it:
I have a module that contains an array (of parameters), a function to set this array and one to get the parameters.

Before I need the query, I set the parameters.
In the query, I call the parameter that I need (here, it is: getParameter(1))

It seems messy, but actually it makes many things easier ( for example, if I had taken the parameter from a form, I would have had problems if the form's name changes). I learnt about this method in this forum.

Alex

 

[jdegeorge]

Can you please paste in the related parts from your module, and the layout of your table? I'd like to play with this.

Jim "Get it right the first time, that's the main thing..."

 

[halx]

Here it is:
-------------------------------------------------
Dim testCycleParameters(4)

Public Sub SetTestCycleParameters(ByVal InputVal, ByVal ParamID)
testCycleParameters(ParamID) = InputVal
End Sub

Public Function GetTestCycleParameters(ByVal ParamID)
GetTestCycleParameters = testCycleParameters(ParamID)
End Function
-------------------------------------------------

Alex

 

[jdegeorge]

A real doozy! You said you learned about this method on this forum. Do you recall who answered your post or who wrote the post you found? He/she would be the best resource on this one.

It's beyond me!

Sorry! Jim "Get it right the first time, that's the main thing..."

 

[JustAnotherPar]

Try something like this:
dim str as string, strSQL as string

GetParameter(1) = str
strSQL = "SELECT * FROM " & str

currentdb.execute(strSQL) '(Or whatever you need to do with strSQL)

 

[JustAnotherPar]

Oops, code in prior message:
dim str as string, strSQL as string

GetParameter(1) = str
strSQL = "SELECT * FROM " & str
currentdb.execute(strSQL)

SHOULD BE:

str=GetParameter(1)
strSQL = "SELECT * FROM " & str
currentdb.execute(strSQL)