Voorbeeld van ActiveX-automatisering (Windows)

Private Sub Form_Load()

'----------------------------------------------

' Voorbeeldcode voor toegang tot FileMaker Pro
' in Visual Basic.
'
' "FileMaker Pro 7.0 Type Library" moet ingeschakeld zijn
' en in het Visual Basic-project beschikbaar zijn in het dialoogvenster Verwijzingen.

'----------------------------------------------

' Objecten declareren en FileMaker starten

'----------------------------------------------

' Objectvariabelen declareren

Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document

' FileMaker starten.

Set FMApp = CreateObject( "FMPRO.Application" )

' Object documents instellen

Set FMDocs = FMApp.Documents

' FileMaker zichtbaar maken (bij starten vanuit automatiseringsfunctie,
' blijft FileMaker standaard verborgen.)

FMApp.Visible = True

'----------------------------------------------

' Geopende documenten opvragen

'----------------------------------------------

' Telling van geopende documenten controleren

If FMDocs.Count = 0 Then
Debug.Print "Geen geopende documenten"
Else
Debug.Print "Aantal geopende documenten:"; FMDocs.Count
End If

'--------------------------------------------------

' Een FileMaker-database openen en een script uitvoeren

'--------------------------------------------------

' Opmerking: Er moet een FileMaker-bestand "c:\testing.fmp12" aanwezig zijn
' met een script met de naam "Eerste script" om het volgende
' te laten functioneren.

Dim myOpenFile As Object ' opmerking: kan ook als volgt worden gedeclareerd:
FMPro70Lib.Document

Set myOpenFile = FMDocs.Open ( "c:\testing.fmp12", "","" )
myOpenFile.DoFMScript ( "Eerste script" )

'--------------------------------------------------

' Het actieve document opvragen

'--------------------------------------------------

Set FMActiveDoc = FMDocs.Active

' De naam van het actieve document weergeven

Debug.Print "Het actieve bestand is "; FMActiveDoc.FullName

'--------------------------------------------------

' Documenten opsommen en sluiten

'--------------------------------------------------

Dim TempToc As Object

If FMDocs.Count > 0 Then

For Each TempDoc In FMDocs

Debug.Print "Het volgende document wordt gesloten: "; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Next
End If

'----------------------------------------------

' Opruimen en afsluiten

'----------------------------------------------

Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing