5.3.4 Setting a New Record's Fields to Default Values

A new record is added to a table using LceInsert. In this case, the Add command button is used only to set the default values of the fields retrieved from the dictionary (clears record). On Save, either LceInsert or LceUpdate is called, depending on whether the current record is being added or edited.

     Private Sub cmdAdd_Click()
   
         'Code
         sBuff = String(FIELD_DATA_SIZE, Chr(0))
         iRet = LceGetDefaultValueX(iSession, "SKILCODE", sBuff, lFlags)
         '-----------------------------------------------------
         If lFlags = 1 Then
             txtCode = "Null value"
         Else
             txtCode = sTrim(sBuff)
         End If
         
         'Desc
         sBuff = String(FIELD_DATA_SIZE, Chr(0))
         iRet = LceGetDefaultValueX(iSession, "SKILDESC", sBuff, lFlags)
         '-----------------------------------------------------
         If lFlags = 1 Then
             txtDesc = "Null value"
         Else
             txtDesc = sTrim(sBuff)
         End If
    
         'set flag to indicate that a new record is being added.
         'this flag is used in the cmdSave_Click() subroutine
         bAdding = True
 
     End Sub