[AccessD] Code to open table fails

Check your references to make sure DAO is selected and then declare your
variables as follows:

Dim MyDB  as DAO.Database
Dim AllTableDefs as DAO.TableDef
Dim myds as DAO.Recordset


Jeffrey F. Demulling
Project Manager
U.S. Bank Corporate Trust Services
60 Livingston Avenue
EP-MN-WS3C
St. Paul, MN  55107-2292
Ph: 651-495-3925
Fax: 651-495-8103
email: jeffrey.demulling at usbank.com


                                                                           
             "Kaup, Chester"                                               
             <Chester_Kaup at kin                                             
             dermorgan.com>                                             To 
             Sent by:                  accessd at databaseadvisors.com        
             accessd-bounces at d                                          cc 
             atabaseadvisors.c                                             
             om                                                    Subject 
                                       [AccessD] Code to open table fails  
                                                                           
             06/07/2005 08:54                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
                  "Access                                                  
                Developers                                                 
              discussion and                                               
             problem solving"                                              
             <accessd at database                                             
               advisors.com>                                               
                                                                           
                                                                           




I have used this code in many Access 2003 databases successfully. Just
tried it in a 2003 version database and it will not open the table. I
have checked and the table exists and name matched. I can open the table
no problem from the table list. What may be happening here?



Sub TableNames()



    Set MyDB = CurrentDb()

    Set AllTableDefs = MyDB.TableDefs

    Set myds = MyDB.OpenRecordset("tbl Table Definitions", dbOpenTable)



Chester Kaup

Engineering Technician

Kinder Morgan CO2 Company, LLP

Office (432) 688-3797

FAX (432) 688-3799



--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com