continuous forms

[Guest]

I have a form set up to show as continuous form, ending up looking somewhat
like a checkbook register. When there are more records than will fit on a
page, the vertical scrollbar kicks in, which is fine. I have the form set up
OnLoad to automatically go to the new record at the bottom.

If there are more records than fit on a page, the cursor goes to the new
record (as it should), but the new record is placed at the top of the page,
giving the misleading impression that there are no other records. The
scrollbar's there, but end users sometimes don't realize they need to *use*
it.

Is there a way to have it start at the last record, but have that last
record show up at the bottom of the form screen instead of the top?

TIA

 

[Stephen Lebans]

If you're Form's Height is of a fixed size then you could use the method
contained in the SelTop sample form here:
http://www.lebans.com/setgetsb.htm
Just subtract the number of displayable rows from the total record
count.
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Michael Proctor]

I think this may be revelevent, I had a situation whereby I would move the
current to a new record but as you say it only shows that line on the
screen, and if you scroll it would be alright.

What I did was create some code to:

'If some records currently exist
If
Forms("frmProspects").Controls("calls").Form.Recordset.recordcount > 0 Then
' move to the last record so that we can now see as many of the
last records as possible
Forms("frmProspects").Controls("calls").Form.Recordset.MoveLast
'if there are more that 3 records then move back up the list to
ensure they are visible
If
Forms("frmProspects").Controls("calls").Form.Recordset.recordcount > 3 Then
For i = 0 To 2
Forms("frmProspects").Controls("calls").Form.Recordset.MovePrevious
Next i
End If
'move to the new record
Forms("frmProspects").Controls("calls").Form.Recordset.AddNew
End If

I hope this makes sense, worked a treat for me. Be interested to know if
this worked out for you.

Regards,

Michael Proctor
NTDS