ACC: Sample Function to Provide Password for Attached Tables

• Microsoft Access versions 1.0, 1.1, 2.0, 7.0, 97

SUMMARY

Advanced: Requires expert coding, interoperability, and multiuser skills.

When you first link (attach) an external table using an ODBC driver, you have the option to store the User ID and password for the table locally. If you do not store the ID and password locally, you will be prompted later for the ID and password when you open the table (either manually or programmatically).

This article describes a sample function that you can use in Microsoft Access 97, 7.0, 2.0 and 1.x to eliminate the login prompt when you open the table.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.

NOTE: Visual Basic for Applications is called Access Basic in Microsoft Access versions 1.x and 2.0. For more information about Access Basic, please refer to the "Introduction to Programming" manual in Microsoft Access version 1.x or the "Building Applications" manual in Microsoft Access version 2.0.

MORE INFORMATION

The following steps demonstrate how to eliminate the login prompt when you open a linked table:

1. You must first provide your login information. To do this, use one of the four standard ODBC dialog boxes, or create your own custom login box.

2. Use the sample function below (or one similar to it) along with a valid <UserId> and <Password> to establish the connection.

   NOTE: In the following sample code, an underscore (_) is used as a line- continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

         Function Establish_Connection ()
            Dim db As Database, dbcurr As Database
            Dim ds As Recordset '(Dim ds as Dynaset in version 1.x)
            Set dbcurr = CurrentDB()
            Set db = OpenDatabase("", False, False,"ODBC;DSN=_
             <data source name>;UID=<UserID>;PWD=<Password>;DATABASE=_
             <database name>;")
            Set ds = db.OpenRecordset("<any table existing in the _
             database defined by DATABASE above>")
            '(use db.OpenDynaset in Microsoft Access 1.x)
         End Function
   
      Substitute your own server name, password, database name, and table name
      in the function above.