Spurious use of goto...

[Rob Grainger]

A true gem...

If CurrentContext = "D" Then GoTo c45

GetUserDataRecord aForm

c45:

There were no other ref's to c45, so replaced by...

If CurrentContext <> "D" Then GetUserRecord aForm

Further down in same procedure:

GoSub ResolveTabOrder

' Other code here

Exit Function

ResolveTabOrder:

If uControlNbr < 2 Then Return

' More code here

GoTo ResolveTabOrder

End Function

[joe_j]

Now this is what happens if you Google "coding" in the "Fill in the blanks" forum