Zugriff aus ArcMap 8.1 über VBA auf Formular in MS

Gespeichert von Gast am
im Forum ArcGIS
Kann mir jemand einen Tip (oder ein Codebeispiel) geben wie ich aus ArcMap 8.1 über Visual asic for Application auf ein Formular in einer Microsoft Access 2000 Datenbank zugreifen kann. Ich müßte ein bestimmtes Formular/Abfrage etc. öffnen und ggf. Werte eingeben (zu einem bzw. letzten Datensatz springen).

Gespeichert von Jörg Ostendorp am Mo., 25.08.2003 - 18:28

Permalink
Hallo Tim,
versuch's mal mit (Kurzversion):

Private/Public Sub DeinSub ()
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "DeineDatenbank.mdb"
objAccess.DoCmd.openform "DeinFormular"
End Sub

Viele Grüße Jörg Ostendorp

Gespeichert von Jörg Ostendorp am Mo., 25.08.2003 - 18:29

Permalink
Ach so: und damit Du das Formular dann auch noch sehen kannst, wäre es sinnvoll wenn Du es als Popup einstellst und noch folgenden Code einfügst:
(Formular per API vom Access-Hauptfenster lösen)

Globale Deklaration im Formular:
Option Compare Database
Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Beim Schließen:
Docmd.quit (ansonsten ist der Prozeß MSAccess noch aktiv nachdem Du das Formular geschlossen hast, siehe Taskmanager)

Und beim Öffnen:
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)

Gruß Jörg Ostendorp