Bold Format Only Part of a Text Box Control

[Guest]

I have this as a control on one of my reports.

=RTrim([PART]) & " [ " & RTrim([Description]) & " ]"

It is two fields, concatenated together with right trim so that they
flow/slide together nicely. Is there a way to specify just the [PART] field
to print in BOLD or is there another way to get text boxes to slide together
without using concatenation??

Thanks for your help!

 

[Duane Hookom]

You can use the Print method of the report in the On Format event. For
instance if you were reporting the Customer table from Northwind and wanted
to concatenate the CustomerID and CompanyName with the first part bolded you
could use the following code in the On Format event of the section
containing the text. NOTE: the CustomerID and CompanyName would need to be
bound to controls in that report section. The controls could/should be
invisilbe.

My code also assume you add an invisible line named "LineTop" where you want
the text to appear.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim intSpacing As Integer
intSpacing = 60 'space between fields
Me.CurrentX = Me.LineTop.Left
Me.CurrentY = Me.LineTop.Top
Me.FontSize = 10
Me.FontBold = True
Me.Print Me.CustomerID 'must be bound control
Me.FontBold = False
Me.CurrentY = Me.LineTop.Top
Me.CurrentX = Me.CurrentX + intSpacing
Me.Print Me.CompanyName 'must be bound control
End Sub

 

[Guest]

NEAT TRICK! Works like a charm! Thank you

You can use the Print method of the report in the On Format event. For
instance if you were reporting the Customer table from Northwind and wanted
to concatenate the CustomerID and CompanyName with the first part bolded you
could use the following code in the On Format event of the section
containing the text. NOTE: the CustomerID and CompanyName would need to be
bound to controls in that report section. The controls could/should be
invisilbe.

My code also assume you add an invisible line named "LineTop" where you want
the text to appear.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim intSpacing As Integer
intSpacing = 60 'space between fields
Me.CurrentX = Me.LineTop.Left
Me.CurrentY = Me.LineTop.Top
Me.FontSize = 10
Me.FontBold = True
Me.Print Me.CustomerID 'must be bound control
Me.FontBold = False
Me.CurrentY = Me.LineTop.Top
Me.CurrentX = Me.CurrentX + intSpacing
Me.Print Me.CompanyName 'must be bound control
End Sub


--
Duane Hookom
MS Access MVP

I have this as a control on one of my reports.

=RTrim([PART]) & " [ " & RTrim([Description]) & " ]"

It is two fields, concatenated together with right trim so that they
flow/slide together nicely. Is there a way to specify just the [PART]
field
to print in BOLD or is there another way to get text boxes to slide
together
without using concatenation??

Thanks for your help!