title image


Smiley Hier der Code! Warum das aktuelle nicht schließen?
Hi ,danke für deinen Tip aber wenn das aktuelle ein Formular ist das auf den verknüpften Tabellen basiert muß esgeschlossen werden. Hier mal mein Code! Was ist denn daran falsch? Vielleicht die For-Schleife? Gruss EdeFunction Schließen()Dim intX As IntegerDim Quelldatei, ZieldateiIf vbYes = MsgBox("Sicherungskopie der Datenbank anlegen?", vbYesNo + vbQuestion) Then For intX = 0 To Forms.Count - 1 DoCmd.Close acForm, Forms(intX).Name NextQuelldatei = "c:\Rechnungen\Back\Rechnungsdaten.mdb"Zieldatei = "c:\Rechnungen\Sicherungsdateien\Rechnungsdaten.mdb"FileCopy Quelldatei, ZieldateiApplication.QuitElseApplication.QuitEnd If

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: