Layout rapport wijzigen

[bartvh]

Beste,

wij werken met een contactdatabase in Access gebasseerd op het prinipce van personen gekoppeld aan organisaties.
In de layout van een van onze rapporten staat er een naamregel: deze naamregel is de samenname van de velden Aanspreking, voornaam en Naam uit de database.
Nu, ik zou graag hebben dat dit 3 apparte velden worden in het rapport, zodanig dat ik bij omzetten naar Excel ook 3 aparte kolommen krijg.
Hoe doe ik dat?

De visual basic taal die erachter zit is de volgende

Case "lijsten"
'gegevens verzamelen om lijsten te kunnen maken
'geen rekening houden met "post naar"
Set rst = New ADODB.Recordset
rst.Open "qryuitvoerprepselect", gcnn, adOpenForwardOnly, adLockOptimistic, adCmdTable
Do While Not rst.EOF
lngPersID = rst.Fields("Persid").Value
lngOrgID = rst.Fields("OrgID").Value
intPostNaarOrig = rst.Fields("post").Value
'Persoonsgegevens opzoeken en strings maken
strAansp = DLookup("[Aanspreking]", "tblPersonen", "[PersID] = " & lngPersID)
strTaal = Nz(DLookup("[Taalcode]", "tblPersonen", "[PersID] = " & lngPersID), "")
strVoorletter = Nz(DLookup("[Voorletter]", "tblPersonen", "[PersID] = " & lngPersID), "")
strVoornaam = DLookup("[Voornaam]", "tblPersonen", "[PersID] = " & lngPersID)
strNaam = DLookup("[Familienaam]", "tblPersonen", "[PersID] = " & lngPersID)
Select Case strTaal
Case "N"
strAanspreking = Nz(DLookup("[VoluitN]", "tblAansprekingen", _
"

 = '" & strAansp & "'"), "")
                Case "F"
                    strAanspreking = Nz(DLookup("[VoluitF]", "tblAansprekingen", _
                    "[code] = '" & strAansp & "'"), "")
                Case "E"
                    strAanspreking = Nz(DLookup("[VoluitE]", "tblAansprekingen", _
                    "[code] = '" & strAansp & "'"), "")
            End Select
           [COLOR="Yellow"][COLOR="Blue"] strNaamRegel = strAanspreking & " " & strVoornaam & " " & strNaam[/COLOR][/COLOR]
            strOrganisatie = Nz(DLookup("[OrgNaam]", "tblOrganisaties", _
                "[OrgID] = " & lngOrgID), "")

 

[Bartuls]

Waar plak je die verschillende velden aan elkaar? Daar moet je beginnen met de aanpassing en vervolgens doorwerken naar je rapport toe.

Ik zou dat doen in de query die ten grondslag licht aan het rapport.
Daar moet je dan eerst de separate velden in stoppen.

Vervolgens moet je die velden op je rapport zetten en de velden op je rapport koppelen aan de corresponderende velden in je query.