D
DEmmett
I have created a concatenated text box, in Access 2003, thanks to some very
good help from an earlier post. Now I have the info displaying exactly how I
want it, except the different parts of the concatenation need to be formatted
differently, basically they need the formatting of the original bound tbox,
not the single unbound.
How do I format the different parts of the unbound box individually, or
preferrably, how can I keep the original format of each part of the
concatenation.?
Here is what I currently have. I'm new to the coding side, so feel free to
point out any mistakes. All I know is it shows me what I want to see
)
Option Compare Database ' Use database order for string comparisons.
Option Explicit
Dim FirstPass As Integer
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Local Error GoTo Detail_Format_Err
If Not FirstPass Then
Me!AllAuthors = Me![Author]
FirstPass = True
Else
Me!AllAuthors = Me!AllAuthors & ", " & Me![Author]
Me!OtherInfo = Me!AllAuthors & ". " & "(" & Me![YearDate] & "). " &
Me![TitleofArticle] & ". " & Me![NameofJournal] & ", " & Me![VolNumber] & "("
& Me![issueNumber] & "), " & Me![pageNumbers] & "."
End If
Detail_Format_End:
Exit Sub
Detail_Format_Err:
MsgBox Error$
Resume Detail_Format_End
End Sub
Private Sub grpHeaderTitle_Format(Cancel As Integer, FormatCount As Integer)
Me!AllAuthors = Null
FirstPass = False
End Sub
good help from an earlier post. Now I have the info displaying exactly how I
want it, except the different parts of the concatenation need to be formatted
differently, basically they need the formatting of the original bound tbox,
not the single unbound.
How do I format the different parts of the unbound box individually, or
preferrably, how can I keep the original format of each part of the
concatenation.?
Here is what I currently have. I'm new to the coding side, so feel free to
point out any mistakes. All I know is it shows me what I want to see
Option Compare Database ' Use database order for string comparisons.
Option Explicit
Dim FirstPass As Integer
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Local Error GoTo Detail_Format_Err
If Not FirstPass Then
Me!AllAuthors = Me![Author]
FirstPass = True
Else
Me!AllAuthors = Me!AllAuthors & ", " & Me![Author]
Me!OtherInfo = Me!AllAuthors & ". " & "(" & Me![YearDate] & "). " &
Me![TitleofArticle] & ". " & Me![NameofJournal] & ", " & Me![VolNumber] & "("
& Me![issueNumber] & "), " & Me![pageNumbers] & "."
End If
Detail_Format_End:
Exit Sub
Detail_Format_Err:
MsgBox Error$
Resume Detail_Format_End
End Sub
Private Sub grpHeaderTitle_Format(Cancel As Integer, FormatCount As Integer)
Me!AllAuthors = Null
FirstPass = False
End Sub