title image


Smiley Re: Bibliotheken fehlen..
Hallo Bult,



in einem Makro "Autoexec" habe ich AusführenCode CheckRefs() hinterlegt. Das sind folgende Prozeduren, die in einem Modul gespeichert sind:



Function CheckRefs()

Dim db As Database, rs As Recordset

Dim x

Set db = CurrentDb



On Error Resume Next



' Führt die Abfrage TestVerweise aus,um das Auftreten des Fehlers

' zu testen

Set rs = db.OpenRecordset("TestVerweise", dbOpenDynaset)

x = rs!ausdr1

' Wenn Sie nun den Fehler 3075 sehen, informieren Sie die

' Benutzer, daß Sie die Anwendung bearbeiten müssen.

' Fehler 3075 steht für folgende Meldung:

' "Funktion steht in Ausdrücken nicht zur Verfügung"



If Err.Number = 3075 Then

MsgBox "Diese Anwendung hat neuere Versionen " _

& "benötigter Dateien auf Ihrem Computer entdeckt. " _

& "Es kann einige Minuten dauern, Ihre Anwendung " _

& "erneut zu kompilieren."

Err.Clear

FixUpRefs

End If

End Function



Sub FixUpRefs()

Dim r As Reference, r1 As Reference

Dim s As String



' Sucht die erste Referenz in der Datenbank, die weder

' Access noch Visual Basic for Aplications ist.

For Each r In Application.References

If r.Name "Access" And r.Name "VBA" Then

Set r1 = r

Exit For

End If

Next

s = r1.FullPath



' Entfernt den Verweis und setzt ihn wieder ein.

References.Remove r1

References.AddFromFile s



' Ruft einen versteckten SysCmd-Befehl auf, um alle Moduleder

' Datenbank zu kompilieren bzw. zu speichern.

Call SysCmd(504, 16483)

End Sub



Gruß



Wolli
Gruß

Wolli     danke für eure Fragen, so weiß ich, daß ich nichts weiß...

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: