Startformular für Menü Add-Ins

Ein Menü Add-In wird in Access bis zur Version 2003 über das Menü "Extras" aufge-rufen. Ab der Version 2007 erfolgt der Start aus dem Ribbon "Datenbanktools". Vor-aussetzung für den erfolgreichen Aufruf ist, dass das Add-In richtig installiert wurde. Diese Aufgabe erledigt der Add-In-Manager.

Unerfahrene Benutzter, die erstmals ein Add-In verwenden, kommen nicht selten auf die Idee, die Add-In-Datenbank einfach per Doppelklick zu öffnen. In einem solchen Fall kann sich die Funktionalität des Add-Ins nicht entfalten. Nicht selten wenden sich diese User enttäuscht ab und verzichten auf den Einsatz des Add-Ins. Manchmal wird auch der Ersteller des Add-Ins mit dem Hinweis kontaktiert, dass das Add-In nicht funktionieren würde.

Eine einfache Lösung, um dem unerfahrenen Benutzer in einem solchen Fall eine Hilfestellung zu geben, ist die Nutzung eines Startformulars. Erstellen Sie in Ihrer Add-In Datenbank ein zusätzliches Formular. Dieses Formular beinhaltet die Information, dass das Add-In falsch gestartet wurde. Außerdem wird aufgezeigt, welche Maßnahmen zu ergreifen sind, um das Add-In zu registrieren und danach aufzurufen.

Ein solches Formular könnte wie folgt aussehen:

Stellen Sie dieses Formular in den Start-Eigenschaften der Add-In Datenbank als Startformular ein. Wenn jetzt die Datenbank direkt geöffnet wird, wird dieses Formular angezeigt.

Der Hinweis auf dem Formular muss abhängig von der verwendeten Access-Version angepasst werden. Bis Access 2003 ist das Menü zu erwähnen. Ab Access 2007 muss das Ribbon benannt werden. Diese Aufgabe lässt sich mit ein paar Zeilen Code lösen:

 Private Sub Form_Load()  
   
   'Variablen deklarieren  
   Dim strHinweis As String  
   Dim strToolName As String  
     
   strToolName = Left$(CodeProject.Name, InStr(CodeProject.Name, ".") - 1)  
     
   Me.Caption = strToolName & " - Falscher Start"  
     
   If CLng(SysCmd(acSysCmdAccessVer)) >= 120 Then  
     strHinweis = "'" & strToolName & "'" & vbCrLf & _  
            "ist ein Add-In." & vbCrLf & _  
            vbCrLf & _  
            "Bitte registrieren Sie" & vbCrLf & _  
            "'" & strToolName & "'" & vbCrLf & _  
            "über Datenbanktools / Datenbanktools /" & vbCrLf & _  
            "Add-Ins / Add-In-Manager." & vbCrLf & _  
            vbCrLf & _  
            "Danach starten Sie" & vbCrLf & _  
            "'" & strToolName & "'" & vbCrLf & _  
            "über Datenbanktools / Datenbanktools / Add-Ins /" & vbCrLf & _  
            strToolName & "."  
   Else  
     strHinweis = "'" & strToolName & "'" & vbCrLf & _  
            "ist ein Add-In." & vbCrLf & _  
            vbCrLf & _  
            "Bitte registrieren Sie" & vbCrLf & _  
            "'" & strToolName & "'" & vbCrLf & _  
            "über Extras / Add-Ins / Add-In-Manager." & vbCrLf & _  
            vbCrLf & _  
            "Danach starten Sie" & vbCrLf & _  
            "'" & strToolName & "'" & vbCrLf & _  
            "über Extras / Add-Ins /" & vbCrLf & _  
            strToolName & "."  
   End If  
   Me!lblStartenSie.Caption = strHinweis  
   
 End Sub  

Abhängig von der Access-Version des Users wird der passende Text eingeblendet:

Mit diesem einfachen Tipp ist es möglich, einem unerfahrenen User die notwendigen Hinweise beim ersten Kontakt mit Ihrem Add-In zu geben. Bitte machen Sie davon Gebrauch.