CurrentDb.Execute statt SQL - Parameter erwartet

[hawebe]

Hallo,

ich versuche zur Zeit die Codezeilen in meiner Anwendung zu minimieren. Dazu will ich ich SQL durch CurrentDb.Execute ersetzen.
Dabei habe ich so meine Probleme, denn was unter SQL läuft, erfordert bei Execute zusätzliche Parameter.


Hier der SQL String als Beispiel, der unter Execute Parameter erfordert:

cSQL = "DELETE tbl_PROVISION.*, tbl_PROVISION.VENr FROM tbl_PROVISION WHERE (((tbl_PROVISION.VENr)=[Forms]![Prov_Hfrm].[Form]![KuNr]));"

Vermutlich liegt die Ursache in den Kriterien (Formularbezug). Aber auch bei Verwendung von Eval ändert sich nichts.

Könnt Ihr mir bitte auf die Sprünge helfen?

[bahasu]

Hi,

was passiert bei:

Code (vb) [Auswählen] Erweitern

cSQL = "DELETE tbl_PROVISION.*, tbl_PROVISION.VENr FROM tbl_PROVISION WHERE tbl_PROVISION.VENr=" & [Forms]![Prov_Hfrm].[Form]![KuNr] & ";"
Unter der Voraussetzung, dass KuNr vom Typ Zahl ist.

[DF6GL]

Hallo Ha-Wo,

der Formularbezug muss ausgelagert werden (und die FeldListe ist eh überflüssig):

Dim cSQL as String

'VENr besitzt hier den Datentyp Zahl,Long
cSQL = "DELETE FROM tbl_PROVISION WHERE (((tbl_PROVISION.VENr)=" & [Forms]![Prov_Hfrm]![KuNr] & "));"

Currentdb.Execute cSQL, dbfailOnError


Wenn Tabellenfelld "VENr" den DatenTyp TEXT aufweist, muss es zudem so lauten (Hochkommata und etwas verkürzt):

cSQL = "DELETE FROM tbl_PROVISION WHERE VENr='" & [Forms]![Prov_Hfrm]![KuNr] & "'"


Wenn der Code im selben Form abläuft, in dem sich das Formularfeld befindet, reicht zudem:

cSQL = "DELETE FROM tbl_PROVISION WHERE VENr='" & Me![KuNr] & "'"

[hawebe]

Hallo Franz,
die Kurzfassung war in diesem Fall optimal. Danke auch für die ausführliche Hilfe. Sie ermöglicht mir ähnlich gelagerten Fälle zu prüfen und zu ändern.

Also wie immer herzlichen Dank und damit auch ein Lebenszeichen von mir, denn ich hatte mich ja mehrere Monate nicht mehr gemeldet.