actionbrowser.com
Ich würde gerne die aktuellen User vom Access in einer Tabelle aufzählen lassen. Ich denke, dass ich mit dem Zeitgeber arbeiten... User protokolliert in Microsoft Access Hilfe User protokolliert: Hi, ich habe eine (vielleicht banale) Frage, die ich trotz Nachlesen nicht lösen konnte. Folgendes Problem: verschiedene User_innen sollen in einem Formular den Kund_innenkontakt... Zugriff auf Dateien über anderen User in Microsoft Access Hilfe Zugriff auf Dateien über anderen User: Ich würde gerne einen Zugriff auf Dateien realisieren, über einen anderen UserAccount im Hintergrund.
Zeitpunkt der letzten Speicherung ( Now() oder BuiltinDocumentProperties) Ähnlich funktioniert das für den Zeitpunkt der letzten Speicherung. Auch hier benutzen wir NOW() bzw. JETZT(), kombinieren das aber mit etwas VBA-Code. Denn dank Workbook_BeforeSave schreiben wir diesen Zeitwert immer nur zum Zeitpunkt des Speicherns in eine Zelle. Somit steht dort natürlich immer der letzte Speicherzeitpunkt drin. Gleichermaßen liefert das VBA BuiltinDocumentProperties("Last save time") dieselbe Information. Wie funktioniert das mit dem VBA? Öffnet mit ALT + F11 in Excel den Code-Editor, Doppelklick auf Diese Arbeitsmappe ( This Workbook) und fügt dann den Code dort ein. Wie füge ich das Datum der letzten Änderung in die Kopf- oder Fußzeile von Excel ein?. Ich schreibe mittels Sheets("ID/Name")("Zelle") in eine Zelle. In diesem Beispiel schreib ich also den Zeitpunkt der letzten Speicherung auf unterschiedliche Art und Weise in drei verschiedene Arbeitsblätter. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) ' Letzter Speicherzeitpunkt mittels Now() oder BuiltinDocumentProperties: Sheets("Blatt1")("B1") = Format(Now(), " hh:mm") Sheets(2)("B1") = Format(Now(), " hh:mm") Sheets(3)("B2") = ThisWorkbook.
Es steht auch das Datum in B1. Aber es tritt genau der gleiche Effekt auf wie oben beschrieben. Es klappt nur ein mal. Danach steht immer das alte Speicherdatum drin. Obwohl später neu abgespeichert wurde. [Edit] Wenn ich das Modul manuell nach dem öffnen der Datei ausführe, wird das letzte Speicherdatum reingeschrieben. Das bedeutet dann ja, das es nicht automatisch drin steht? [/Edit] Zuletzt bearbeitet: 26. Juni 2017 #12 Drücke F9 bzw. Excel speicherdatum einfügen. Shift-F9 Das berechnet alle Zellen neu. #13 Ich kann drücken wie ich will. Es wird nicht aktualisiert. Und ausserdem möchte ich es ja automatisch. #14 Im VBA-Editor kann man bei "DieseArbeitsmappe" bestimmten Ereignissen etwas zuweisen Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub wäre dann für Sachen da, die beim Schliessen der Arbeitsmappe ausgeführt werden sollen. bzw Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) für vor dem Speichern. Da den Code für das Datum rein. #15 Nach Ilserichs Vorschlag sollte das dann so aussehen wie in der Datei die bei zippyshare liegt.
Klappen Sie zuerst das linke Listenfeld auf und wählen Sie "Workbook" aus. Anschließend aktivieren Sie im rechten Dropdown-Feld den Eintrag "BeforePrint". Im Codefenster erscheint automatisch ein Prozedurgerüst für das "BeforePrint"-Ereignis. Diese Prozedur wird ausgeführt, sobald Sie einen Druckauftrag starten und bevor die Daten an den Drucker geschickt werden. Ergänzen Sie die Prozedur um Codezeilen, die das letzte Speicherdatum der aktuellen Datei ermitteln und es in diesem Fall in den linken Abschnitt der Kopfzeile setzen: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim booIsSaved As Boolean Dim strDatInfo As String With ThisWorkbook booIsSaved = If <> "" Then strDatInfo =. BuiltinDocumentProperties("Last save time") Else strDatInfo = "noch nicht gespeichert" End If Setup. LeftHeader = "Zuletzt gespeichert: " & strDatInfo = booIsSaved End With End Sub Am Anfang der Prozedur merken Sie sich in der Variablen "booIsSaved", ob Änderungen an der Datei vorgenommen wurden. Und am Ende des Prozedurcodes stellen Sie die "Saved"-Eigenschaft wieder auf den alten Wert zurück.