Acc2002 CanGrow

K

katz

Hello!
I have an interesting problem. I have a Unbound control on a report and the
control doesn't grow if the data is more then the box could fit. But when I
go to design view and preview again then it works. Is there anything I can
Do?

Thanks in advance
 
V

Van T. Dinh

How do you populate the Unbound Control on the Report? Which Event do you
use to run the code to populate the Unbound Control?

I think in the Report processing, Access will adjust the size the the
TextBox just before the Format Event of the Section, IIRC.
 
L

Larry Linson

"Van T. Dinh" wrote
How do you populate the Unbound Control
on the Report? Which Event do you use
to run the code to populate the Unbound
Control?

I think in the Report processing, Access will
adjust the size the the TextBox just before
the Format Event of the Section, IIRC.
Click to expand...

It's kind of difficult to execute code to populate the unbound Control
_before_ the Format event of a Report Section, isn't it? There are only
Format and Print events, and Print runs after the Format.

I think the definitive answer is "Don't count on CanGrow / CanShrink with
unbound Controls."

Larry Linson
Microsoft Access MVP
 
V

Van T. Dinh

Hi Larry

I think it is possible, e.g. Report_Open Event ...

I can't find any code setting TextBox value at present but I actually
changed the Cation on generic Labels in the Detail Section using the
Report_Open Event. Here a tidbit of code in the Open_Event of one of my
Reports:

********
...
If lngRecordCount > 0 Then
intSRptIndex = intSRptIndex + 1
strSRptIndex = Format$(intSRptIndex, "00")
Select Case bytMachPosID
Case fnMachPosID("EXT_C")
.Controls("lblMach" & strSRptIndex).Caption = " Core
Extruder" & _
(" (" + rsBRMachine.Fields("MachModelName").Value + ")")
& " General Settings"
.Controls("srptMach" & strSRptIndex).SourceObject = _
"Report.rsrBestRun_MachineParam_ExtruderCore"

Case fnMachPosID("EXT_S")
.Controls("lblMach" & strSRptIndex).Caption = " Skin
Extruder" & _
(" (" + rsBRMachine.Fields("MachModelName").Value + ")")
& " General Settings"
.Controls("srptMach" & strSRptIndex).SourceObject = _
"Report.rsrBestRun_MachineParam_ExtruderSkin"

Case fnMachPosID("EXT_ST")
.Controls("lblMach" & strSRptIndex).Caption = " Striping
Extruder" & _
(" (" + rsBRMachine.Fields("MachModelName").Value + ")")
& " General Settings"
.Controls("srptMach" & strSRptIndex).SourceObject = _
"Report.rsrBestRun_MachineParam_ExtruderStripe"

End Select
End If
DoEvents
....
********
 
Top