Office: (Office 2007) Datensatz per SQL/VBA in andere Tabelle kopieren

User · 30. November 2011

Hallo Zusammen,

ich habe eine Access 2007 DB, in der ein Datensatz in eine andere Tabelle kopiert werden soll, sobald bestimmte bedingungen erfüllt werden.

Schritt 1:
Ich habe jetzt eine Anfügeabfrage, in der die die Werte, die in die neue Tabelle geschrieben werden als parameter definiert sind:
Code:

INSERT INTO NCC ( [AP Zuordnung], [NCC Code], [NCC Beschreibung], Meilenstein, [Business Group], [NCC Identified] )
values ( ap, ncccode, changebeschreibung, meilenstein, 1, akoprod);
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Abfrage funktioniert so.

Schritt 2:
Ich lasse das Formular der ersten Tabelle prüfen, ob die bedingungen zum Kopieren erfüllt sind, lese dann die zu kopierenden Werte in Variablen ein übergebe sie an das Makro, das kopiervorgang beinhalten soll.

Code:

Private Sub Status_AfterUpdate()
If [Status] = "Rej" And [Claimant] = "S" And [Claim] = True Then

Dim AP As String
Dim ChangeBeschreibung As String
Dim Meilenstein As String

Dim AkoProdukte As Double
Dim AkoDL As Double
Dim AkoBetrieb As Double

AP = Me.AP_Code
ChangeBeschreibung = Me.Beschreibung
Meilenstein = Me.Meilenstein

AkoProdukte = Me.AKO_KA
AkoDL = Me.AKO_DL
AkoBetrieb = Me.AKO_OP

Call MakroKopieren(AP, ChangeBeschreibung, Meilenstein, AkoProdukte, AkoDL, AkoBetrieb)
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schritt 3:
Aus dem MakroKopieren rufe ich dann die SQL abfrage auf.

Code:

Sub MakriKopieren(AP As String, ChangeBeschreibung As String, Meilenstein As String, AkoProdukte As Double, AkoDL As Double, AkoBetrieb As Double)

DoCmd.OpenQuery "Q_CLAIMtoNCC"

end sub;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die SQL Abfrage wird gestartet und ich werde nach den Parametern gefragt.
Wenn ich die Parameter manuell eingebe funktioniert die Abfrage.
Wie kann ich die Parameter an dieser Stelle mit den Werten, die an MakroKopieren übergeben worden belegen??????

ALTERNATIVER ANSATZ:

Code:

Sub MakroKopieren(AP As String, ChangeBeschreibung As String, Meilenstein As String, AkoProdukte As Double, AkoDL As Double, AkoBetrieb As Double)

CurrentDb.Execute "INSERT INTO NCC ( [AP Zuordnung], [NCC Code], [NCC Beschreibung], [Meilenstein], [Business Group], [NCC Identified] )" _
& "values ( " & AP & "," & 1 & "," & ChangeBeschreibung & "," & Meilenstein & "," & 1 & "," & AkoProdukte & ");"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier bekomm ich einen Laufzeitfehler 3061 "Es wurden 2 Parameter erwartet, aber zu wenige übergeben.....

Danke für eure Unterstützung!!

:)

Anne Berg · 1. Dezember 2011

Hallo,

Wie kann ich die Parameter an dieser Stelle mit den Werten, die an MakroKopieren übergeben worden belegen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

so könnte es klappen: Code:

Sub MakriKopieren(AP As String, ChangeBeschreibung As String, Meilenstein As String, AkoProdukte As Double, AkoDL As Double, AkoBetrieb As Double)
On Error Goto Fehler
Dim db as Database, qd As QueryDef
Set db = CurrentDB
Set qd = db.Querydefs("Q_CLAIMtoNCC")
qd.Parameters(0) = AP
qd.Parameters(1) = 1
qd.Parameters(2) = ChangeBeschreibung
qd.Parameters(3) = Meilenstein
qd.Parameters(4) = 1
qd.Parameters(5) = Str(AkoProdukte )
qd.Execute dbFailOnError
Ende:
set db = nothing
Set qd = Nothing
Exit Sub
Fehler:
MsgBox err.Description, , err.number
Resume Ende
End sub;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber überprüfe vorher noch die Parameter, du übergibst mehr als du benötigst.

Bei der alternativen Variante fehlen die Hochkommata bei den Datenfeldern vom Typ Text.
Du kannst die Anfügeabfrage aber auch direkt aus dem AfterUpdate-Ereignis heraus mit den Formularfeldern zusammensetzen und ausführen.

gpswanderer · 1. Dezember 2011

Hallo,

ich habe eine Access 2007 DB, in der ein Datensatz in eine andere Tabelle kopiert werden soll, sobald bestimmte bedingungen erfüllt werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Warum betreibst Du redundante Datenhaltung?
Du hast doch den Datensatz schon, wozu dann kopieren?

User · 1. Dezember 2011

Hi danke schon mal für eure antworten!!
@ Anne:
Sieht soweit gut aus, bei Code:

qd.Parameters(5) = str(AkoProdukte)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bekomme ich aber eine fehlermeldung "Element in dieser Auflistung nicht gefunden". Woran kann das liegen?

@gpswanderer: der Ursprungsdatensatz wird danach gelöscht werden.
Wenn die bedingungen, nach denen ich das ganze starte, erfüllt sind, gehört der datensatz logisch gesehen nicht mehr in die ursprungstabelle...

gpswanderer · 1. Dezember 2011

Hallo,
auch dann ist es auch nicht der richtige Ansatz. Das erinnert an Archivtabellen, die auch zu vermeiden sind.
Wenn Du eh Bedingungen hast, kannst Du doch einfach die Datensätze in einer Abfrage ausschließen und im weiteren Verlauf die Abfrage verwenden.

Mit Tabellen mit Beziehungen ist das eh nicht zu empfehlen, da Du Dir ja die ganze Datenkonsistenz zerhaust, bzw. es sowieso nicht so ohne weiteres geht.

Ich würd über das Vorhaben grundsätzlich noch mal nachdenken.

User · 1. Dezember 2011

Hi gpswanderer,

ich kann mir gut vorstellen, dass es elegantere/effizientere wege gibt, daher danke für den ansatz. leider kann ich nicht die gesamte db anwendung umstricken.

In der Anwendung gibt es zwei tabellen für zwei arten von vorgängen, die nicht zusammen in einer Tabelle geführt werden sollen (und eigentlich auch nicht können, weil vorgangstyp B z. b. viele attribute als pflichtfelder hat, die in A gar keinen sinn machen würden...

Und es gibt seltene fälle, da ändert sich der typ des vorgangs und der "Prozess" vor, dass der Vorgang aus der einen tabelle gelöscht/als erledigt gekennzeichnet wird und in die andere tabelle aufgenommen wird -> ich versuche lediglich diese vorgabe zu automatisieren.

Das nur als hintergrundinfo...bin mir sicher, dass es trotzdem eine bessere möglichkeit gibt, aber aus wissens-/zeitgründen suche ich erstmal nach dieser uneleganten lösung *Smilie

User · 2. Dezember 2011

Problem gelöst! Habe den alternativen Ansatz mit den hochkommata ausführen können!!!! Danke!

Office: (Office 2007) Datensatz per SQL/VBA in andere Tabelle kopieren

Datensatz per SQL/VBA in andere Tabelle kopieren

Datensatz per SQL/VBA in andere Tabelle kopieren

Datensatz per SQL/VBA in andere Tabelle kopieren

Datensatz per SQL/VBA in andere Tabelle kopieren - Similar Threads - Datensatz SQL VBA

Filtern von Datensätzen

Access Neuer Datensatz im Formular

Datensatz aus Ufo2 auch in Ufo1 anzeigen

Serienbrief aus mehreren Datensätze

Makro für variable Anzahl von Datensätzen

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

[SQL] letzter datensatz(datum)