PDA

Vollständige Version anzeigen : Referenz


timo_Neu
24.09.2001, 17:29
Hallo zusammen,
Wer kann mir einige Tips geben, wie man mit Referenzen umgeht.
Ich möchte gerne in meinem Programm beim Anmelden zuerst überprüfen ob alle Referenzen ordnungsgemäß gesetzt sind. Wie kann man soetwas realisieren.
Bin für jede Hilfe dankbar.
Michael

TGA_Project
25.09.2001, 14:51
bei access-dbs werden die tabellenreferenzen in der system-tabelle "MSysRelationships" hinterlegt. dort könntest du mit deinem programm nachschauen, ob die für dich nötigen einträge enthalten sind.

weshalb mußt du die referenzen prüfen ? oder meist du die verbindungen zu externen daten ? da hilft dann meist nur ein zugriff auf die tabelle und den fehler abfangen.

cu
mario !

------------------
Entstehende Heimat für Programmierer: www.devsource.de (http://www.devsource.de)

Anne Berg
26.09.2001, 11:26
Hallo,
ich denke, du meinst die externen Referenzen oder Verweise. Die stehen in der References-Auflistung und die kannst du durchlaufen und die Eigenschaft 'IsBroken' abfragen... bringt allerdings nicht immer die korrekte Antwort.

Ein Beispiel findest du hier:
' Microsoft KnowledgeBase
' ACC97: Fehler: "Funktion steht in Ausdrücken nicht zur Verfügung"
' http://www.microsoft.com/IntlKB/Germany/Support/kb/D36/D36818.htm

Auszug:

For Each ref In Application.References
' folgende Zeile nicht löschen, da sie zur Fehlerprüfung benötigt wird
Debug.Print ref.Name, ref.Major & "."; ref.Minor, _
ref.FullPath, ref.IsBroken
If Err Or ref.IsBroken Then
' im Fehlerfall sind ref.Name und ref.FullPath u.U. nicht verfügbar!
MsgBox "Fehler bei Überprüfung der externen Referenzen:@" & _
"Der folgende Verweis kann nicht eingestellt werden: " & _
vbCr & vbCr & _
"Name : " & ref.Name & vbCr & _
"Version : " & ref.Major & "." & ref.Minor & vbCr & _
"FullPath: " & ref.FullPath & vbCr & _
"GUID : " & ref.Guid & "@" & _
"Der Eintrag wird gelöscht.@", _
vbExclamation, cTitel
References.Remove ref
refErr = True
Err.Clear
End If
Next


In einem ersten Schritt werden fehlerhafte Referenzen gelöscht. Für das (Wieder-) Eintragen gibt es weitere Hilfs-Funktionen.

hth