Stuck on row one when populating a table from data
- From: "Linda" <lalewicz@xxxxxxxxx>
- Date: 31 Oct 2005 13:42:28 -0800
I thought that this was pretty straightforward code but I cannot get
off of row one.
When I execute this bit I end up with a table with one row of data and
it is the last row from the dataset pulled. It overwrites the header
row and every other recordset of information that the SQL statement
pulls. If I take the loop out, I get just the first row of data as you
would expect. There are no errors. Just poor results LOL.
Can someone spot why I am not getting additional rows? There should be
4 including the header.
With vRecordSet
If Not .EOF Then
.MoveFirst
rowcount = 1
Set objTable = ActiveDocument.Tables(1)
objTable.Cell(rowcount, 1).Range.Text = "Resolution #"
objTable.Cell(rowcount, 2).Range.Text = "Topic"
objTable.Cell(rowcount, 3).Range.Text = "Department"
Do While Not .EOF
rowcount = rowcount + 1
vResolutionNumber = vRecordSet("resolutionNumber")
vTopic = vRecordSet("topic")
vDepartment = vRecordSet("department")
objTable.Cell(rowcount, 1).Range.Text =
vResolutionNumber
objTable.Cell(rowcount, 2).Range.Text = vTopic
objTable.Cell(rowcount, 3).Range.Text = vDepartment
'Go to next record, exit after last
vRecordSet.MoveNext
Loop
Set objTable = Nothing
Else
'if you ARE *else* (are .EOF), that means no record was
matched, tell the user
MsgBox "No possible match was found."
End If
End With
********************************************************
I have tried a number of ways to insert rows but the following code
which seems like it should work, claims that part or all of the 2nd
line is not in reference to a table.
objTable.Rows(rowcount).Select
Selection.InsertRowsBelow
.
- Follow-Ups:
- Re: Stuck on row one when populating a table from data
- From: Doug Robbins - Word MVP
- Re: Stuck on row one when populating a table from data
- Prev by Date: Macro shortcut keys
- Next by Date: Opening a Number of Templates as Documents
- Previous by thread: Macro shortcut keys
- Next by thread: Re: Stuck on row one when populating a table from data
- Index(es):
Relevant Pages
|
