DS copy bringt Einfügefehler

[accessy]

Ich habe den Thread "Einfügefehler - Aber Warum?" auf gelöst gesetzt, weil ich den Fehler gefunden habe.

Es scheint doch so zu sein, dass dieses Access Vorgabemakro nur für ganz normale Felder funktioniert.
Sobald man ein Feld hat, das kein Feld für Datenbankdaten ist, die gespeichert werden, ist das Makro hinfällig.

Es wäre interessant, ob es da eine Möglichkeit gibt, bestimmte Feld von dieser DS Copy-Methode auszuschließen.

Man stelle sich mal vor, ein Formular mit 50 Datenfeldern. Jetzt kann man diesen DS nicht kopieren, weil eines der Felder diesen Einfügefehler hervorruft. Das ist doch ärgerlich.

Hat dafür jemand einen Tipp wie man in diesem Standard-Makro Felder ausschließen kann?

Gruß Achim

[database]

Hallo,

Sobald man ein Feld hat, das kein Feld für Datenbankdaten ist

... und das wäre?

Wobei ich mir auch die Frage stelle, wozu du in deiner Datenbank Datensätze von Tabelle 'A' nach Tabelle 'B' KOPIEREN willst?

[MzKlMu]

Hallo,

... und das wäre?

vermutlich ungebunden Felder.
Aber die DS Copy-Methode halte ich für diesen Fall ohnehin für ungeeignet. Egal ob mit Makro oder VBA. Man kann keine Felder ausschließen.
Besser wäre es eine Anfügeabfrage zu verwenden, die nur die Felder beinhaltet die man auch benötigt bzw. kopieren will. Diese Abfrage kann man dann per VBA (oder notfalls per Makro) ausführen.

Aber auch stelle mir die Frage, wozu man ganze Datensätze kopieren will.
Das sollte man in einer Datenbank nicht benötigen.

[database]

Hallo,

...Man kann keine Felder ausschließen...

Um das zu erreichen müsstest du statt einer vorgefertigten Funktion selbst eine schreiben - in VBA - oder eben den Vorschlag von MzKlMu verwenden

... und bitte - wenn's irgend wie machbar ist vergiss die Makros 

[accessy]

Ich glaube, ich muss hier noch etwas weiter ausholen mit meiner Erklärung.
Also,
ich habe ein einziges Formular und eine einzige Tabelle mit den Daten dazu.
Der Fehler wird produziert, weil beim Versuch den DS zu kopieren und hinten wieder anzufügen dieses eine ungebundene Feld "Unifilter" nicht kopiert werden kann.
Es ist mein "Universalsuchfeld über viele Datenfelder"
Siehe hier:

Code [Auswählen] Erweitern


Private Sub UniFilter_Change() 'Universalfilter
  Me.Filter = "Art_Tool & Bearbeitungsart & Mitarbeiter & Kunde & Werkzeug & Schneidstoff & Festigkeit & Beschichtung & C & Material & Bezeichnung & Durchmesser & Durchmesser_Zusatz & Maschinentyp & Bemerkungen like '*" & Me!UniFilter.Text & "*'"
  Me.FilterOn = True
End Sub


Code [Auswählen] Erweitern


Private Sub UniFilter_DblClick(Cancel As Integer) 'Universalfilter Feld leeren
  Me.UniFilter = ""
  Me.Filter = ""
  Me.FilterOn = False
End Sub


Und jetzt ergibt sich folgende Situation:
Ich will einen neuen DS eingeben und brauche lediglich nur 3 von 40 Formularfelder ändern, der Rest ist gleich. Der zu kopierende DS ist aber nicht der letzte in der DB, sondern irgendeiner mittendrin.

Da ist doch die vorgefertigte Makro-Routine (Copy, hinten anfügen) von Access im Grunde genommen gut geeignet.
Geht aber nicht, weil diese Feld "UniFilter" die Methode nicht unterstützt.
Wie also kann ich einen DS kopieren und hinten anfügen?

Ich hoffe, mein Anliegen jetzt besser dargestellt habe.
Gruß Achim

[MzKlMu]

Hallo,

Code [Auswählen] Erweitern

Wie also kann ich einen DS kopieren und hinten anfügen? Ich hoffe, mein Anliegen jetzt besser dargestellt habe.Dein Anliegen war die ganze Zeit klar. Du hast auch schon Hinweise bekommen zur Lösung. Mit der Copy Methode geht es nicht.
Du musst die bereits vorgeschlagene Anfügeabfrage verwenden, mit der Du gezielt nur die Felder kopieren kannst die in der Tabelle auch enthalten sind. Eine solche Abfrage kannst Du auch mit einem Button über VBA Code aufrufen.

Code [Auswählen] Erweitern

CurrentDb.Execute "Abfragename", dbFailOnError
Die Abfrage musst Du erstellen und speichern.

und brauche lediglich nur 3 von 40 Formularfelder ändern, der Rest ist gleich.

Sind das immer die gleichen 3 Felder die geändert werden?

[accessy]

Ich kann euren ganzen Ausführungen nicht folgen, weil da vieles an mir vom Verständnis her vorbeigeht. Anfügeabfrage? Ich habe ja nicht mal 2 Tabellen. Wie soll ich denn da was anfügen?

Ich werde dieses Thema hier mal beenden, weil ich es mir mit niemanden hier verderben will. Ihr habt mir schon sooft geholfen. Dafür bin ich sehr dankbar.

Ich habe mir mal eine für mich ganz einfach Lösung gestrickt.
Ich habe das Formular 2x in meinem System.
Und dieses 2. "Annähernd - Klone - Formular" hat lediglich nur die Felder drin, die auch kopiert werden können.

Und wenn ich einen DS kopieren will und hinten anfügen, dann wechsele ich einfach in das andere Formular und schon gibt es keine Probleme mehr.
Ist vielleicht eine blöde Lösung, aber die kann ich nachvollziehen.

Gruß Achim

[MzKlMu]

Hallo,

Wie soll ich denn da was anfügen?

na an die gleiche Tabelle. Mit einer Anfügeabfrage kannst Du an die gleiche Tabelle anfügen. Dazu benötigst Du keine weitere Tabelle.

Man könnte Dir ja möglicherweise bessere Ratschläge geben, aber Du beantwortest ja auch keine Fragen:

Aber auch ich stelle mir die Frage, wozu man ganze Datensätze kopieren will.
und:
Sind das immer die gleichen 3 Felder die geändert werden?

[accessy]

Ich habe mir eine kleine DB gebastelt, die ich beruflich nutze, um mal etwas nachzuschlagen.
Es handelt sich um Einsatzdaten / Parameter von Werkzeugen, die bei einem Kunden im Einsatz sind.
Das sind etwas mehr als 40 Datenfelder.

Beispiel:
Ein Kunde, der ein Problem hat ein Tool richtig einzusetzen, bittet mich um Hilfe. Jetzt gehe ich in meine DB und schau mal, was ich da so finde.
Nun entscheide ich mich die gleichen Daten zu nehmen wie ich sie hier für einem anderen Kunden finde. Ich nehme diese Daten; sie funktionieren gut mit ein paar kleinen Änderungen wichtiger Parameter.

So, jetzt sind Beispielsweise von den etwas mehr als 40 Datenfeldern lediglich 7, die andere Werte erhalten. Welch ein Aufwand, wenn ich jetzt einen neuen DS einfüge und alle Felder eintragen muss. Grauenhaft.
Also macht es doch totalen Sinn, einen DS als Kopie hinten anzufügen und lediglich die 7 Felder zu verändern, oder?

Aber auch stelle mir die Frage, wozu man ganze Datensätze kopieren will.
Das sollte man in einer Datenbank nicht benötigen

Dazu darf ich mir hier als "Nullchecker" doch die Bemerkung erlauben und nachfragen warum Access dieses DS kopieren und hinten anfügen von Haus aus mitbringt, oder?

Okay, kommen wir nochmal auf diese Anfügeabfrage zurück.
Ich bin in meinem Formular und habe einen DS gefunden, den ich jetzt hinten in der Tabelle anfügen will. Jetzt bin ich wieder bei meinem CommandButton, wo ich draufklicke, der DS als Anfügeabfrage hinten dran gesetzt wird und nun als neuer DS bearbeitet werden kann. Und während dieser ganzen Aktion verlasse ich mein Formular nicht mal. Also alles im Hintergrund. Das bekomme ich nicht hin.

Daher ist der einfachste Weg für mich mit 2 Formularen zu arbeiten.
Gruß Achim

[MzKlMu]

Hallo,

Also macht es doch totalen Sinn, einen DS als Kopie hinten anzufügen und lediglich die 7 Felder zu verändern, oder?

das möchte ich bezweifeln. Eine solche Tabelle ist ja nicht normalisiert. Und um vernünftig mit Access arbeiten zu können, ist nun mal eine datenbankgerechte Datenstruktur erforderlich.
Du benötigst ja mindestens mal eine reine Kundentabelle die nur die Kundendaten enthält.
Ein neuer Kunde ist dann ein neuer Datensatz, der dann auch komplett neu angelegt werden muss. Die Parameter sind in einer eigenen Tabelle zu führen mit einem Bezug zum Kunden. Wahrscheinlich sind noch mehr Tabellen erforderlich.

doch die Bemerkung erlauben und nachfragen warum Access dieses DS kopieren und hinten anfügen von Haus aus mitbringt, oder?

bei Access gibt es jede Menge Dinge die man nicht benötigt, obwohl diese von Haus aus drin sind.
Ich danke da z.B. an Nachschlagefelder in Tabellen oder in den neueren Versionen die Mehrwertfelder. Diese Felder verhindern sogar den sauberen Aufbau einer DB obwohl von Haus aus eingebaut.
Es gibt z.B. auch Menübefehle die man über VBA mit Menünummern aufrufen kann. Wenn man jetzt per VBA ein Menü ändert, führen die von Haus aus eingebauten VBA Befehle zum Absturz von Access.
Also was in Access vorhanden ist, ist keinesfalls ein Merkmal für die Sinnhaftigkeit.

kommen wir nochmal auf diese Anfügeabfrage zurück.

Du kannst Dir mit dem Abfrageentwurf eine Anfügeabfrage zusammenbauen die einen Datensatz mit einem bestimmten Kriterium hinten anfügt. Für 2 Felder sieht eine Abfrage so aus:

Code [Auswählen] Erweitern

INSERT INTO TabellenName ( TextA, IDFeld )
SELECT TextA, IDFEld
FROM TabelleName
WHERE IDFeld=11
Für das Kriterium 11 kann dann das ID Feld des aktuellen Datensatzes im Formular verwendet werden.
Als Code für den Button dann:

Code [Auswählen] Erweitern

CurrentDb.Execute "INSERT INTO TabellenName ( TextA, IDFeld ) SELECT TextA, IDFeld FROM TabelleName WHERE IDFeld= " & Me.FormularfeldMitID, dbFailOnError

[accessy]

Ich glaube, dass ist mir alles zu kompliziert und bleibe besser bei meiner "Nullchecker-Lösung".

Gruß Achim

[database]

Na Komm,

aufgegeben wird ein Brief!

Das ist doch gar nicht so schwer ...
Ich habe dir ein kleines Beispiel dazu erstellt, mit einer Tabelle, einem Formular und einer Abfrage.

Am Formular befindet sich ein Button, der das Kopieren des aktuell angezeigten Datensatzes veranlasst und danach auf den neu angefügten Datensatz springt.
Es werden alle Daten angefügt nur das Feld 'Status' soll leer bleiben.
Die gespeicherte Abfrage soll dir als Veranschauungsmuster dienen, ausgeführt wird die ganze Kopieraktion per VBA.
Den Code habe ich - hoffentlich - verständlich auskommentiert.

Wenn du das in deiner DB so nachbaust sollte eigentlich nix schiefgehen. 

Beachte bitte unabhängig von der vorgeschlagenen Lösung, dass wie MzKlMu bereits angemerkt hat,
das Datenkonstrukt, welches du da zum Einsatz bringst nicht normalisiert ist.
Auch bei kleinen Datenbanken schadet es kaum sich an die Regeln und Vorgaben eines relationalen Datenbankdesigns zu halten 

Bei Fragen melde dich einfach wieder

[accessy]

Okay, ich habe mal deine Beispieldatei versucht umzusetzen.
Ich habe nur einige Datenfelder genommen.

Was hat das zu bedeuten?
"WHERE P_ID = " & Me.K_ID, dbFailOnError
Der Primärschlüssel P_ID lautet bei mir Tool_ID. Das ist okay und klar.
Aber das K_ID habe ich nicht; es ist bei dir ein reines Bezeichnungsfeld, scheinbar ohne Funktion. Also habe ich einfach mal irgendein Bezeichnungsfeld genommen.

Starte ich das Makro, bekomme ich einen Laufzeitfehler 438. Methode wird nicht unterstützt.
Das kann doch nicht an diesem einen Bezeichnungsfeld liegen.

Und dann gibt es da noch eine Abfrage ohne einer echten Entwurfsansicht. (qryDatensatzAnfuegen)

Code [Auswählen] Erweitern


Private Sub DS_Copy_Click()
    CurrentDb.Execute "INSERT INTO Daten(Mitarbeiter, Kunde,Ort, Bearbeitungsart, Werkzeug, Durchmesser, Durchmesser_Zusatz, Schneidstoff)" & _
                        "SELECT Mitarbeiter, Kunde,Ort, Bearbeitungsart, Werkzeug, Durchmesser, Durchmesser_Zusatz, Schneidstoff" & _
                        "FROM Daten " & _
                        "WHERE Tool_ID = " & Me.B_127, dbFailOnError
    Me.Requery 'Formulardaten aktualisieren                       
    DoEvents
    DoCmd.GoToRecord , , acLast


[MzKlMu]

Hallo,
zwischen Schneidstoff und From fehlt ein Leerzeichen. Füge es vor dem From noch ein.
Das DoEvents braucht es nicht.

[accessy]

Das ist es leider nicht. Der Fehler 438 ist immer noch da.
Es muss einen anderen Grund haben.
Tool_ID ist mein Primärschlüssel
T_ID ist das Bezeichnungsfeld des Primärschlüssels.
Also alles wie in der Beispiel DB.

Code [Auswählen] Erweitern


Private Sub DS_Copy_Click()
    CurrentDb.Execute "INSERT INTO Daten(Mitarbeiter, Kunde, Ort, Bearbeitungsart, Werkzeug, Durchmesser )" & _
                        "SELECT Mitarbeiter, Kunde, Ort, Bearbeitungsart, Werkzeug, Durchmesser " & _
                         "FROM Daten " & _
                         "WHERE Tool_ID= " & Me.T_ID, dbFailOnError
    Me.Requery 'Formulardaten aktualisieren
    DoCmd.GoToRecord , , acLast
End Sub