Page History

...

     Private Sub cmdSave_Click()

...

     ' Saves changes or inserts a new record.  Note that the fields are 
     ' updated as the user changes them.
     ' Errors are automatically handled by LANSA 

         Dim iRet As Integer    

         If bAdding = True Then
             ' user is inserting a new record
             iRet = LceInsert(iSession, "SKILCODE,SKILDESC",

...

 "SKLTAB",

...

 _
     LceFalse)
         Else

...

             ' user is saving changed record
         End If

         If iRet = LceTrue Then
             ' if successful force a refresh so list shows changes
             Call RefreshSkillsList
         End If
     End Sub