PDA

Vollständige Version anzeigen : CurrentDb.Execute und version 97


ZWAM
01.04.2004, 10:29
Ich hoffe es ist ein kleines Problem:


Warum funktioniert diese Prozedur in A97 nicht?

Fehlermeldung:

Fehler beim Kompilieren...
....Automatisierungtyp, der in VB nicht unterstützt wird.

Sub LN_RECHNUNG(ln As Integer, a As Integer)
ln = ln + 1

CurrentDb.Execute "UPDATE A_AUFTRAG SET A_AUFTRAG.LAUF_NR = " & ln & " WHERE (((A_AUFTRAG.AUFTRAG_ID)=" & a & "));"

CurrentDb.Execute "UPDATE T_LETZTE_NR RIGHT JOIN (T_GEMEINDE RIGHT JOIN T_AUFTRAG ON T_GEMEINDE.GMEINDE_ID = T_AUFTRAG.GEMEINDE) ON T_LETZTE_NR.ID = T_GEMEINDE.LETZE_NR SET T_LETZTE_NR.LETZTE_NR = " & ln & " WHERE (((T_AUFTRAG.AUFTRAG_ID)=" & a & "));"


End Sub


Lösubg?


Besten Dank für die Hilfe

stpimi
01.04.2004, 10:33
Vor und nach dem a am Ende gehört jeweils ein Hochkomma!

...WHERE (((A_AUFTRAG.AUFTRAG_ID)='" & a & "'));"


Mfg, Michael

ZWAM
01.04.2004, 10:56
Diese Aktinon bringt leider nichts :-(

Im VBA-Editor wird die Zeile

Sub LN_RECHNUNG(ln As Integer, a As Integer)
gelb markiert und die Wörter

CurrentDb

blau

Schon mal Besten Dank

J_Eilers
01.04.2004, 11:20
Hi,

hast du einen Verweis auf DAO gesetzt? FAQ 7.11 (http://www.donkarl.com)