Supportnet / Forum / Datenbanken
Datums-Feld ausfüllen bei duplizieren
Frage
Hallo an die Profis!
Meine DS enthalten u. a. ein Datumsfeld. Nun lasse ich ausgewählte DS mit einem entsprechenden Button duplizieren. Das Datumsfeld sollte dann aber nicht den ursprünglichen Wert haben, sondern das aktuelle Datum oder - noch besser - das Datum des letzten Tages des aktuellen Monats --> mit dem aktuellen Datum bin ich aber auch hochgradig zufrieden.
Hat jemand eine Idee ???????????????????
Vielen Dank im voraus !!!!
Antwort 1 von trekking
Wie duplizierst du deine Datensätze. VBA oder Makro?!
Gruß trekking
Gruß trekking
Antwort 2 von der_anfaenger
Meinem Nickname alle Ehre machend, dupliziere ich über das Einfügen eines Buttons im Formular mit Hilfe des Assistenten - also einfach mit klicken und Funktion "Duplizieren" auswählen! Ob das jetzt VBA oder Makro ist, kann ich gar nicht sagen ;-)
Antwort 3 von trekking
Wenn du den Button mit Hilfe des Assistenten erstellt hast, dann mach mal bitte folgendes:
Gehe mal in Eigenschaften und klicke bei Ereignissen auf den Button mit den drei Punkten .... neben dem Eintrag Ereignissprozedur.
Dann öffnet sich der VBA Bereich von Access. Den kopierst du bitte und postest ihn hier.
Dann denke ich, dass ich dir leicht helfen kann.
Gruß trekking
Gehe mal in Eigenschaften und klicke bei Ereignissen auf den Button mit den drei Punkten .... neben dem Eintrag Ereignissprozedur.
Dann öffnet sich der VBA Bereich von Access. Den kopierst du bitte und postest ihn hier.
Dann denke ich, dass ich dir leicht helfen kann.
Gruß trekking
Antwort 4 von der_anfaenger
Hi trekking!
Nachfolgend die VBA-Geschichte:
Private Sub Befehl26_Click()
On Error GoTo Err_Befehl26_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 ´Paste Append
Exit_Befehl26_Click:
Exit Sub
Err_Befehl26_Click:
MsgBox Err.Description
Resume Exit_Befehl26_Click
End Sub
Danke Dir !!!
Nachfolgend die VBA-Geschichte:
Private Sub Befehl26_Click()
On Error GoTo Err_Befehl26_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 ´Paste Append
Exit_Befehl26_Click:
Exit Sub
Err_Befehl26_Click:
MsgBox Err.Description
Resume Exit_Befehl26_Click
End Sub
Danke Dir !!!
Antwort 5 von trekking
Ok., so machst du das also.
Denke, dass wir so nicht weiterkommen.
Beschreibe mir nochmal genau was du wo kopierst und wohin es dann soll.
Sorry, das das nicht so schnell geht wie gehofft.
Am besten du sagst mir noch welche Tabellen du hast und wie dein Formular aussieht.
Gruß trekking
Denke, dass wir so nicht weiterkommen.
Beschreibe mir nochmal genau was du wo kopierst und wohin es dann soll.
Sorry, das das nicht so schnell geht wie gehofft.
Am besten du sagst mir noch welche Tabellen du hast und wie dein Formular aussieht.
Gruß trekking