1 Reply Latest reply on Sep 7, 2006 7:15 AM by (Peter_Yao)


    Level 1
      The following code checks to see if there are items in the lstExp list box. Then it starts at row 1, and if (irow,6) is not empty, it retrieves the data as NewGLNo. Then if the last 4 characters are <> "0000", it replaces the last part with a new TKNo value and saves as NewTLNo. I then want to replace that row,column with the new number (NewGLNo).

      if lstExp.ListCount > 0 then
      for irow = 1 to lstExp.ListCount
      if lstExp.RetrieveItem(irow,6) <> "" then
      NewGLNo = lstExp.RetrieveItem(irow,6)
      msgbox NewGLNo
      if right(NewGLNo,4) <> "0000" then
      NewGLNo = mid(NewGLNo,1,15) & TKNo.Value
      msgbox NewGLNo
      end if
      end if
      end if

      When this code runs I get the error, "cannot use parentheses when calling a sub." If I comment out the ReplaceItem line, there is no error but, of course, the replace doesn't occur. What is the proper format for ReplaceItem? I have tried saving the data to a field on the form as well as to a variable.

      Thanks in advance.! Mary