Chapter 22. Visio Automation and Microsoft Access 2000 Interaction

IN THIS CHAPTER

  • Sending Data to Access

  • Getting Data from Access

  • Querying Access for Visio's Use

  • Severing the Connection

As we saw with Visio earlier, contacting Access from within Visio can be done using GetObject(), CreateObject(), and New. The first of these presumes that Access is already up and running. The second and third assume nothing and will launch a new copy of Access, even if it is already running. Listing 22.1 shows the syntax.

Listing 22.1. Launching Access
 Public Sub RunAccess1() Dim accessApp As Access.Application Set accessApp = GetObject(,"Access.Application") accessObj.Visable = True End Sub Public Sub RunAccess2() Dim accessApp As Access.Application Set accessApp ...

Get Professional Development with Visio® 2000 now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial