An dieser Stelle möchte ich wieder mal ein Beispiel eines PACE Suite MSI Editor Makros zeigen.

Mit diesem Makro ist es möglich, in einer bestimmten Tabelle nach einem Wert zu suchen und darauf zu reagieren.

Function fCheckExist(byVal sTable, byVal sColumn, byVal sValue)
'Purpose: checks for a certain value in a table
  'declaration ----
  Dim view, record, sQuery
  'init ----
  sQuery = "Select * From "&sTable&" WHERE "&sColumn&" = '"&sValue&"'"
  'main ----
  fCheckExist = False
  Set view = database.OpenView(sQuery)
  view.Execute
  Set record = view.Fetch
  If record is Nothing Then
    fCheckExist = False
  Else
    fCheckExist = True
  End If
End Function

Der Aufruf irgendwo innerhalb eines Makros sieht dann z.B. folgendermassen aus:

  If fCheckExist("Component","Component","MyComponent") = False Then
    do something
  End If

Hiermit wird in der Tabelle „Component“ in der Spalte „Component“ nach einem Eintrag namens „MyComponent“ gesucht.