Deletes all of the records in a table.
Sub DeleteRecs(ByVal hTable As Long)
The handle to the table.
'Deletes all the records in table 50001
CF1.OpenTable hTable, CLng(.Text1(cf.TableNoCreate).Text)
If CF1.RecCount(hTable) > 0 Then
logWr "Deleterecs not OK"
logWr "Deleterecs OK"
DeleteRecs deletes all of the records in the table referenced by hTable. DeletesRecs must be called from inside a transaction.