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.