Home > Databases ontwerpen en maken > Scripts maken voor het automatiseren van taken > Scripts maken met ActiveX-automatisering (Windows) > Voorbeeld van ActiveX-automatisering (Windows)
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.ApplicationDim FMDocs As FMPro70Lib.DocumentsDim 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 ThenDebug.Print "Geen geopende documenten"ElseDebug.Print "Aantal geopende documenten:"; FMDocs.CountEnd 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 worden gedeclareerd AsFMPro70Lib.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.FullNameTempDoc.CloseSet TempDoc = NothingVolgendeEnd If '---------------------------------------------- ' Opruimen en afsluiten '---------------------------------------------- Set FMDocs = NothingSet FMActiveDoc = NothingSet myOpenFile = Nothing ' FileMaker afsluiten en de variabelen vrijgeven ' (Opmerking: stel de variabele voor de toepassing na afsluiting altijd in op Nothing.) FMApp.QuitSet FMApp = Nothing End Sub Verwante onderwerpen ActiveX-automatisering gebruiken in FileMaker Pro (Windows) Objecten, methoden en eigenschappen van ActiveX-automatisering (Windows)