VBA:sql-abrage, entweder Abruch oder macroausführung

[Marco Ostermann]

Hallo Leute,

hab folgendes Problem:

in einem VB-schript soll zunächst ein sql-statement ausgeführt werden, das nachschaut, ob eine oracle-tabelle leer ist
if (select count(*) from tabelle)
falls 0 bei rauskommt, soll eine (then) Msgbox angezeigt werden und die das ganze abgebrochen wird, weil keine Daten in der Tabelle stehen.

else (also es stehen werte in der Tabelle) soll ein bereits definiertes macro ausgeführt werden.

grob hat das schon mal so versucht, ist natürlich in die Hose gegangen. Aber wie könnte das folgende verbessert werden? Danke im voraus

Dim x As String
Dim y As String

y= "macroname"

x = DoCmd.RunSQL("select count(*) from tablename")
If x = 0 Then
MsgBox ("not possible cause table is empty")
End
Else
DoCmd.runmacro y, acViewNormal, acAdd
End If
End Sub

[Fritz Reimer]

Hallo Marco,

mit RunSQL kann man nur Aktionsabfragen oder Datendefinitionabfragen ausführen. Eine "einfache" Abfrage wie Deine, wirst Du am besten über ein Recordset und die Recordcount - Eigenschaft realisieren (oder halt direkt eine Abfrage erstellen). Schau mal in der Hilfe unter Recordcount (mdb), dort ist ein gutes Beispiel.

mfg
Frit

[Marco Ostermann]

Hallo Fritz,

hatte zwar noch keine Zeit, dass zu testen, aber ich wollte mich trotzdem für den Tip bedanken.

Gruss
Marc