combine ms access with notepad

[ria87]

Currently i have transfer button inside my access application to transfer value to another server.

However i have difficulty when the server name is changed i should update the code in the application.

Instead of that can i remove the server name inside the access code and put it in the notepad?

so if in the future the server name change again i only should update the notepad, not the access application itself.

If can can you let me know how? thanks very much.

please find my code below:

Private Sub cmdTransfer_Click()
Dim strSource As String
Dim strABCTarget As String
Dim strDEFTarget As String
On Error GoTo Err_cmdTransfer_Click


strSource = "I:\Appl\Rate.accdb"
strABCTarget = "\\indln1\Shared\Appl\Rate.accdb"
strDEFTarget = "\\indrel1\Shared\Appl\Rate.accdb"
DoCmd.Hourglass True
FileCopy strSource, strABCTarget
FileCopy strSource, strDEFTarget
DoCmd.Hourglass False
MsgBox "Transferring is completed...", vbInformation
Exit_cmdTransfer_Click:
Exit Sub

Err_cmdTransfer_Click:
DoCmd.Hourglass False
MsgBox Err.Description & "." & " Transfer failed.", vbExclamation
Resume Exit_cmdTransfer_Click
End Sub

[June7]

I guess you could have code in the cmdTransfer Click event that first reads the text file and pulls server name from there and sets a variable. Then concatenate that variable into the path string.

Or you can save the server name in a table and the procedure could pull from the table into variable.

[ria87]

June,

thanks for your reply. Could you give me an example of the code for your first suggestion? thanks for your information

[June7]

Google: access vba text file read

http://www.excelforum.com/excel-prog...-variable.html