GotoField - Problem

HI, we have just migrated from 6.0.4 to 8.5.2 and code that used to work seems to be misbehaving. When exiting a field instead of going to the next field it jumps further down the page.

Here is the Exiting code:

Sub Exiting(Source As Field)

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim x As String

Set uidoc = ws.CurrentDocument

Set doc = uidoc.Document

x = Cstr(doc.Quant2(0))

If x = “” Then

Goto endit

End If

If doc.Quant2(0) = 0 Then

Call uidoc.Refresh

Call uidoc.GotoField(“Quant2”)

Else

Call uidoc.Refresh

If Trim(doc.Desc2(0)) = “” Then

Call uidoc.GotoField("Desc2" )

End If

End If

endit:

End Sub

Prior to entering some data in the current field, the next field (“Desc2”) is hidden. But the uidoc.Refresh makes it visible.

Help.

Subject: RE: GotoField - Problem

Did you step thru the code with debug?

Also check the Forms/Fields property for refresh when changed, if it is set at the field level then u may not need the uidoc.refresh call