Zitat
Dim reloadedRecordset As ADODB.Recordset
Set reloadedRecordset = New ADODB.Recordset
reloadedRecordset.Open "debit05_reloaded", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With reloadedRecordset
reloadedRecordset.MoveFirst
Do Until .EOF
.Fields("BU_DATUM") = CDate(.Fields("BU_DATUM"))
.Update
.MoveNext
Loop
.Close
End With
Set reloadedRecordset = Nothing
Set reloadedRecordset = New ADODB.Recordset
reloadedRecordset.Open "debit05_reloaded", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With reloadedRecordset
reloadedRecordset.MoveFirst
Do Until .EOF
.Fields("BU_DATUM") = CDate(.Fields("BU_DATUM"))
.Update
.MoveNext
Loop
.Close
End With
Set reloadedRecordset = Nothing
leider kommt da immer die meldung, dass die anzahl der dateisperrungen überschritten wurde.weißt jemand woran das liegt?