Verweise in Access 2002/XP prüfen

Werden Access-Datenbank-Anwendungen weitergegeben, kann es schon mal vorkommen, dass das eine oder andere referenzierte Objekt auf dem Ziel-Computer fehlt. In einem solchen Fall gibt Access eine ziemlich unmotivierte Fehlermeldung aus und führt den Benutzer in den VBA-Editor. Seit Access 2002/XP kann da aber über die Eigenschaft BrokenReferences elegante Abhilfe geschaffen werden.

Mit folgender Prozedur, die beim Anwendungsstart ausgeführt werden sollte, werden die Referenzen (Verweise) überprüft:

Sub CheckRecerences()
 
    Dim objRef As Reference
    Dim strText As String
   
    If Application.BrokenReference Then
 
       strText = "Auf Ihrem System fehlen folgende Komponenten:" & vbCrLf
       For Each objRef In Application.References
           If objRef.IsBroken Then
               strText = strText & "-> " & objRef.Name & vbCrLf
           End If
       Next objRef
  
       strText = vbCrLf & strText
       strText = strText & "Die Anwendung muss beendet werden, "
       strText = strText & "bitte verständigen Sie Ihren Systemadministrator."
  
       MsgBox strText, vbCritical, "Anwendungstitel"
  
       DoCmd.Quit
   
    End If
  
  End Sub

Die Prozedur prüft ob defekte Verweise vorliegen, ist dies der Fall, werden die Verweise aufgelistet und angezeigt. Danach wird die Anwendung geschlossen, da bei fehlenden Objekte die Funktionsfähigkeit nicht garantiert werden kann.

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch