Office: (Office 2010) Separates Zusatzfeld/Textfeld je Datensatz

Also soll hinter den Knopf "Prüfliste erstellen" noch ein Befehl der gleichzeitig die Abfrage mit diesen Parametern in die Ergebnisstabelle schreibt?!

Wie kommen dann die zusätzlichen Werte in diese Ergebnisstabelle?

Wie kommen die Parameter aus den Kombis in die From Klausel?

Das scheint jetzt ja echt extrem knifflig zu werden...

 

PHP:

         Private Sub Befehl136_Click()
Dim strSQL As String

strSQL = "INSERT INTO Ergebnisse " & _
"([Datenfeld-Nr], Anforderung, Bild, [Bau-Ist-Zustand], iO, niO) " & _
"Select(([Datenfeld-Nr], Anforderung, Bild, [Bau-Ist-Zustand], iO, niO) " & _
"From ([Datengrundlagge Abfrage]);"

CurrentDb.Execute strSQL, dbFailOnError

End Sub


 

Du warst zu freizügig mit den Klammern.
Code:

Damit würden alle Felder aus der Abfrage kommen. Die Kombis müssten da ja eh jetzt schon einfließen.

Die resultierenden Sätze kommen in die Ergebnistabelle, die auch im Formular gezeigt werden sollte. Dort kannst du die Ergebnisse dann nachtragen.

 

Jetzt sagt er er findet die Eingabetabelle oder Abfrage "Datengrundlage Abfrage" nicht mehr und ich soll sicherstellen das diese auch da ist...?!?!?

Also die Abfrage ist natürlich da und ich sehe sie auch...

 

Die Namen der Tabellen, Abfragen und Felder kennst nur du... Lad mal hoch, wenn das Forum mal drübersehen soll... rein syntaktisch ist die SQL ok.

Sind da wirklich 2 g bei Datengrundlagge Abfrage?

 

Vergiss es, war ein Rechtschreibfehler im Code, wurde behoben. Jetzt sagt der dafür das 4 Parameter erwartet wurden, es wurden aber null übergeben...

Also muss ich die Parameter aus den Kombis noch an den Code übergeben?!

 

Ich seh halt nix... *grins Die Meldung sagt, dass 4 als Feldnamen gedeutete Namen nicht exisieren. Entweder sind das Tippfehler, oder die Parameterabfrage zieht ihre Daten nicht richtig aus den Formular-Kombis.

Lad halt mal hoch.

 

So,

hab die Daten durch Unsinn ersetzt, das sollte dem Funktionsprinzip aber keinen Abbruch tun. Vielleicht findest du ja den Grund aus dem die Daten nicht in der Ergebnisstabelle landen.

Wahrscheinlich wird dir aber schlecht wenn du das Chaos siehst *Smilie

 

Kann mir jemand den Syntaxtfehler aufzeigen bzw. erklären wie ich die Where Klauses richtig formuliere. Beabsichtigt ist das die Abfrage ihre Parameter aus den Kombiboxen des Formulars nimmt.

Hier mein Code:

PHP:

         Private Sub Befehl136_Click()
Dim strSQL As String

strSQL = "INSERT INTO Ergebnisse " & _
"([Datenfeld-Nr], Anforderung, Bild, [Bau-Ist-Zustand], iO, niO) " & _
"Select [Datenfeld-Nr], Anforderung, Bild, [Bau-Ist-Zustand], iO, niO " & _
"From [Datengrundlage Abfrage]" & _
"Where [Datengrundlage.Land] Like IIf " & Me!Kombinationsfeld121 & "="Alle"," * "," & Me!Kombinationsfeld121 & " & _
And [Datengrundlage.Vorschriftenbereich] Like II " & Me!Kombinationsfeld125 & "="Alle","*"," & Me!Kombinationsfeld125 & " & _
And [Datengrundlage.Fahrzeugklasse] Like IIf " & Me!Kombinationsfeld127 & "="Alle","*"," & Me!Kombinationsfeld127 & " & _
And [Datengrundlage.Fahrzeug] Like IIf " & Me!Kombinationsfeld123 & "="Alle","*"," & "*" & Me!Kombinationsfeld123 & "*" & ");"

CurrentDb.Execute strSQL, dbFailOnError

End Sub


 

Achso.
donkarls Access-Seiten
Die Paranmeter sind hier die 4 Formularzugriffe.

Alternativ könntest du die SQL auch per VBA zusamensetzen.

 

PHP:

         Private Sub Befehl136_Click()
Dim strSQL As String
strSQL = "INSERT INTO Ergebnisse " & _
"([Datenfeld-Nr], Anforderung, Bild, [Bau-Ist-Zustand], iO, niO) " & _
"Select [Datenfeld-Nr], Anforderung, Bild, [Bau-Ist-Zustand], iO, niO " & _
"From [Datengrundlage Abfrage] " & _                                                                'Ist eine Abfrage
"Where (Datengrundlage.Land = '" & Forms!Prüfformular!Kombinationsfeld121 & "') _                   ' Hiermit sollen die Parameter für die Abfrage vorgegeben werden, sie stammen aus Kombiboxen eines Formulars
AND (Datengrundlage.Vorschriftenbereich = '" & Forms!Prüfformular!Kombinationsfeld125 & "') _
AND (Datengrundlage.Fahrzeugklasse = '" & Forms!Prüfformular!Kombinationsfeld127 & "') _
AND (Datengrundlage.Fahrzeug = '" & "*" & Forms!Prüfformular!Kombinationsfeld123 & "*" & "') ;"
CurrentDb.Execute strSQL, dbFailOnError
End Sub


 

Hast du den Donkarl-Link mal gelesen?! Parameterabfragen lassen sich per VBA nicht einfach per Execute ausführen, da die Parameter dann auch per VBA übergeben werden müssen. Der Link zeigt dir, wie.

 

Hab ich gelesen, werd aber nicht so richtig schlau draus.

Sehe ich das richtig das bei

qdf.Parameters!MeinParameter1

MeinParameter1 der Text aus der Kriterienzeile meiner Abfrage ist?

"Wert_für_Parameter1_in_Anführungszeichen_falls_er_ein_Text_ist" soll ja mein Kombifeld aus dem Formular sein, darauf habe ich so verwiesen:

= Forms!Prüfformular!Kombinationsfeld121

Kann ich hier später auch noch Mit Wildcards und "Wie" und "Wenn" arbeiten?

 

Habs jetzt mal ganz anders aufgesetzt. Die SQL der Datengrundlage wird neugeschrieben, und darauf kann auch die Insert-Anweisung dann zugreifen.

 

So schon ganz gut denke ich, funktioniert aber irgendwie nicht immer.

Denkst du es ist möglich die Abfrage mit Parameterzugriff über die Kombifelder im FOrm laufen zu lassen und den INsert into dann seperat auf die Kombifelder zugreifen lassen. Where als str zu deklarieren und für die insert into zu verwenden...

Mal gucken ob ich das mit meinen extrem beschränkten VBA Fähigkeiten hinbekomme