<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4134.600" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial color=#0000ff size=2>Hi everybody - hope you had a good
Easter.</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>I am back on this picture issue again
- and like the other emails on this topic I need to be able to expand my group
header section of the report when the picture exists.</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>In the 'On Format' event I am
changing the height property of the photo control. The actual size I need it to
be is 3.5 cm x 5 cm. (Code below). </FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>My problem is that the section
<EM>is</EM> expanding and shrinking but AFTER A PHOTO IS PRINTED I get an extra
2cm gap before the next detail record.</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>The section's 'Can grow' and 'Can
shrink' properties are set to yes. I have other controls in that section but for
now I have taken most of them out to try to nut this problem out - leaving
2 text boxes to the left of the photo and *nothing* underneath it at
all.</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>If Me.UsePhoto = True
Then<BR> If IsNull(Me.PhotoLocation) Or Me.PhotoLocation = ""
Then<BR> BoolUsePhoto =
False<BR> Else<BR>
BoolUsePhoto = True<BR> 'Me.Photo.Top
= 0<BR> ' Me.Photo.Height =
1200<BR> Me.Photo.Height = 3.5 *
567<BR> Me.Photo.Width = 5 *
567<BR> Me.Photo.Picture =
Me.PhotoLocation<BR> Me.Photo.Visible
= True<BR> End If<BR>Else<BR> BoolUsePhoto =
False<BR> Me.Photo.Height = 10<BR>
Me.Photo.Width = 10<BR> Me.Photo.Visible =
False<BR> Me.Photo.Picture = ""<BR>End If</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><BR>'...later</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2>If BoolUsePhoto = True
Then<BR> Me.ServiceLongDesc.Width =
12.2 *
567<BR> Me.ServiceShortDesc.Width =
12.2 * 567</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff
size=2> Me.Section(7).Height =
1985<BR> Else<BR>
Me.Section(7).Height = 600<BR>
Me.ServiceLongDesc.Width = 16.75 *
567<BR> Me.ServiceShortDesc.Width =
16.75 * 567<BR>End If<BR></DIV></FONT>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=stuart@lexacorp.com.pg href="mailto:stuart@lexacorp.com.pg">Stuart
McLachlan</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=SDSSoftware@optusnet.com.au
href="mailto:SDSSoftware@optusnet.com.au">Software Design & Solutions Pty
Ltd.</A> ; <A title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, April 03, 2003 11:02
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [AccessD] Any brilliant
ideas - pictures in 'flexible' positions</DIV>
<DIV><BR></DIV>On 3 Apr 2003 at 9:39, Software Design & Solutions P
wrote:<BR><BR>> Hi everybody.. I am working on a system for a group of
travel agents<BR>> and today's task is to generate their quotes /
itineraries. eg. Day 1,<BR>> Rio, description of city, etc, Day 2 Manaus,
description of tour etc. <BR>> <BR>> I have created the screen which
will alow them for each day to select<BR>> a city, one or more 'items' (eg.
tour, hotel, flight details), and<BR>> these will slot into the report when
it is printed. <BR>> <BR>> They want the ability to drop photos in to
the itineraries. When they<BR>> select a particular item (city description)
then the itinerary will<BR>> always dislpay a photo. The users can select
from a list of photo<BR>> names held outside the database. <BR>>
<BR>> But I am looking for some brilliant tips on how to place the
photos<BR>> into the report....when they nominate that a particular item
should<BR>> also include a photo, then the text should appear next to the
photo,<BR>> and when they only select text, the text should wrap to the
whole<BR>> page. <BR>> <BR>> I have a few ideas and will start but if
anyone has does anything like<BR>> this, I'd love to hear from you.
<BR>> <BR><BR>Three controls in the detail sectiop of the
report:<BR><BR>txtItemWide, txtItemNarrow - both with the item text as
the source <BR>imgPhoto <BR><BR>Private Sub Detail_Format(Cancel As Integer,
FormatCount As Integer)<BR>If Nz(ItemPhoto, "") > " "
Then<BR> imgPhoto.Picture = PhotoFile<BR>
imgPhoto.visible = true<BR> txtNarrow.visible =
true<BR> txtWide.visible =
false<BR>Else<BR> imgPhoto.visible =
false<BR> txtNarrow.visible = false<BR>
txtWide.visible = true<BR>End If<BR><BR>End Sub<BR><BR>-- <BR>Stuart
McLachlan<BR>Lexacorp Ltd<BR>Application Development, IT
Consultancy<BR><A
href="http://www.lexacorp.com.pg">http://www.lexacorp.com.pg</A><BR><BR>_______________________________________________<BR>AccessD
mailing list<BR><A
href="mailto:AccessD@databaseadvisors.com">AccessD@databaseadvisors.com</A><BR><A
href="http://databaseadvisors.com/mailman/listinfo/accessd">http://databaseadvisors.com/mailman/listinfo/accessd</A><BR>Website:
<A
href="http://www.databaseadvisors.com">http://www.databaseadvisors.com</A><BR></BLOCKQUOTE></BODY></HTML>