Grouping In A Form

[PC Datasheet]

Does anyone have a technique for grouping in a form like grouping in a report
and still be able to enter data in the form?

Thanks for all responses,

Steve
PC Datasheet

[Tom van Stiphout]

On Thu, 15 Jan 2004 04:23:28 GMT, "PC Datasheet" <sp**@nospam.sp am>
wrote:

Not entirely sure what you're looking for. Perhaps a datasheet /
subdatasheet would do? Kind of like putting your company name to work
:-)

-Tom.

Does anyone have a technique for grouping in a form like grouping in a report
and still be able to enter data in the form?

Thanks for all responses,

Steve
PC Datasheet

[Allen Browne]

Would you be content to color-code something differently on the first row of
each new "group"? You could do that with Conditional Formatting.

This code gives you access to the value in the previous row, so you can
determine if it is the same as the current row or not. The expression for
conditional formatting would be:
[MyField] <> GetPreviousValu e([Form], "MyField")

Haven't tested it.
Function GetPreviousValu e(frm As Form, strField As String) As Variant
On Error GoTo Err_Handler
'Purpose: Return the value from the previous row of the form.
Dim rs As DAO.Recordset

Set rs = frm.RecordsetCl one
rs.Bookmark = frm.Bookmark
rs.MovePrevious
GetPreviousValu e = rs(strField)

Set rs = Nothing
Exit_Handler:
Exit Function

Err_Handler:
If Err.Number <> 3021& Then 'No current record
Debug.Print Err.Number, Err.Description
End If
GetPreviousValu e = Null
Resume Exit_Handler
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"PC Datasheet" <sp**@nospam.sp am> wrote in message
news:4B******** ********@newsre ad3.news.atl.ea rthlink.net...

Does anyone have a technique for grouping in a form like grouping in a report and still be able to enter data in the form?

Thanks for all responses,

Steve
PC Datasheet