"Drawing" on a Form

[LeLe]

I am using reports to create work tickets. Our production crew is greatly
helped by drawings and so far I have been able to create box type figures for
pillows, and drapes. I id these as pillowfig, drapefig, and make them
visible or not depending on the item selected in the order entry form.

I am now trying to add a bedspread figure. This is more complex, and
requires grouping several lines together. this is is easy enough, but I need
to be able to name the resultant figure so I can refer to it in my code. So
far all I get when I click on the item's properties is "multiple selection"
and I can't seem to name the "Figure". Is this just the way it is, or am I
missing something?

I don't want to scan and Import a BMP image, because I will not be able to
specify measurements on the "inside" of the drawing.

Any help is appreciated. Thanks

 

[Tom van Stiphout]

On Mon, 7 Jan 2008 19:04:00 -0800, LeLe

Perhaps you could use a naming convention: each element of your figure
starts with "figXXX", with XXX being a 3-digit number for each figure.
Beadspread elements could be prefixed with fig003 for example, and
future bedskirt elements could be fig004.
Then you could write code (off the top of my head):
Sub ShowFigure(byval strFigurePrefix as string, byVal blnShowFigure as
Boolean)
dim ctl as Control
for each ctl in Me.Controls
if left$(ctl.name,6) = strFigurePrefix then
ctl.Visible = blnShowFigure
end if
next

You call this from Report_Open:
ShowFigure "fig003", True

-Tom.

 

[LeLe]

Thanks Tom.
I wil try you suggestion.

On Mon, 7 Jan 2008 19:04:00 -0800, LeLe

Perhaps you could use a naming convention: each element of your figure
starts with "figXXX", with XXX being a 3-digit number for each figure.
Beadspread elements could be prefixed with fig003 for example, and
future bedskirt elements could be fig004.
Then you could write code (off the top of my head):
Sub ShowFigure(byval strFigurePrefix as string, byVal blnShowFigure as
Boolean)
dim ctl as Control
for each ctl in Me.Controls
if left$(ctl.name,6) = strFigurePrefix then
ctl.Visible = blnShowFigure
end if
next

You call this from Report_Open:
ShowFigure "fig003", True

-Tom.