Method
Deletes all of the records in a table.
Category
Record
Syntax
Sub DeleteRecs(ByVal hTable As Long)
hTable
The handle to the table.
Example
'Case "DeleteRecs"
'Deletes all the records in table 50001
createTestTable
fillTestTable (10)
CF1.OpenTable hTable, CLng(.Text1(cf.TableNoCreate).Text)
CF1.BWT
CF1.DeleteRecs hTable
CF1.EWT
If CF1.RecCount(hTable) > 0 Then
logWr "Deleterecs not OK"
End
End If
logWr "Deleterecs OK"
deleteTestTable
Comments
DeleteRecs deletes all of the records in the table referenced by
hTable. DeletesRecs must be called from inside a transaction.