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

maikek · 7. Juni 2017

Dann probier doch mal, ob es lokal funktioniert.
Was ist denn das für ein Backend?
maike

Anubis87 · 7. Juni 2017

Habs hinbekommen:

Code:

Private Sub Befehl48_Click()

Dim strSQL As String 'Variablen deklarieren
Dim strDatumAlt As String
Dim strDatumNeu As String
strDatumAlt = Format(Nz(Me.Datum_alt, Date), "#yyyy-mm-dd#") 'Datum formatieren
strDatumNeu = Format(Nz(Me.Datum_neu, Date), "#yyyy-mm-dd#")
DoCmd.RunSQL "INSERT INTO Prüfbericht (Datum, AuftrNr, Teilenummer, LieferscheinNr, Prüfort) SELECT " & strDatumNeu & ", AuftrNr, Teilenummer, LieferscheinNr, Prüfort FROM Prüfbericht WHERE Datum = " & strDatumAlt & " AND AuftrNr = " & Me.AuftrNr2

Debug.Print strSQL 'gibt den String im Direktfenster aus, zum Überprüfen

Me.Requery 'Formular aktualisieren
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank! Ich muss mich wirklich mehr mit SQL beschäftigen *grins

Beaker s.a. · 7. Juni 2017

Hallo,
Und wenn du dann noch DoCmd.RunSQL durch CurrentDb.Execute ersetzt,
bist du auch in den neueren Versionen von Access angekommen.
Oder verwendest du noch A97?
gruss ekkehard

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

Mehrere Datensätze markieren, kopieren und mit aktuellem Datum einfügen

Mehrere Datensätze markieren, kopieren und mit aktuellem Datum einfügen

Mehrere Datensätze markieren, kopieren und mit aktuellem Datum einfügen - Similar Threads - Datensätze markieren kopieren

Filtern von Datensätzen

Gefilterte Datensätze markieren

In Endlosformular zu Datensatz springen un markieren

in Listbox Datensätze markieren

Datensatz markieren im Endlosformular

Datensätze aus Unterformular markieren und in Report einfügen

Datensatz markieren im Endlosformular