Ich möchte alle Daten in der Dantenbank mit dem Namen Gefährdungsanalyse in der Tabelle Gefährdungsermittlung löschen die in dem Feld Maschine meinem Kriterium (in meinem Beispiel Testmaschine) entspricht.
Das löschen aller Daten klappt mit dem unten aufgeführten Makro.
Ich will aber ja nur alle Daten die zu einer Maschine gehören löschen.
Weiß jemand wie das geht ?
Sub Hol_Data()
Dim DBFullName As String
Dim TableName As String
Dim TargetRange As Range
Dim Maschine As String
Maschine = "Testmaschine"
z = 0
DBFullName = ThisWorkbook.Path & "\Gefährdungsanalyse.mdb"
TableName = "Gefährdungsermittlung"
Dim cn As ADODB.Connection, rs As ADODB.Recordset
' open the database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFullName & ";"
Set rs = New ADODB.Recordset
rs.Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable
While Not rs.EOF
rs.MoveFirst
'rs.Find Maschine, 1, adSearchForward, 1'das Funktioniert nicht
rs.Delete
rs.MoveFirst
Wend
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub