Method
Specifies that an error will not be caused if you attempt to insert
a record that has the same key as a record that already exists.
Category
Errors
Syntax
Sub AllowRecordExists
Example
'AllowRecordExists
'Inserts an existing row in the test table
CF1.OpenTable hTable, CLng(frmCfrontTest.Text1(cf.TableNoCreate).Text)
hRecord = CF1.AllocRec(hTable)
CF1.FindRec hTable, hRecord, "-"
CF1.BWT
CF1.AllowRecordExists
tmpVar2 = CF1.InsertRec(hTable, hRecord)
If tmpVar2 = False Then
logWr "AllowRecordExists OK"
Else
logWr "AllowRecordExists failed"
End If
CF1.AWT
CF1.FreeRec hRecord
CF1.CloseTable hTable
Comments
This function only allows the error to occur for one function call.
It must be set each time you want to use it (as opposed to
disabling the error for your application as a whole).
This function works as if HideError had been set to TRUE before a function that tries to insert a record is called, and HideError is reset to FALSE afterwards. This means that it is shorthand for a construction like the following (where Cf is a C/FRONT OCX object):
Cf.HideError = TRUE
Cf.FunctionThatInsertsRecord
Cf.HideError = FALSE
Using this function also means that LastError cannot be used to retrieve an error code. You have to use the return value of the function, as follows:
Cf.AllowRecordExists
Ret = Cf.FunctionThatInsertsRecord
If Ret <> TRUE Then
' handle error
AllowRecordExists affects the InsertRec function.