Exempel på ActiveX Automation (Windows)
Private Sub Form_Load()

'----------------------------------------------
' Exempelkod för åtkomst till FileMaker Pro
' i Visual Basic.
'
' "FileMaker Pro 7.0 Type Library" måste vara markerat
' och tillgängligt i Project/References i Visual Basic.
'----------------------------------------------
 
'----------------------------------------------
' Deklarera objekt och starta FileMaker
'----------------------------------------------
 
' Deklarera objektvariabler
Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document
' Starta FileMaker
Set FMApp = CreateObject("FMPRO.Application")
 
' Ange dokumentobjektet
Set FMDocs = FMApp.Documents
 
' Gör FileMaker synligt (vid start från Automation
' förblir FileMaker dolt som standard.)
FMApp.Visible = True
 
'----------------------------------------------
' Fråga efter öppna dokument
'----------------------------------------------
 
'Kontrollera antalet öppna dokument
If FMDocs.Count = 0 Then
Debug.Print "Inga öppna dokument"
Else
Debug.Print "Antalet öppna dokument är:"; FMDocs.Count
End If
 
'--------------------------------------------------
' Öppna en FileMaker-databas och köra ett manus
'--------------------------------------------------
 
' Obs! FileMaker-filen "c:\testing.fmp12" måste vara tillgänglig
' med manuset "Manus1" för att det följande
' ska fungera.
Dim myOpenFile As Object ' note: can also be declared As
FMPro70Lib.Document
 
Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")
myOpenFile.DoFMScript ("Manus1")
 
'--------------------------------------------------
' Fråga efter det aktiva dokumentet
'--------------------------------------------------
 
Set FMActiveDoc = FMDocs.Active
 
' Visa det aktiva dokumentets namn
Debug.Print "Den aktiva filen är "; FMActiveDoc.FullName
 
'--------------------------------------------------
' Räkna upp och stänga dokument
'--------------------------------------------------
 
Dim TempToc As Object
 
If FMDocs.Count > 0 Then
 
For Each TempDoc In FMDocs
Debug.Print "Stänger dokument: "; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Nästa
End If
'----------------------------------------------
' Rensa och stänga
'----------------------------------------------
Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing
 
' Avsluta FileMaker och frigöra variablerna
' (Note: always set the application variable to Nothing after quitting.)
FMApp.Quit
Set FMApp = Nothing
End Sub
Relaterade avsnitt 
Använda FileMaker Pro ActiveX Automation (Windows)
ActiveX Automation - objekt, metoder och egenskaper (Windows)