| |
New user
Beiträge: 4
| Hallo,
bevor ich eine Tabelle mit Init Datensätzen fülle, lösche ich die vorhandenen Datensätze zu den Kriterien.
In einem automatisierten Ablauf, lese ich nun aus einer Textdatei die jeweiligen Daten aus und übertrage sie in die zuvor gelöschte Tabelle.
Am Schluss der Verarbeitung möchte ich diverse Ablaufinfos im Formular ausgeben, was auch gut klappt. Nur die Anzahl der gelöschten Sätze bekomme ich nicht hin.
Hier ist der Code, mit dem ich es versuche. Vllt. hat jemand eine Idee?
Public Sub LöschenLVAR()
Dim db As Database
Dim qd As QueryDef
Dim rs As Recordset
Set db = CurrentDb()
Set qd = db.QueryDefs("qryDeleteLvar")
Set rs = CurrentDb.OpenRecordset("tblLvars")
qd.Parameters("SIM") = Sim
qd.Parameters("JET") = Jet
qd.Execute dbFailOnError
Zähler5 = RecordsAffected
Init = "N"
End Sub
Im Voraus vielen Dank für Eure Hilfe.
Grüße
Joachim | |
|