Hello all.:D

OK here it is. I have a form with five combo boxes that are populated with a table's field names and a single command button. After selecting one or more fields pressing the command button opens a report that has been formatted using the selected fields. The problem is that after I close the report it pops up in design mode and when I close that it then asks if I would like to save the changes. Ideally I would like the report to just close and not save the changes and return to the original form.

Here is the code I'm using in the command button:

Dim rs As DAO.Recordset
Dim i As Integer
Dim prevColwidth As Long
Dim lngMaxVal As Long
Dim fldval As String
Dim mywidthval As Integer

lngLeft = 0
lngTop = 0

DoCmd.OpenReport "AccessColumnBuilder", acViewDesign, , , acHidden
Set rpt = Reports![AccessColumnBuilder]
reportQuery = Me.Label44.Caption
Set rs = CodeDb().OpenRecordset(reportQuery)
rpt.RecordSource = reportQuery
prevColwidth = 0
lblCol = 0

For i = 0 To rs.Fields.Count - 1
        Set txtNew = CreateReportControl(rpt.Name, acTextBox, acDetail, , , lngLeft + prevColwidth, lngTop)
      txtNew.SizeToFit
      Debug.Print txtNew.Width
      mywidthval = txtNew.Width
      txtNew.ControlSource = rs(i).Name
      txtNew.TextAlign = 1
      prevColwidth = prevColwidth + txtNew.Width
      Set labNew = CreateReportControl(rpt.Name, acLabel, acPageHeader, , rs.Fields(i).Name, lblCol, , , lngTop)
      labNew.Width = mywidthval
      lblCol = lblCol + 5 + labNew.Width
Next

DoCmd.OpenReport "ReportBuilder", acViewPreview

End Sub




Thanks,
Jesse

__________________
Thanks,
Jesse

I do not like to read code.
Why are you trying to open the report in design mode? What are you trying to do?
Anyway. If you open it in design mode and change something you have to decide whether to save the change or not at some point in time.



Sal