combit address manager - Handbuch - combit GmbH

Automatisierung mit Scripten
SetIndex "A"
Die Datei enthält eine einzige Funktion mit dem Namen SetIndex, der der anzuspringende
Buchstabe übergeben wird. Über die Index Eigenschaft des Database
Objektes wird zunächst geprüft, ob eine Sortierung gewählt wurde; eine Voraussetzung
für den weiteren Ablauf. Mit Hilfe der Seek Methode des Database Objektes wird
nun nach dem ersten passenden Datensatz gesucht. Der Aufruf erfolgt innerhalb einer
Do…Loop...Until Schleife, die den Buchstaben so lange "erhöht", bis ein Datensatz gefunden
wurde oder das Ende des Alphabets erreicht wurde. Würde man bspw. nach
dem Buchstaben "A" suchen, für den aber kein Datensatz existiert, so würde automatisch
der nächste Buchstabe "B" gesucht werden usw.
Die Schaltflächen binden die Scriptdatei ein, rufen die Funktion SetIndex auf und übergeben
ihr den gewünschten Buchstaben. Sollten jemals Änderungen an der Logik
notwendig werden, so lassen sich diese zentral in der gemeinsamen Scriptdatei vornehmen.
Die Scriptdatei abcindex.vbs
Option Explicit
Sub SetIndex(Char)
Dim amwDB, FoundRecID
Set amwDB = amw.CurrentDatabase
If amwDB.Index = 0 Then
MsgBox "Um den ABC-Index nutzen zu können,
müssen Sie zunächst eine Sortierung
auswählen.", vbInformation, "ABC-Index"
Else
Char = Ucase(Char)
Do
FoundRecID = amwDB.Seek(Ucase(Char), 0)
Char = Chr(Asc(Char)+1)
Loop Until (FoundRecID 0) Or (Asc(Char) =
Asc("Z") + 1)
End If
Set amwDB = Nothing
End Sub
410