Db Link via code (Klatuu Help)

[DDBeards]

I had posted help back on 6/27 and got help back from Klatuu but need some
clarification.

Problem. I am trying to update links from a deveopment environment to a
production environement via code.

I have created "UTbl_Link" Table that has 33 records each with 3 fields:

TableName - contains the name of the table
ConnectString - contains the name and location of the mdb
ProdDev - contains a "D" or "P" for development or production

I have also created a form "UFrm_Rlink" that has a pull down box "PD_Box"
with two choices "P" or "D" and an execution button to run the code.

I am having problem with one line of code you supplied so I am sure I have
typed it wrong or translated it wrong. I have provided both what I was given
and what I have typed.

Your code
' Me.lblMsg.Caption = "Refreshing " & tdf.Name
' strNewPath = DLookup("[ConnectString]", "tblBeList", _
' "[TableName] = """ & tdf.Name & "" AND [ProdDev] = """ & _
' Me.txtEnvironment & """")


My code
Me.lblMsg.Caption = "Refreshing " & tdf.Name
strNewPath = DLookup("[ConnectString]", "UTbl_Link", _
"[TableName] = """ & tdf.Name & "" AND [ProdDev] = """ & _
Me.PD_Box & """")

the strNewPath line crahses. Please help

Thanks again

DDBeards

 

[Paolo]

Hi DDBeards,
I'm not Klatuu but I see the problem, you forgot a quotation marks. Try this

strNewPath = DLookup("[ConnectString]", "UTbl_Link", _
"[TableName] = """ & tdf.Name & """ AND [ProdDev] = """ & _
Me.PD_Box & """")

HTH Paolo

 

[DDBeards]

Thank you Paolo and Klatuu for your help, this is GREAT! and will save me
alot of time down the road.

DDBeards

Hi DDBeards,
I'm not Klatuu but I see the problem, you forgot a quotation marks. Try this

strNewPath = DLookup("[ConnectString]", "UTbl_Link", _
"[TableName] = """ & tdf.Name & """ AND [ProdDev] = """ & _
Me.PD_Box & """")

HTH Paolo

I had posted help back on 6/27 and got help back from Klatuu but need some
clarification.

Problem. I am trying to update links from a deveopment environment to a
production environement via code.

I have created "UTbl_Link" Table that has 33 records each with 3 fields:

TableName - contains the name of the table
ConnectString - contains the name and location of the mdb
ProdDev - contains a "D" or "P" for development or production

I have also created a form "UFrm_Rlink" that has a pull down box "PD_Box"
with two choices "P" or "D" and an execution button to run the code.

I am having problem with one line of code you supplied so I am sure I have
typed it wrong or translated it wrong. I have provided both what I was given
and what I have typed.

Your code
' Me.lblMsg.Caption = "Refreshing " & tdf.Name
' strNewPath = DLookup("[ConnectString]", "tblBeList", _
' "[TableName] = """ & tdf.Name & "" AND [ProdDev] = """ & _
' Me.txtEnvironment & """")


My code
Me.lblMsg.Caption = "Refreshing " & tdf.Name
strNewPath = DLookup("[ConnectString]", "UTbl_Link", _
"[TableName] = """ & tdf.Name & "" AND [ProdDev] = """ & _
Me.PD_Box & """")

the strNewPath line crahses. Please help

Thanks again

DDBeards