ACC2: Reference to Field's Caption Property Can Cause an Error

MORE INFORMATION

Local Table

1. Create new database and save it as CAPTION1.MDB.
2. Import the Products table from the sample database NWIND.MDB.
3. Rename the table LocalProducts.
4. Attach the Products table from the sample database NWIND.MDB.
5. Rename the table AttachedProducts.
6. Create the following form:
   

         Form: Test1
         ------------------
         Caption: TestForm1
   
         Command button:
            Name: ButtonTest
            Caption: Test
            OnClick: [Event Procedure]
   						

7. Set the command button's OnClick property to the following event procedure.
   
   NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code.
   

         Sub ButtonTest_Click ()
            On Local Error Resume Next
            Dim i As Integer, UserMessage As String
            Dim db As Database, tdef As TableDef
            Dim fld As Field, prp As Property
            Dim TestCaption As String
            Set db = dbEngine.Workspaces(0).Databases(0)
   
            ' Test the local table.
            Set tdef = db.Tabledefs("LocalProducts")
            Set fld = tdef.Fields("Product ID")
            TestCaption = fld.Properties("Caption")
            If Err = 3270 Then ' Caption does not exist.
            UserMessage = "The LocalProducts Tables Caption Property_
            is Null!"
         Else
            UserMessage = "The LocalProducts Table's Caption is [" &_
            TestCaption & "]"
         End If
         MsgBox UserMessage
   
         ' Test the attached table.
         Set tdef = db.Tabledefs("AttachedProducts")
         Set fld = tdef.Fields("Product ID")
         TestCaption = fld.Properties("Caption")
         If Err = 3270 Then ' Caption does not exist
            UserMessage = "The AttachedProducts Table's Caption Property_
            is Null!"
         Else
            UserMessage = "The AttachedProducts Table's Caption is [" &_
            TestCaption & "]"
         End If
         MsgBox UserMessage
         ButtonTest_Click_End:
            Exit Sub
         ButtonTest_Click_Err:
            MsgBox Error$
            Resume ButtonTest_Click_End
         End Sub
   						

8. View the Test1 form in Form view and click the Test button. Note that the following messages appear:
   

          The LocalProducts Table's Caption Property is Null!
          The AttachedProducts Table's Caption Property is Null!
   						

9. Press the F11 key to switch to the Database window.
10. Open the LocalProducts table in Design view.
11. Change the table's Caption property to LocalProducts Caption, and then save the table.
12. View the Test1 form in Form view and click the Test button. Note that the following messages appear:
    

           The LocalProducts Table's Caption is [LocalProducts Caption]
           The AttachedProducts Table's Caption Property is Null!
    						

13. Open the sample database NWIND.MDB.
14. Open the Products table in Design view.
15. Change the table's Caption property to AttachedProducts Caption, and then save the table.
16. Open the CAPTION1.MDB database.
17. View the Test form in Form view and click the Test button. Note that the following messages appear:
    

           The LocalProducts Table's Caption is [LocalProducts Caption]
           The AttachedProducts Table's Caption Property is Null!
    						

Attached Table

1. Follow steps 1-5 in the "Local Table" section.
2. Create the following form:
   

         Form: Test2
         ------------------
         Caption: TestForm2
   
         Command button:
            Name: ButtonTest
            Caption: Test
            OnClick: [Event Procedure]
   						

3. Set the command button's OnClick property to the following event procedure:
   

         Sub ButtonTest_Click ()
            On Local Error Resume Next
            Dim i As Integer, UserMessage As String
            Dim db As Database, tdef As TableDef
            Dim fld As Field, prp As Property
            Dim TestCaption As String
            Set db = dbEngine.Workspaces(0).Databases(0)
   
            ' Test the local table.
            Set tdef = db.Tabledefs("LocalProducts")
            Set fld = tdef.Fields("Product ID")
            TestCaption = fld.Properties("Caption")
            If Err = 3270 Then ' Caption does not exist
               UserMessage = "The LocalProducts Tables Caption Property_
               is Null!"
            Else
               UserMessage = "The LocalProducts Table's Caption is [" &_
               TestCaption & "]"
            End If
            MsgBox UserMessage
   
            ' Test the attached table using the OpenDatabase method.
            Set db = OpenDatabase("C:\ACCESS\SAMPAPPS\NWIND.MDB")
            Set tdef = db.Tabledefs("Products")
            Set fld = tdef.Fields("Product ID")
            TestCaption = fld.Properties("Caption")
            If Err = 3270 Then ' Caption does not exist.
               UserMessage = "The AttachedProducts Table's Caption Property_
               is Null!"
            Else
               UserMessage = "The AttachedProducts Table's Caption is [" &_
               TestCaption & "]"
            End If
            MsgBox UserMessage
         ButtonTest_Click_End:
            Exit Sub
         ButtonTest_Click_Err:
            MsgBox Error$
            Resume ButtonTest_Click_End
         End Sub
   						

4. View the Test2 form in Form view and click the Test button. Note that the following message appears:
   

         The LocalProducts Table's Caption is [LocalProducts Caption]
         The AttachedProducts Table's Caption is [AttachedProducts Caption]