if Dcount

[Youssef]

hallo ,
ich habe folgedes Code mit der Fehlermeldung:
Syntaxfehler in Zeichenfolge in Abfrageausdruck 'TOOLID = '35503810' And MATERIALID = ' 1.0037' And MATERIALGROUPID = '1.0'.
Wo ist der Fehler, kann mir jemanden helfen?

Code [Auswählen] Erweitern

If DCount("*", "TMS_TDM_TOOLTECHNOEXV", "TOOLID= '" & Me.TOOLID & "' And MATERIALID = '" & Me.Parent!txtMATERIALID & "'  And MATERIALGROUPID = '" & Me.Parent!txtMATERIALGROUPID) > 0 Then
MsgBox "Die Schnittdaten unter diesem Werkstoff und dieser Werkstoffgruppe sind bereits vorhanden", vbExclamation + vbOKOnly, "Wichtiger Hinweis"

strSQL1 = "INSERT INTO TMS_TDM_TOOLTECHNOEXV ([TOOLID],[MATERIALID],[MATERIALGROUPID],[TECHNOCLASSID],TOOLTECHNOPOS )" & _
                "VALUES ('" & Me.Parent!txtTOOLID_1 & "', '" & _
                       Me.Parent!txtWerkstoff & "','" & _
                       Me.Parent!txtWerkstoffgruppe & "', '" & _
                       Me.Parent!txtTECHNOCLASSID & "'," & a & ")"

[trebuh]

Hallo,
bin zwar jetzt kein Experte, aber fehlt am Ende von 

Code [Auswählen] Erweitern

= '" & Me.Parent!txtMATERIALGROUPID) > 0 Then
nicht ein Hochkomma und Gänsefüßchen?

also

Code [Auswählen] Erweitern

If DCount("*", "TMS_TDM_TOOLTECHNOEXV", "TOOLID= '" & Me.TOOLID & "' And MATERIALID = '" & Me.Parent!txtMATERIALID & "'  And MATERIALGROUPID = '" & Me.Parent!txtMATERIALGROUPID"') > 0 Then
MsgBox "Die Schnittdaten unter diesem Werkstoff und dieser Werkstoffgruppe sind bereits vorhanden", vbExclamation + vbOKOnly, "Wichtiger Hinweis"

[Youssef]

hallo

[MaggieMay]

Hi,

Gänsefüßchen und Hochkommata müssen immer paarig eingesetzt werden, darauf solltest du achten.