Access-Forum > Tabelle/Abfrage

Anfügeabfrage ohne Fehler und ohne Wirkung

(1/2) > >>

MrB:
Neue Frage zu einem neuen Problem.
Ich habe ein Formular zur Eingabe neuer Teile erstellt, das bis auf Feinheiten funktioniert.
Jetzt müssen die Daten in die Tabellen tblTeile und tblStueckliste
Dazu habe ich 2 Anfügeabfragen erstellt und will die Daten aus dem Formular als Kriterien über geben.
Leider funktioniert das nicht ich bekomme nix weder Fehlermeldung noch Erfolg.
Hier mal der Code

--- Code: ---Private Sub bef_OkUndSpeichern_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb
Set qdf = db.QueryDefs("abf_NeuteilAnfuegeAbfrage")

    qdf("1") = Me!txt_frm_Neuteil_anlegen_Nummer
    qdf("2") = Me!cbo_frm_Neuteil_anlegen_Materialgruppe.Column(0)
    qdf("3") = Me!cbo_frm_Neuteil_anlegen_Lieferanten.Column(0)
    qdf("4") = Me!cbo_frm_Neuteil_anlegen_G_Item.Column(1)
    qdf("5") = Me!cbo_frm_Neuteil_anlegen_SG_Item.Column(1)
    qdf("6") = Me!txt_frm_NeuteilAnlegen_Preis
    qdf("7") = Me!txt_Neuteil_Anlegen_G_Item_English
    qdf("8") = Me!txt_frm_Neuteil_Anlegen_SG_Item_English
    qdf("9") = Me!txt_frm_Neuteil_Anlegen_Remarks
    qdf("a") = Me!txt_frm_Neuteil_Anlegen_Remarks
        qdf.Execute

'Set qdf = db.QueryDefs("abf_NeuteilAnfuegeAbfrage_tblStueckliste")

    'qdf("b") = Me!txt_Neuteil_Anlegen_G_QTY
    'qdf("c") = Me!txt_SG_QTY
    'qdf("d") = ID_Teil
    'qdf("e")= Me!cbo_frm_Neuteil_anlegen_Stuecklistenzuordnung
        'qdf.Execute
End Sub

--- Ende Code ---
Habe bereits über Google gesucht aber nix gefunden.

Cord

DF6GL:
Hallo,

sinnvoll wäre es, den SQL-String der Abfrage zu posten...

MrB:
Habe die Datenbank auch in http://www.access-o-mania.de/forum/index.php?topic=23590.0
gerade hochgeladen.

--- Code: ---INSERT INTO tblTeile ( ET_Number, ID_MG_F, ID_L_F, G_ITEM_German, SG_ITEM_German, HK_SG_SP, G_ITEM_English, SG_ITEM_English, ITEM_Details, REM )
SELECT tblTeile.ET_Number, tblTeile.ID_MG_F, tblTeile.ID_L_F, tblTeile.G_ITEM_German, tblTeile.SG_ITEM_German, tblTeile.HK_SG_SP, tblTeile.G_ITEM_English, tblTeile.SG_ITEM_English, tblTeile.ITEM_Details, tblTeile.REM
FROM tblWorkshops INNER JOIN (tblMAT_Gruppe INNER JOIN (tblLieferanten INNER JOIN (tblTeile INNER JOIN tblStueckliste ON tblTeile.ID_Teil = tblStueckliste.ID_Teil_F) ON tblLieferanten.ID_L = tblTeile.ID_L_F) ON tblMAT_Gruppe.ID_MG = tblTeile.ID_MG_F) ON tblWorkshops.ID_WS = tblStueckliste.ID_WS_F
WHERE (((tblTeile.ET_Number)=[1]) AND ((tblTeile.ID_MG_F)=[2]) AND ((tblTeile.ID_L_F)=[3]) AND ((tblTeile.G_ITEM_German)=[4]) AND ((tblTeile.SG_ITEM_German)=[5]) AND ((tblTeile.HK_SG_SP)=[6]) AND ((tblTeile.G_ITEM_English)=[7]) AND ((tblTeile.SG_ITEM_English)=[8]) AND ((tblTeile.ITEM_Details)=[9]) AND ((tblTeile.REM)=[a]));

--- Ende Code ---

--- Code: ---INSERT INTO tblStueckliste ( ID_Teil_F, ID_WS_F, G_QTY, SG_QTY )
SELECT tblStueckliste.ID_Teil_F, tblStueckliste.ID_WS_F, tblStueckliste.G_QTY, tblStueckliste.SG_QTY
FROM tblWorkshops INNER JOIN (tblMAT_Gruppe INNER JOIN (tblLieferanten INNER JOIN (tblTeile INNER JOIN tblStueckliste ON tblTeile.ID_Teil = tblStueckliste.ID_Teil_F) ON tblLieferanten.ID_L = tblTeile.ID_L_F) ON tblMAT_Gruppe.ID_MG = tblTeile.ID_MG_F) ON tblWorkshops.ID_WS = tblStueckliste.ID_WS_F
WHERE (((tblStueckliste.ID_Teil_F)=[b]) AND ((tblStueckliste.ID_WS_F)=[c]) AND ((tblStueckliste.G_QTY)=[d]) AND ((tblStueckliste.SG_QTY)=[e]));

--- Ende Code ---
Ich hoffe du kannst da was mit Anfangen

Cord

MrB:
Beim lesen des SQL ist mir aufgefallen ich frage die tblTeile aus der tblTeile ab ? und setze nur Kriterien um etwas zu finden, was nicht da ist.
Na dann kann ja nix rauskommen  :o
Ich glaube das kann ich löschen und was neues suchen
Hatte die Boardmittel Access gefunden war aber nicht zufrieden, weil ich beide Tabellen gleichzeitig füllen will.
Ich schaue dort nochmal glaube ich
Cord

Ps sollte ich mich irren und was missinterpretiert haben bitte ich um Korrektur

DF6GL:
Hallo,

in der Tat...


--- Code: ---Private Sub bef_OkUndSpeichern_Click()
Dim db As DAO.Database
Dim strSQl as String
Set db = CurrentDb

strSQL = "INSERT INTO tblTeile ( ET_Number, ID_MG_F, ID_L_F, G_ITEM_German, SG_ITEM_German, HK_SG_SP, G_ITEM_English, SG_ITEM_English, ITEM_Details, REM ) Values ('" & _
Me!txt_frm_Neuteil_anlegen_Nummer & "'," & _
<<ID_MG_Fremdschlüsselwert>>  & "," & _
<<ID_L_Fremdschlüsselwert>> & "," & _
Me!txt_Neuteil_Anlegen_G_Item_Deutsch & "','" & _
.
.
……  & "')"
db.execute strSQL,dbFailOnError
 
End Sub


--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

Beim Bedanken trat ein Fehler auf
Bedanken...
Zur normalen Ansicht wechseln