I'm trying to create a macro to automatic a tedious task. I need help
with a macro to concentatenate a string.

For example, I have a list of usercodes:

Column
A

nx109
px205
px206
qx123

I want to add the usercodes to a string that reads like this.

sp_addexternlogin SQL_PROD, wr_",nx109,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",px205,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",px206,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",qx123,", trust_user , trustuser"
go

Please Help




*** Sent via Developersdex http://www.developersdex.com ***

Hi,
Try this:

Function AddParm(vstr)
AddParm = "sp_addexternlogin SQL_PROD, wr_""," & vstr & ","", trust_user ,
trustuser"" go"
End Function

Sub test()
Debug.Print AddParm("nx109")
End Sub

HTH

"Ken Barrett" wrote:

I'm trying to create a macro to automatic a tedious task. I need help
with a macro to concentatenate a string.

For example, I have a list of usercodes:

Column
A

nx109
px205
px206
qx123

I want to add the usercodes to a string that reads like this.

sp_addexternlogin SQL_PROD, wr_",nx109,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",px205,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",px206,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",qx123,", trust_user , trustuser"
go

Please Help




*** Sent via Developersdex http://www.developersdex.com ***