|
| möglicherweise hilft dies weiter ...
Sub Test()
Dim db As Database
Set db = CurrentDb
On Error GoTo errHandler
db.Execute ("Delete FROM TABELLE1 WHERE ID = 2"), dbFailOnError
MsgBox db.RecordsAffected
Exit Sub
errHandler:
MsgBox Err.Description
End Sub
Gruß aus Rene | |
|