Steve Erbach
erbachs at gmail.com
Thu Feb 24 21:25:23 CST 2005
David, I've seen a thing or two like that over the years. It requires a bit more fiddling than simply to butt all the text boxes together and enable the hairline border for each one; but at least all the cells in the row remain the same height. The finagling comes in making the corners squared off rather than crossed...but why on God's green Earth should a Microsoft Office product have to have such a kludge invented when Microsoft word has a perfectly nice table tool and Excel has nice grids...what's kept Access from having a native grid control for report output? Steve Erbach On Thu, 24 Feb 2005 15:10:49 -0800, dmcafee at pacbell.net <dmcafee at pacbell.net> wrote: > I thought you were looking for a datagrid control for a specific purpose. > If you are just looking for grids on a report, and any of those boxes will > grow, then do the following: > > 1. Place them all in a line, and set their tag property to something like > "Colored" > 2. Make the border for each of these text boxes transparent. > 3. Place a Horizontal line above and below each of these text boxes (across > the full length) > 4. Place the following code in the report's Detail_Format event: > > Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) > Dim ctl As Control > Me.ScaleMode = 5 > For Each ctl In Me.Controls > If ctl.Tag = "Colored" Then > Me.Line ((ctl.Left / 1440), 0)-((ctl.Left / 1440), 10) > Me.Line (((ctl.Left + ctl.Width) / 1440), 0)-(((ctl.Left + > ctl.Width) / 1440), 10) > End If > Next ctl > End Sub > > HTH > David