Function | SQL_DeleteAll(ByVal rs As ADODB.Recordset) As Boolean |
---|---|
Public Function SQL_DeleteAll(ByVal rs As ADODB.Recordset) As Boolean If rs.EOF = False Then On Error Resume Next rs.MoveFirst On Error GoTo 0 While rs.EOF = False rs.Delete rs.MoveNext Wend FF_UpdateRecordset rs SQL_DeleteAll = True Else SQL_DeleteAll = False End If End Function |