Formating string

[Alex Motilal]

Hello everybody
I have the following string in the Header section of the Report.
=”Stock of Cotton Bales as of “&Format$([DateOfIssue],’mmmm dd, yyyy’)
If the date is 12/ 2/10, the following heading is returned:
Stock of Cotton Bales as of December 02, 2010
I want the date portion in bold and underlined as follows:
Stock of Cotton Bales as of December 02, 2010
Can anyone please help what code should be added to accomplish this.


With lots of thanks,
Alex

[maximus]

As far as I know which is very limited Bold characters in between a Normal text box is not possible.

the Font options available with a normal text Boxes are :

Text1.FontName = "times new roman"
Text1.FontUnderLine=True
Text1.FontSize = 12
Text1.FontBold = True
Text1.ForeColor = vbRed

But this is possible with Microsoft RichTextBox Control.

here is an example:

Assuming "Stock of Cotton Bales as of" this part of your title to be constant which comes to 28 Characters including spaces, I have used RTB.SelLength to Bold out the date and Underline it too. So instead of using a text box u can use a RichTextBox to display your title. Well u can combine values from control anyway you like.

Dim strString As String
strString = "Stock of Cotton Bales as of December 02, 2010"
RTB.SelText = strString
RTB.SelStart = 28
RTB.SelLength = Len(strString) - 28
RTB.SelBold = True
RTB.SelUnderline = True
RTB.SelStart = Len(RTB.Text)
End Sub

strString is used to set the Text of the RichTextBox which is named RBT.

if this solves your problem mark the thread solved.

[Alex Motilal]

Thank You Maximus.
I havnt tried yet. I'll inform the result soon.
With regards,
Alex

[Alex Motilal]

Dear Maximus,
I was under the impression that only Memo fields can be formated. I am using Access 2007. Can u be more elaborate. Is there a separate control "Rich TextBox"? In which event the code should be written? In fact, the phrase =”Stock of Cotton Bales as of “&Format$(Forms![Dialog]![DateOfIssue],’mmmm dd, yyyy’) is in the control source of the Unbound Text Box in the header section of the Report. The Date part Format$(Forms![Dialog]![DateOfIssue],’mmmm dd, yyyy’) is from the Form 'Dialog' which gives the date criteria to generate the Report.
Alex

[maximus]

Microsoft Rich Textbox Control, Version 6.0 is an ActiveX Control. I tried out this sample in Access 2000. This control is Listed in the list of ActiveX Controls.

[weekend00]

an alternate way: put "Stock of Cotton Bales as of" in textbox1 and "December 02, 2010" in textbox2, then format textbox2 as you want.

[maximus]

I have done a small sample here. I have two text boxes Text7 and Text9 on my start up form. Type Name in Text7 and DOB in Text9 and Click the command button.

Example: Name=maximus DOB:09/04/1980

Result appears in the RichTextBox RTB:

My name is maximus. I was born in 09/04/1980

This code can be used from Other events too with modifications.



Dim strString As String
Dim strString1 As String
Dim strstring2 As String

Me.RTB = ""

If IsNull(Me.Text7) Then
MsgBox "Type name"
Exit Sub
End If
If IsNull(Me.Text9) Then
MsgBox "Type DOB"
Exit Sub
End If


strString1 = "My Name is " & Me.Text7
strstring2 = ". I was born on " & Me.Text9
strString = strString1 & strstring2



Me.RTB.SelText = strString
Me.RTB.SelStart = Len(strString1) + 2
Me.RTB.SelLength = Len(strString) - Len(strString1)
Me.RTB.SelBold = True
Me.RTB.SelUnderline = True
Me.RTB.SelStart = Len(RTB.Text)

Me.Text7 = Null
Me.Text9 = Null


Refer to attached mdb file

[Alex Motilal]

Thanks. The solution worked.
Alex