Painting Troubles (1 Viewer)

[DALeffler]

The following code is at the end of a On_Change Event procedure for a look-up text box on a form. A sub form (continious forms) contains the records to be searched (not really - I open a snapshot recordset in code that matches the records in the subform).

With .rstLstNme
...

lngCrntRec = .AbsolutePosition 'AbsolutePosition zero based
Me.Painting = False
Me!MainFormSbFrm.Height = 528 'get subform to show single record
DoCmd.GoToControl "MainFormSbFrm"
DoCmd.GoToRecord , , acGoTo, lngCrntRec + 1 'goto found record
'make found record the 2nd record displayed in subform
If lngCrntRec > 0 Then
DoCmd.GoToRecord , , acPrevious
End If
Me!MainFormSbFrm.Height = 2340
If lngCrntRec > 0 Then
DoCmd.GoToRecord , , acNext
End If
Me.Painting = True
.....

End With

The problem I'm having is the subform does not appear normally at work (Win98) as when run at home (NT4.0). Normally is an understatement: I have windows "showing thru" into the Access window at work (where the sbfrm was supposed to have been redrawn) and cannot reproduce the problem at home.

The screen resolutions are different, but even adjusting the .height property has no effect.

Any ideas?

Thanks,

Doug.