Office: (Office 2007) Syntaxproblem DLookup mit Insert Into

Danke Euch , hab jetzt mal MAIKEK`S eingesetzt

dim strSQL As String
strSQL = "INSERT INTO TBL_ORDER_ITEM (FK_TBL_ORDER, ITEM_NUMBER, PRODUCT_ID, PRODUCT_PRICE) " & _
"VALUES (" & VAR_ORDER_ID & "', " & 1 & ", '01EWAS01', " & VAR_PRICE & ")"
Debug.print strSQL
Currentdb.Execute strSQL, dbFailOnError

Direktfenster perfekt:
INSERT INTO TBL_ORDER_ITEM (FK_TBL_ORDER, ITEM_NUMBER, PRODUCT_ID, PRODUCT_PRICE) VALUES (159', 1, '01EWAS01', 2,15)

Meldung im Formular: Syntaxfehler (Fehlender Operator) in Abfrageausdruck '159',1,'01EWAS01',2,15)'.

 

Nö,
ist nicht perfekt!

Hinter der 159 steht noch ein Hochkomma!
Das muss noch weg...

 

Hallo
@Jan
um das vor und nach ein ' braucht
müsste diese Frage :
aus einem früheren beitrag Beantwortet Wernden:
wie ist VAR_ORDER_ID in der Tabelle Definiert Zahl oder Text ?

 

Hmm, ja klar, aber
Klausi schrieb:

Code:

Ob nun Zahl oder Text...entweder ist das hintere zu viel oder vorne fehlt's eben. Aber "perfekt" war das nicht...:-))

@klausi braucht Hilfe:
Siehst Du denn jetzt den Fehler und die Frage nach dem Datentyp?

 

Hurra !!! Ihr seid Spitze Dank Euch allen.
Ihr werdet euch beim Anblick des Codes mit Sicherheit die Haare raufen, aber es funktioniert. Ist ein Coktail aus all Euren Tips

Eines noch : Ich möchte den String nur ausführen wenn eine IF Klausel erfüllt wird. . Wie muss die Syntax im Else Teil aussehen ? So vielleicht ?
Else
CurrentDb.DONOTExecute StrNEW_POS, dbFailOnError ?


VAR_POSITION = "'01EWAS01'"
Debug.Print "VAR_POSITION ->"; VAR_POSITION

VAR_ITEM_NUMBER = 1
Debug.Print "VAR_ITEM_NUMBER->"; VAR_ITEM_NUMBER

VAR_ORDER_ID = DMax("ID", "TBL_ORDER")
Debug.Print "VAR_ORDER_ID->"; VAR_ORDER_ID

VAR_PRICE = DMax("PRICE", "TBL_PRODUCT", "USER_ID =" & VAR_POSITION & "")
Debug.Print "VAR_PRICE ->"; VAR_PRICE

VAR_POSTEXT = DMax("PRODUCTNAME", "TBL_PRODUCT", "USER_ID =" & VAR_POSITION & "")
Debug.Print "VAR_POSTEXT ->"; VAR_POSTEXT

VAR_QUANTITY = DMax("Objekt_Transportstrecke", "EWA_tbl_Objektdaten", _
"ID_Objekt = Formulare![EWA_Hauptformular]![EWA_tbl_Objektdaten_Unterformular1].Form![ID_Objekt]")
Debug.Print "VAR_QUANTITY ->"; VAR_QUANTITY

VAR_QUANTITY_UNIT = DMax("QUANTITY_UNIT", "TBL_PRODUCT", "USER_ID =" & VAR_POSITION & "")
Debug.Print "VAR_QUANTITY_UNIT ->"; VAR_QUANTITY_UNIT

VAR_WEIGHT = DMax("WEIGHT", "TBL_PRODUCT", "USER_ID =" & VAR_POSITION & "")
Debug.Print "VAR_WEIGHT ->"; VAR_WEIGHT

VAR_TAX_ID = DMax("FK_TBL_PRODUCT_TAX", "TBL_PRODUCT", "USER_ID =" & VAR_POSITION & "")
Debug.Print "VAR_TAX_ID ->"; VAR_TAX_ID

Dim StrTAX As String
Dim TAXVALUE As String
If VAR_TAX_ID = 1 Then
StrTAX = 0.19
Else
If VAR_TAX_ID = 2 Then
StrTAX = 0.07
Else
If VAR_TAX_ID = 3 Then
StrTAX = 0
End If
End If
End If
Debug.Print "StrTAXVALUE ->"; StrTAXVALUE
Debug.Print "VAR_TAX_ID ->"; VAR_TAX_ID
Dim StrPRICE As String
StrPRICE = VAR_PRICE
Debug.Print "StrTAX ->"; StrTAX

VAR_SORT = VAR_ITEM_NUMBER - 1
Debug.Print "Var_Sort ->"; VAR_SORT


Dim StrNEW_POS As String
StrNEW_POS = "INSERT INTO TBL_ORDER_ITEM" _
& " (FK_TBL_ORDER, ITEM_NUMBER, PRODUCT_ID,PRODUCT_TEXT ,PRODUCT_PRICE,QUANTITY,QUANTITY_UNIT,WEIGHT,TAXVALUE,SORT)" _
& " VALUES (" & VAR_ORDER_ID & "," & VAR_ITEM_NUMBER & "," & VAR_POSITION & ",'" & VAR_POSTEXT & "' ," & Str(StrPRICE) & "," & VAR_QUANTITY & "" _
& " ,'" & VAR_QUANTITY_UNIT & "','" & VAR_WEIGHT & "'," & Str(StrTAX) & "," & VAR_SORT & ")"

Debug.Print StrNEW_POS_1
CurrentDb.Execute StrNEW_POS, dbFailOnError

 

:-))))))))))))
DONOTExecute ist herrlich - sollte man einführen.

Schreib im ELSE-Statement einfach gar nichts rein.

(Habe den Restcode nicht angeschaut)

 

...
oder schreibe im ELSE-Teil:

MsgBox "DONOTExecute erfolgreich ausgeführt..."

 

Hallo

Heisst das es Läuft
wenn JA
sag uns doch noch wie es jetzt bei Dir Läuft mit welchem Code genau *wink.gif*

 

Pruuuuuuuuuuuuuust *grins *yelrotflmao

@klausi: Man würde mit deinem Code lieber umgehen, wenn du ihn in Code-Tags setzt (oben rechts das Symbol anklicken).
Das macht das Ganze erheblich lesbarer.
maike

 

Hallo
lies evtl auch einmal das:
http://ms-office-forum.net/forum/sho...?t=102899#usec
Darstellung von Code-Abschnitten

 

Ist ja schon OK, ich geb ja alles zu.

Hätte nur nicht gedacht daß access mal was macht wenn man nichts macht. Machts aber gut.

Und @Fraeser Das mit der MSG Box finde ich im nachhinein wirklich gut.

Werd mich am WE mal mit der Darstelling von Code Abschnitten befassen.
Sollte ich meine kleine DB jemals fertigkriegen, würde ich gerne mal einen Profi drüberschauen lassen, der nicht allzu Suizidgefährdet ist und nicht so Irre viel Geld dafür verlangt. Kennt Ihr so jemanden ?
Also Danke euch allen nochmal, schönes WE und bis nächste Woche.

 

Hallo
wen Du Dich hier im Forum Anmeldest
was sehr viele Vorteile bringt und nichts Kostet 0.0 Euro
dann kann man Dir PN Private Nachrichten Senden
und Du Kannst auch PN senden

so könnte ich Dir Meine E-Mailadresse senden dann könntest Du mir Deine MDB senden *wink.gif*