Start > Gestalten und Erstellen von Datenbanken > Automatisieren von Aufgaben mithilfe von Scripts > Scripterstellung mit ActiveX-Automation (Windows) > Beispiel für ActiveX-Automation (Windows)
Beispiel für ActiveX-Automation (Windows) Private Sub Form_Load()'---------------------------------------------- ' Beispielcode für Zugriff auf FileMaker Pro' in Visual Basic.'' "FileMaker Pro 7.0 Type Library" muss in Visual' Basic Project/References geprüft und verfügbar sein. '---------------------------------------------- '---------------------------------------------- ' Deklaration von Objekten und Start von FileMaker '---------------------------------------------- ' Deklarieren von Objektvariablen Dim FMApp As FMPro70Lib.ApplicationDim FMDocs As FMPro70Lib.DocumentsDim FMActiveDoc As FMPro70Lib.Document ' Starten von FileMaker Set FMApp = CreateObject("FMPRO.Application") ' Documents-Objekt festlegen Set FMDocs = FMApp.Documents ' FileMaker einblenden (beim Start von Automation ist' FileMaker standardmäßig ausgeblendet.) FMApp.Visible = True '---------------------------------------------- ' Abfragen geöffneter Dokumente '---------------------------------------------- 'Prüfen der Anzahl geöffneter Dokumente If FMDocs.Count = 0 ThenDebug.Print "Keine Dokumente geöffnet"SonstDebug.Print "Anzahl geöffneter Dokumente:"; FMDocs.CountEnde (wenn) '-------------------------------------------------- ' Öffnen einer FileMaker-Datenbank und Ausführen eines Scripts '-------------------------------------------------- ' Hinweis: Die FileMaker-Datei "c:\testing.fmp12" muss mit dem Script' "Erstes Script" verfügbar sein, damit die folgende Anweisung' ausführbar ist. Dim myOpenFile As Object ' Hinweis: kann auch deklariert werden alsFMPro70Lib.Document Set myOpenFile = FMDocs.Open("c:\testen.fmp12", "","")myOpenFile.DoFMScript ("Erstes Script") '-------------------------------------------------- ' Abfragen des aktiven Dokuments '-------------------------------------------------- Set FMActiveDoc = FMDocs.Active ' Anzeigen des Namens des aktiven Dokuments Debug.Print "Die aktive Datei ist "; FMActiveDoc.FullName '-------------------------------------------------- ' Enumeration und Schließen von Dokumenten '-------------------------------------------------- Dim TempToc As Object If FMDocs.Count = 0 Then For Each TempDoc In FMDocs Debug.Print "Dokument wird geschlossen: "; TempDoc.FullNameTempDoc.CloseSet TempDoc = NothingNächste(r)Ende (wenn) '---------------------------------------------- ' Bereinigen und Beenden '---------------------------------------------- Set FMDocs = NothingSet FMActiveDoc = NothingSet myOpenFile = Nothing ' FileMaker beenden und Variablen freigeben ' (Hinweis: Application-Variable nach dem Beenden immer auf Nothing setzen.) FMApp.QuitSet FMApp = Nothing End Sub Weiterführende Themen Verwenden von ActiveX Automation in FileMaker Pro (Windows) ActiveX Automation-Objekte, Methoden und Eigenschaften (Windows)