Page History

...

     Private Sub txtCode_GotFocus()
 
         '

...

 sets txtCode as the current field 
         ' sets form status line to contain the current field's long
         ' description
         ' sets the current field name to use with "get extended help" 
 
         Dim sBuff As String, iRet As Integer
         sBuff = String(FIELD_DATA_SIZE,

...

 Chr(0))

...

 '

...

 pre-allocate memory
 

...

         ' set form status line to contain the current field long description 
         iRet = LceGetFieldDesc(iSession, "SKILCODE",

...

 sBuff)
         frmMain.

...

status2 =

...

 (sTrim(sBuff))

...

...

         ' store the current field name to use with "get extended help" 
         sLastField = "SKILCODE" ' for help