Office: (Office 2010) Datum per Insert Into in Tabelle einfügen mit Where

schmierlabbes · 26. Februar 2019

Also mit dem Datum klappt's. Perfekt. Danke Maike.

Mit der Zeit klappts nicht...

Syntaxfehler (fehlender Operator in Abfrageausdruck '15:43:55'
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier der Code:
Code:

Dim strTime As String

strTime = Format(Time, "long Time")
strDatum = Format(Date, "#yyyy-mm-dd#")

strSQL = "UPDATE Zutritte SET [Datum_bis_ist] = " & strDatum & " Where [Datum_bis_plan] < Date ()"
Debug.Print strSQL
CurrentDb.Execute strSQL, 128

strSQL = "UPDATE Zutritte SET [Uhrzeit_abgemeldet] = " & strTime & " Where [Datum_bis_plan] < Date ()"
Debug.Print strSQL
CurrentDb.Execute strSQL, 128
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Woran liegt jetzt das ?

maikek · 26. Februar 2019

Mach doch beides in einem Rutsch.
Und die Formatierungen braucht es im Grunde nicht, Date und Time kann man im SQLstring so verwenden:
Code:

strSQL = "UPDATE Zutritte SET [Datum_bis_ist] = Date(), [Uhrzeit_abgemeldet] = Time() Where [Datum_bis_plan] < Date()"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

schmierlabbes · 26. Februar 2019

Hallo Maike,

also das mit dem einen Rutsch klappt. Ich habe mir aufgrund der Einwände von Klaus nochmal Gedanken gemacht, ob es sinnvoll ist, die Datensätze zum anonymisieren in eine andere Tabelle zu verschieben.
Und ich denke ja. Auch wenn ich mich damit als Anfänger oute und das ein Anfängerfehler ist, so habe ich zum Beispiel bei unserem ERP System in der Vergangenheit bemerkt, welche Probleme es haben kann nur (wie in meinem kleinen Fall) eine Tabelle mit allen Datensätzen zu haben.
Ein Hintergrund wäre für mich in diesem Fall, dass ich für bestimmte User ein abgespecktes Frontend machen will, welches nicht die Tabelle mit den anonymisierten DS und deren Auswertung enthalten soll.

Vielleicht hast Du nach deinen Tips mit der Aktualisierung des DS in der Tabelle Zutritte jetzt auch noch eine Lösung, wie ich Felder dieser Datensätze in die Tabelle Zutritte_ano kopieren kann und dann den DS in der Tabelle Zutritte lösche.

Mit diesem Code klappts nicht:
Code:

strSQL = "Insert Into Zutritte_ano ([Firma], [Datum_von], [Datum_bis_plan], [Datum_bis_ist], [Uhrzeit_Erfasst], [Uhrzeit_abgemeldet], [Hinweis_ID], [Land_ID]), [Grund_ID] Select [Firma], [Datum_von], [Datum_bis_plan], [Datum_bis_ist], [Uhrzeit_Erfasst], [Uhrzeit_abgemeldet], [Hinweis_ID], [Land_ID], [Grund_ID] From [Zutritte] Where [Datum_bis_plan] < Date()"
Debug.Print strSQL
CurrentDb.Execute strSQL, 128

strSQL = "Delete * From [Zutritte] Where [Datum_bis_plan] < Date()"
Debug.Print strSQL
CurrentDb.Execute strSQL, 128
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist die Kombination von Insert into und Where so nicht benutztbar ? Mit update klappts ja wunderbar für alle Datensätze, bei denen das Kriterium passt.

Schonmal ein dickes DANKE !

maikek · 26. Februar 2019

Die Syntax stimmt nicht.
Es muss nach diesem Prinzip laufen:
Code:

INSERT INTO Zieltabelle (Feld1, Feld2, ...) SELECT Feld1, Feld2, ... FROM Quelltabelle WHERE ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du kannst das Anzeigen nur bestimmter Datensätze aber auch z.B. über ein Feld mit einem Flag regeln (AnzeigeJaNein) und den Usern die Daten aus einer Abfrage mit dem Kriterium AnzeigeJaNein = True zur Verfügung stellen.

maike

schmierlabbes · 26. Februar 2019

Mensch Maike, super dass Du direkt antwortest. Danke !

Ich habe doch genau das in dem String stehen...

Code:

Insert Into Zutritte_ano ([Firma], [Datum_von], [Datum_bis_plan], [Datum_bis_ist], [Uhrzeit_Erfasst], [Uhrzeit_abgemeldet], [Hinweis_ID], [Land_ID]), [Grund_ID] Select [Firma], [Datum_von], [Datum_bis_plan], [Datum_bis_ist], [Uhrzeit_Erfasst], [Uhrzeit_abgemeldet], [Hinweis_ID], [Land_ID], [Grund_ID] From Zutritte Where [Datum_bis_plan] < Date()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zieltabelle ist Zutritte_ano
Feld1, Feld 2 etc. in runden Klammern sind [Firma], [Datum_von] und so weiter
Select sind die Herkunftsfelder [Firma], [Datum_von] und so weiter
From Zutritte
where [Datum_bis_plan] < Date()

Ich seh den Fehler nicht... *mad.gif*

Doch jetzt seh ich ihn. Die runde schließende Klammer war ein Feld zu früh gesetzt.

maikek · 26. Februar 2019

Siehst du in deiner Version irgendwo das Wort SELECT? Siehst du irgendwo die Feldauflistung aus beiden Tabellen?
Nimm dir nen Kaffee tritt einen Schritt zurück und guck dir das Ganze noch mal genau an *wink.gif* .
maike

schmierlabbes · 26. Februar 2019

Herzlichen Dank an alle !

Es funktioniert wie beabsichtigt. Vor allem Maike einen dicken Dank für Schnelligkeit und Kompetenz ! Super Forum !

gpswanderer · 27. Februar 2019

Hallo,

ob es sinnvoll ist, die Datensätze zum anonymisieren in eine andere Tabelle zu verschieben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich halte es nach wie vor für falsch., Ich glaube, Du erkennst auch nicht wirklich die Probleme die sich damit ergeben.
Siehe mein Beitrag #8, zweiter Absatz.

Wer was sehen darf, kann man dann später mit Abfragen regeln.

Office: (Office 2010) Datum per Insert Into in Tabelle einfügen mit Where

Datum per Insert Into in Tabelle einfügen mit Where

Datum per Insert Into in Tabelle einfügen mit Where

Datum per Insert Into in Tabelle einfügen mit Where

Datum per Insert Into in Tabelle einfügen mit Where

Datum per Insert Into in Tabelle einfügen mit Where - Similar Threads - Datum Insert Into

Serienbrief, Datum plus 7 Tage

letztes Datum finden

Datum Suchen

Aktuelles Datum und Uhrzeit in Formular

Summieren an Hand der letzten x Datums Werte und mit weiteren Kriterien

Zelle farblich markieren wenn Datum

Fortlaufendes Datum im Kopf für je 2 Seiten