Esempio di ActiveX Automation (Windows)
Private Sub Form_Load()

'----------------------------------------------
' Codice di esempio per accedere a FileMaker Pro
' In Visual Basic.
'
La libreria "FileMaker Pro 7.0 Type Library" deve essere selezionata
' e disponibile nel progetto e nei riferimenti di Visual Basic.
'----------------------------------------------
 
'----------------------------------------------
' Dichiarazione degli oggetti e avvio di FileMaker
'----------------------------------------------
 
' Dichiara variabili oggetti
Dim FMApp As FMPro70Lib.Application
Dim FMDocs as FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document
' Avvia FileMaker
Set FMApp = CreateObject("FMPRO.Application")
 
' Imposta l'oggetto documenti
Set FMDocs = FMApp.Documents
 
' Rendi visibile FileMaker (durante l'avvio da Automation,
' FileMaker resta nascosto per impostazione predefinita).
FMApp.Visible = True
 
'----------------------------------------------
' Richiesta a documenti aperti
'----------------------------------------------
 
'Controlla il conteggio dei documenti aperti
If FMDocs.Count = 0 Then
Debug.Print "Nessun documento aperto"
Else
Debug.Print "Il conteggio dei documenti aperti è:"; FMDocs.Count
End If
 
'--------------------------------------------------
' Apertura di un database di FileMaker ed esecuzione di uno script
'--------------------------------------------------
 
' Note: Un file FileMaker "c:\testing.fmp12" deve essere disponibile
' con uno script chiamato "Primo script" perché quanto segue
' funzioni correttamente.
Dim myOpenFile As Object ' nota: può essere anche dichiarato come
FMPro70Lib.Document
 
Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")
myOpenFile.DoFMScript ("Primo script")
 
'--------------------------------------------------
' Richiesta al documento attivo
'--------------------------------------------------
 
Set FMActiveDoc = FMDocs.Active
 
' Visualizza il nome del documento attivo
Debug.Print "Il file attivo è "; FMActiveDoc.FullName
 
'--------------------------------------------------
' Enumerazione e chiusura di documenti
'--------------------------------------------------
 
Dim TempToc As Object
 
If FMDocs.Count > 0 Then
 
For Each TempDoc In FMDocs
Debug.Print "Per chiudere i documenti: "; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Successivo
End If
'----------------------------------------------
' Pulizia e uscita
'----------------------------------------------
Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing
 
' Esci da FileMaker e rilascia le variabili
' (Nota: imposta sempre la variabile di application su Nothing dopo l'uscita.)
FMApp.Quit
Set FMApp = Nothing
End Sub
Argomenti correlati 
Uso di FileMaker Pro ActiveX Automation (Windows)
Oggetti, metodi e proprietà di ActiveX Automation (Windows)