Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
DB Sicherung
zurück: Textfeld-Inhalt an Formular-Beschriftung übergeben weiter: Wert in Tabelle +1 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dennis41085
Azubi :)


Verfasst am:
27. Aug 2004, 14:45
Rufname:

DB Sicherung - DB Sicherung

Nach oben
       

Hallo!

Wie erstelle ich am einfachsten eine Möglichkeit, die Datenbank zu sichern? Gibt es eine Möglichkeit über Makros oder so? Die Datenbank sollte sich per Klick einfach in ein Verzeichnis auf einem anderen Rechner im Netzwerk kopieren.

Thx!

Dennis
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Aug 2004, 17:32
Rufname:


AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

hi Dennis41085,
hier ein code für die sicherung der aktuellen db auf festplatte. die sicherung auf nur ein, zwei oder drei medien erfolgt hier in abhängigkeit von einer optionsgruppe:
Code:
Option Compare Database
Option Explicit

Private Sub wahl_Click()
    Dim fso As New FileSystemObject
    Dim pfad As String

    pfad = CurrentDb.Name
    Select Case Me![wahl]
      Case 1
        fso.CopyFile pfad, "C:\sicherung d\sicherungen\buchhaltung.mdb", True
      Case 2
       
        fso.CopyFile pfad, "C:\sicherung d\sicherungen\buchhaltung.mdb", True
        fso.CopyFile pfad, "h:\buchhaltung.mdb", True
      Case 3
        fso.CopyFile pfad, "C:\sicherung d\sicherungen\buchhaltung.mdb", True
        fso.CopyFile pfad, "h:\buchhaltung.mdb", True
        fso.CopyFile pfad, "f:\buchhaltung.mdb", True
    End Select
    Me![wahl] = False
    DoCmd.Quit
End Sub

das DoCmd.Quit löschen, wenn db nicht gleich geschlossen werden soll.
wichtig ist, dass du im vba-entwurf unter extras/verweise den verweis "Microsoft Scritpting Runtime" suchst und links mit einem haken versiehst.
löst das dein problem?
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
TommyK
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Aug 2004, 09:41
Rufname:
Wohnort: Sachsen

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

Hallo,

eine erweiterte Möglichkeit gibt es hier:
Backup-Lösung für tägliche Sicherung, Ausgabe wahlweise auch als Zip-Datei

_________________
Gruß Tommy
Dennis41085
Azubi :)


Verfasst am:
30. Aug 2004, 08:09
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

Moin borstel!

Deine Lösung ist für mich leider noch nicht richtig verständlich. Ich brauche keine Auswahl der Medien. Es braucht lediglich, auf Knopfdruck, eine Kopie der DB auf einem anderen Rechner im LAN abgelegt werden.

Könntest du mir das nochmal genauer beschreiben und mir dabei auch die Elemente nennen, die ich erstellen muss?

Besten Dank!

Dennis
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Aug 2004, 09:41
Rufname:


AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

moin moin dennis 41085,
hier der code in kurzform für die reine sicherung auf einem anderen rechner:
Code:
Private Sub wahl_Click()
    Dim fso As New FileSystemObject
    Dim pfad As String

    pfad = CurrentDb.Name
    'Select Case Me![wahl] 'Korrgigiert (Willi Wipp)
    fso.CopyFile pfad, "x:\pfad(e)\neuername.mdb", True
    DoCmd.Quit                     'Beendet Access
End Sub

das prinzip mit der sub als objektmodul ist dir klar? "wahl" heißt be mir der button, der geklickt wird. in zeile fso.CopyFile musst du in den "" deinen pfad und den namen der gesicherten mdb zu dem anderen rechner eingeben.
kommst du so weiter?
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Dennis41085
Azubi :)


Verfasst am:
30. Aug 2004, 10:01
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

Habe es jetzt wie beschrieben gemacht, bekomme aber einen Fehler beim Kompilieren: "Anweisungen und Zeilenmarken zwischen Select Case und erstem Vorkommen von Case unzulässig". Was kann falsch sein?
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Aug 2004, 10:07
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

hi HüGu,
sch..., mein fehler, die zeile select ... muss natürlich gelöscht werden,
tschuldigung.
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Dennis41085
Azubi :)


Verfasst am:
30. Aug 2004, 12:58
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

Pefekt! Besten Dank!
Dennis41085
Azubi :)


Verfasst am:
31. Aug 2004, 07:46
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

Gibt es noch eine Möglichkeit, nach erfolgreicher Sicherung eine Meldung auszugeben?
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Aug 2004, 13:27
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

hi Dennis41085,
versuchs doch mal mit
MSGBOX "Sicherung durchgeführt"
nach dem fso.... - befehl
funzt bei mir
gruß borrstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Dennis41085
Azubi :)


Verfasst am:
31. Aug 2004, 15:37
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

Könntest du mir den vollständigen Code inkl. Msgbox noch mal posten? Rolling Eyes
borstel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Aug 2004, 16:28
Rufname:

AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

hi dennis41085,hier noch einnmal der code. ich hoffe, er stimmt noch überein mit dem vergangenen, da ich ihn jedesmal angepasst habe.
Code:
Option Compare Database
Option Explicit

Private Sub wahl_Click()
    Dim fso As New FileSystemObject
    Dim pfad As String
   
    pfad = CurrentDb.Name
    fso.CopyFile pfad, "C:\...\...\sicherungs.mdb", True
    MsgBox "Sicherung auf C erfolgreich"
    DoCmd.Quit           'Beendet ACCESS, raus, wenn es verhindert werden soll
End Sub

kommst du damit weiter?
gruß borstel

_________________
Gruß borstel
Windows 8 Pro 64 Bit - Office 2007
Positive und negative Rückmeldungen sind eine große Hilfe für alle Forumsteilnehmer!
Dennis41085
Azubi :)


Verfasst am:
03. Sep 2004, 08:17
Rufname:


AW: DB Sicherung - AW: DB Sicherung

Nach oben
       

Funktioniert. Besten Dank! Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Hilfe: Stündliche Sicherung von Backend 13 Gast 428 04. Sep 2012, 11:22
JMalberg Stündliche Sicherung von Backend
Keine neuen Beiträge Access Hilfe: Automatische sicherung der ganzen DB zeitlich Auslösen 2 cgyflamez 319 23. Mai 2012, 15:58
cgyflamez Automatische sicherung der ganzen DB zeitlich Auslösen
Keine neuen Beiträge Access Programmierung / VBA: Automatische Sicherung beim Schließen 9 FreddyKo 1179 01. Jun 2011, 11:11
derArb Automatische Sicherung beim Schließen
Keine neuen Beiträge Access Hilfe: Daten Sicherung Rücksicherung (Backup) 9 Herbert40 550 27. März 2011, 00:56
Herbert40 Daten Sicherung Rücksicherung (Backup)
Keine neuen Beiträge Access Programmierung / VBA: Sicherung access nach excel 4 penntüte 282 09. Jan 2011, 01:10
penntüte Sicherung access nach excel
Keine neuen Beiträge Access Programmierung / VBA: Sicherung mit Statusbalken 4 PCDummy 512 25. März 2010, 12:32
PCDummy Sicherung mit Statusbalken
Keine neuen Beiträge Access Programmierung / VBA: Problem mit Sicherung über VBA Skript 1 InfoBoi 475 21. Jan 2010, 16:06
Sinister Problem mit Sicherung über VBA Skript
Keine neuen Beiträge Access Programmierung / VBA: Automatische Sicherung der DB beim Schließen mittels Button 9 summerdani 1075 01. Nov 2009, 20:37
ebs17 Automatische Sicherung der DB beim Schließen mittels Button
Keine neuen Beiträge Access Programmierung / VBA: Spiegelung von Datensätzen zur Sicherung 5 lars.muc 681 26. Feb 2008, 10:07
lars.muc Spiegelung von Datensätzen zur Sicherung
Keine neuen Beiträge Access Hilfe: Hilfe zur Erstellung einer Sicherung 2 MaFu 662 10. Jul 2006, 09:33
MaFu Hilfe zur Erstellung einer Sicherung
Keine neuen Beiträge Access Programmierung / VBA: Änderungen Protokollieren, mit sicherung des original Datens 2 RalfH 6919 09. Feb 2006, 12:26
RalfH Änderungen Protokollieren, mit sicherung des original Datens
Keine neuen Beiträge Access Hilfe: öffnen einer sicherung 1 guest 513 08. Feb 2005, 16:20
lothi öffnen einer sicherung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps