Office: (Office 2010) Mehrere Datensätze markieren, kopieren und mit aktuellem Datum einfügen

Hallo zusammen,

ich habe ein Problem, bei dem ich gerade leider nicht weiter komme.

Ich habe eine Access-Datenbank erstellt, in der u.a. täglich mehrere Datensätze kontrollierter Bauteile eingetragen werden.

Tabelle Prüfberichte:
Spalten: Datum, AuftrNr, Teilenummer, Lieferscheinnummer, Prüfort, Anzahl geprüfter Teile etc.

Da bei einem Auftrag täglich ca. 20 identische Teilenummern überprüft werden, habe ich ein Endlosformular angelegt. Hier können nun die entsprechenden Zeilen markiert per copy/paste eingefügt werden. (Damit die Teilenummern nicht immer wieder neu eingegeben werden müssen)

Allerdings muss das Datum händisch geändert werden.

Wäre es evtl. möglich den Datumswert vor dem Einfügen über ein zusätzliches Textfeld zu definieren?

Sprich, ich gebe das Datum im Textfeld X ein z.B. 06.06.2017, wählen die 20 Datensätze vom 01.06.2017 aus, kopiere diese und alle 20 Datensätze werden mit dem Datum vom 06.06.2017 eingefügt?

Vielen Dank für eure Hilfe.

Gruß
Andreas

:)

 

Moin,
um das Datum für alle 20 Datensätze zu ändern, müsste man diese identifizieren können. Kopierst du nur die Teilenummern oder auch alle anderen Angaben? Wenn es nur die Teile sind, könnte man das Datum mit dem Kriterium "ist null" herausfinden.
maike

 

Kopiere diesen Code in den Formular-Code direkt unter Options.

Ändere das:
Me![Datum]
auf den Name deiner Datumsspalte.

Gesetzt wird die Datumsvorgabe per Doppelklick.
Ändere ggf. den Code entspr. deiner Wünsche.

Code:

Gruss
Jones

 

Ich markiere die entsprechenden Zeilen über das "Dreieck" des Endlosformulars (links neben den Spalten). Daher wird der gesamten Zeileninhalt übernommen. Relevant wären in der Tat nur die Teilenummern und die Auftragsnummer.

Ideal wäre also, wenn die ca. 20 markierten Teilenummern kopiert und mit dem zu definierendem Datum, der Auftragsnummer (wird vorher ausgewählt), ohne die restlichen Spalten eingefügt werden würden.

Ausgangsdatensätze:
[Datum] [AuftrNr] [Teilenummer] [Lieferscheinnummer] [Prüfort] [Anzahl geprüfter Teile]
[01.06.2016] [2] [123456798] [111111111] [Halle 2] [500]
...
[01.06.2016] [2] [123456798] [222222222] [Halle 2] [400]

Ziel:

[06.06.2016] [2] [123456798]
.....
[06.06.2016] [2] [987654123]

Sofern sowas überhaupt machbar ist?

 

Gruss
Jones

Hallo Jones,

ich müsste das Datum ja vor dem Einfügen der markierten & kopierten Datensätze ändern. Würde dein Code nicht den Wert aller Datum-Felder ändern?

Im Anhang einmal 2 Screenshots des Formulars.

Danke & Gruß

Andreas

 

Du könntest das über einen SQL-Insert-Befehl machen (Anfügeabfrage).
Die Auftragsnummer und das Datum kommen nur für die relevanten 20 Teile vor?
Dann würde ich neben dem Feld für das künftige Datum einen Button platzieren und dort in der Ereignisprozedur bei Klick die Daten in die Tabelle übertragen, etwa so:
Code:

maike

 

Das ändert das Datum aller DS die Du einfügst, so lange es aktiv ist.

Genauer: Es ändert das Datum der DS die du änderst, solange es aktiv ist.
Doppelklick - Datumsvorgabe eingeben - DS markieren & einfügen - Doppelklick - leere Eingabe zum abschalten.

 

maike

In der Tabelle "Prüfbericht" werden alle überprüften Teile mit der jeweiligen AuftrNr eingetragen.

Auftrag 2 z.B. hat nun diese ca. 20 unterschiedlichen Teilenummern, die jeden Tag neu eingetragen werden müssen.

Ich hab dazu deinen Code einmal getestet, beim SQL-Statement bekomme ich aber einen Fehler ausgegeben: "Erwartet Anweisungsende"

Bin leider noch nicht so fit in VBA und SQL-Statements *rolleyes.gif*

Code:

@CatboyJones ich hab deinen Code getestet, funktioniert. Die Datumsvorgabe wird beim Verlassen des Formulars deaktiviert oder?

 

Sorry, ich hab' vorn das Anführungszeichen vergessen:
Code:

An deiner Stelle würde ich ein paar Namensänderungen vornehmen:
Prüfbericht -> tblPruefbericht
und Datum -> PDatum
Sonderzeichen und reservierte Worte (Datum, Name, Tag ...) in Objektnamen machen nur Ärger und Aufwand.

Und wegen des genauen Datumsformats guck bitte noch mal hier: donkarls Access-Seiten, die Forensoftware "verschluckt" leider Slash und Backslash.
maike

 

>Die Datumsvorgabe wird beim Verlassen des Formulars deaktiviert oder?
Beim Schließen auf jeden Fall.

 

Code:

Das mit den Namensänderungen habe ich auch schon festgestellt, mach ich mich die Tage mal dran*wink.gif*

Ich hab deinen Code nun mal zum testen genommen, funktioniert aber leider nicht. Sobald ich auf den Button klicke, tut sich nicht wirklich was. Formular wird ich aktualisiert und zum 1. Datensatz gesprungen , aber es werde keine Datensätze angefügt.

Zum Testen habe ich daher einmal das Datum im SQL-Statement festgelegt, bringt aber auch leider nichts.

 

Zeig doch mal den SQL-String aus dem Direktfenster (Öffnen mit Strg + g).
Wenn du das Datum fest einträgst, muss es so aussehen:
Code:

maike

 

maike

Hmm, #2017-06-06# hat auch leider nichts gebracht.

Im Direktbereich siehts so aus:
Code:

bzw. so, wenn ich alle Variablen übernehme:

Code:

Die Textfelder funktionieren also.

 

Setz mal die Objektnamen mit Sonderzeichen und reservierten Begriffen in in eckige Klammern:
Code:

Möglichweise greift aber das Datumskriterium nicht, weil im Tabellenfeld auch eine Zeit mit enthalten ist. Das Vorgehen wäre dann:
Code:

 

Hat leider auch nichts gebracht. Ich hab zur Sicherheit nochmal alle Bezeichnungen auf Schreibfehler überprüft.

Irgendwie funktioniert der Insert-Befehl nicht. Selbst dieser hier nicht:
Code:

Der Prüfbericht liegt in einem backend, ist das evtl. das Problem?

Edit:

Damit gehts:

Code: