Hallo zusammen,



eine Access 97 DB im Netzwerkbetrieb mit zwischen 5 und 8 Benutzern wird mittags täglich von anderen DB-Servern aktualisiert. Leider gehen nicht immer alle User in der vorgegebenen Zeit aus der Datenbank heraus und be- bzw. verhindern somit den Aktualisierungsprozess. Kann mir jemand einen Rat geben, wie man dieses Problem angehen kann, (ohne ständig netsends durchs Netz zu jagen, die nichts nutzen, wenn die Kollegen zu Tisch sind?).



Ich habe gerad bei Access-Home einen Code gefunden, mit dem man alle geöffneten Reports und Forms schließen kann (gilt dies nur für die Forms und Reports in der selbst auf dem eigenen PC geöffneten Datenbank, oder werden mit diesem Code auch die Forms und Reports der ebenfalls in der DB befindlichen User automatisch "zwangsgeschlossen"? - s. anliegend den Code für die Reports

---------------------------------

Function AlleBerichteSchliessen()



'----------------------------------------------------------

' Funktion zum Schließen aller geöffneten Berichte. Steht

' "SetWarnings=False" werden alle Berichte gespeichert

' und geschlossen, steht "SetWarnings=True" wird vor dem

' Speichern gefragt.

'----------------------------------------------------------



Dim r As Report

Dim n As Integer

Dim i As Integer



i = 0

While Reports.Count > 0

i = i + 1

Set r = Reports(n)

DoCmd.Close acReport, r.Name

Wend

If i = 1 Then

MsgBox "Es wurde ein Bericht geschlossen!", 64

Else

MsgBox "Es wurden " & i & " Berichte geschlossen!", 64

End If



End Function

---------------------------------------------------------------------



Vielen Dank für einen Hinweis.



Ac97 und W2000



Viele Grüße von Sabine aus dem Rheinland

geschrieben von saba , 11.04.2006, 23:05 Uhr , 22 mal gelesen