how do i represent a variable in a do command line. 1

[lewie]

I am doing these queries based on the value txttapetype
if txttapetype is DTR it will perform these. I tried replacing DTR in the query names with the variable but it didn't recognize it. do i have to annotate it somehow so it knows its a variable. This way i can use one set to run them all.


'DTR
Case Is = "DTR"
DoCmd.OpenQuery "LB Make txttapetype table", acViewNormal, acEdit
DoCmd.OpenQuery "LB Append txttapetype to txttapetype master #", acViewNormal, acEdit
DoCmd.OpenQuery "LB update txttapetype # part 1", acViewNormal, acEdit
DoCmd.OpenQuery "LB update txttapetype # part 2", acViewNormal, acEdit
DoCmd.OpenQuery "LB last Update txttapetype ID to txttapetype Master", acViewNormal, acEdit
MsgBox txttapetype
Thanks
Lewie

 

[ausMuenchen]

Hello
what does the Select look like? If I understand what you want it should look like this.

Select Case txttapetype
Case "DTR"
DoCmd.OpenQuery "LB Make txttapetype table", acViewNormal, acEdit
DoCmd.OpenQuery "LB Append txttapetype to txttapetype master #", acViewNormal, acEdit
DoCmd.OpenQuery "LB update txttapetype # part 1", acViewNormal, acEdit
DoCmd.OpenQuery "LB update txttapetype # part 2", acViewNormal, acEdit
DoCmd.OpenQuery "LB last Update txttapetype ID to txttapetype Master", acViewNormal, acEdit
MsgBox txttapetype
Case Else
End Select

Tom

 

[ausMuenchen]

If you wanted to use the value of txttapetype as part of the name of the query then this should work.

Select Case txttapetype
Case "DTR"
DoCmd.OpenQuery "LB Make " & txttapetype & " table", acViewNormal, acEdit
DoCmd.OpenQuery "LB Append " & txttapetype & " to " & txttapetype & " master #", acViewNormal, acEdit
DoCmd.OpenQuery "LB update " & txttapetype & " # part 1", acViewNormal, acEdit
DoCmd.OpenQuery "LB update " & txttapetype & " # part 2", acViewNormal, acEdit
DoCmd.OpenQuery "LB last Update " & txttapetype & " ID to txttapetype Master", acViewNormal, acEdit
MsgBox txttapetype
Case Else
End Select

Tom

 

[lewie]

So "&" is sort of a dereferencer. Why the quotes.
Thanks alot works good.
You deserve a star.