title image


Smiley Ich mach das so:
Hi,

so mach ich es. Mein Backend heißt "Zerberus_JJJJ Backend.mdb" mit JJJJ = Jahreszahl der enthaltenen Daten.





... Auszug ...

If MsgBox("Sie haben zuletzt auf den Datenpool des Jahres " & intBackendJahr & " zugegriffen. " _

& "Möchten Sie dieses Jahr weiter nutzen?", vbYesNo, "Wahl des Backend-Jahres") = vbNo Then



Do

intJahr = InputBox("Welches Jahr möchten Sie bearbeiten? (JJJJ)", "Zerberus-Jahr festlegen")

Loop While intJahr = "" Or Not IsNumeric(intJahr)



If Dir("\\server\daten\Zerberus_" & intJahr & " Backend.mdb") = "" Then

MsgBox "Für das Jahr " & intJahr & " ist keine gültige Zerberus-Datendatei (Back-End) vorhanden! Zerberus nutzt dasselbe Jahr wie beim letzen Start!", vbInformation, "Kein Back-End vorhanden!"

Else

intAnzahlTabellen = CurrentDb.TableDefs.Count

intAktuelleTabelleNr = 1

For Each tbl In CurrentDb.TableDefs

Echo True, "Back-End-Umschaltung zu " & Format(intAktuelleTabelleNr / intAnzahlTabellen, "0%") & " fertig... verarbeite gerade " & tbl.Name

If tbl.Connect Like ";DATABASE=*\Zerberus_???? Backend*" Then

'Tabelle aus dem Backend

tbl.Connect = ";DATABASE=\\server\Daten\Zerberus_" & intJahr & " Backend.mdb"

tbl.RefreshLink

Else

'keine Tabelle aus dem Backend; nix zu tun

End If

intAktuelleTabelleNr = intAktuelleTabelleNr + 1

Next tbl

CurrentDb.TableDefs.Refresh

End If

Else

'Jahr beibehalten: Backend bleibt erhalten. Nix zu tun.

End If





HTH

Martin
Atrus2711 ät gmx punkt net
Meine Beiträge zu MS Office betreffen stets Version 2000,
wenn nicht anders angegeben.




geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: