Elite Veteran
Beiträge: 868
Ort: Wien | Blümchen - 28.07.11 09:00
Also, es wird eine Kopie sein in ein und derselben Tabelle. Und es sollten nur bestimmte Felder kopiert werden. Ich habe halt die Haupttabelle und auf dieser Basis habe ich verschiedene Abfragen gebildet und als Kriterium immer die jeweilige Anlage. Und da war das Problem mit der Anfügeabfrage. Der Code sah so aus:
Dim strSQL As String
strSQL = "INSERT INTO Produkte_Basis ( Betrieb, Aggregat1, " & _
...
"Sonderanweisungen, Notizen ) " & _
"SELECT Betrieb, Aggregat1, ZielID1,IstStart_Aggr1, IstEnd_Aggr1, " & _
...
"FROM Produkte_Basis " & _
"WHERE ID=137;"
CurrentDb.Execute strSQL, dbFailOnError
Aber das Problem ist ja, dass ich wenn ich diesen Code wähle ich nur exakt ID 137 in V3 kopieren kann. Und dass alle Felder kopiert werden. Aber der Code sollte ja flexibel einsetzbar sein. Was jedoch auch möglich wäre, wäre vorher zu fragen wo man hinkopieren will. Aber für den Anwender wäre das flexible ja besser, damit es nicht unnötig aufwendiger ist.
Die ID kannst du mit einem Formularbezug flexibel halten, also in der letzten Codezeile:
"WHERE ID=" & Forms!DeinFormular!ID
oder wenn die ID in einem UFo steht:
"WHERE ID=" & Forms!DeinFormular!DeinUFo.Form!ID
Wenn du nicht immer "alle Felder kopiert" haben willst, dann erstelle doch einfach für jede deiner Anlagen oder Fälle eine Abfrage mit den passenden Feldern. Du musst das auch keineswegs alles per Code durchführen. Das ist bei vielen Feldern unübersichtlich.
Stattdessen würde ich die einzelnen Abfragen speichern mit Namen wie "qryAnlage1Fertig", "qryAnlage2Fertig" o.ä.
Darin in der ID-Spalte jeweils ein Kriterium auf das passende ID-Feld bzw. Steuerelement im jeweiligen (Unter-)Formular, wie o.a.
Im Code der Schaltflächen steht dann nur 1 Zeile:
CurrentDb.Execute "qryAnlage1Fertig", dbFailOnError
usw.
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |