Skriv poster med fed, som findes i anden tabel

F.eks. kan det gøres sådan:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
    If Not IsNull(DLookup("Id", "Tabel1c", "Id = " & Me.Id)) Then
        Me.Tekst.Properties("FontWeight") = 700 'Bold font
    Else
        Me.Tekst.Properties("FontWeight") = 400 'Normal font
    End If
End Sub

I ovenstående rapport har jeg et felt som hedder "Tekst". Det felt sætter jeg til Bold/Fed (svarende til FontWeight 700) hvis der bliver fundet en række i tabellen Tabel1c med samme Id som den i tabellen som rapporten bygger på (hvis DLOOKUP funktionen ikke finder en række som svarer til kriteriet returnerer den Null, hvilket er det jeg tester på).

Faktisk kan du i stedet for

Me.Tekst.Properties("FontWeight") = 700

faktisk bare skrive

Me.Tekst.FontWeight = 700

(du bliver bare ikke hjulpet på vej af editoren :-))

Hvis du af en eller anden grund ikke har megen fidus til at bruge DLOOKUP funktionen kan du naturligvis også basere din rapport på en forespørgsel, hvor du har en LEFT JOIN til din tabelkopi. Noget ala.

SELECT Tabel1.*, IIf(Tabel1c.Id Is Null, False, True) AS FedFont
FROM Tabel1 LEFT JOIN Tabel1c ON Tabel1.Id = Tabel2.Id

Så vil din Format event kode i stedet se sådan ud:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
    If Me.FontFed = True Then
        Me.Tekst.Properties("FontWeight") = 700 'Bold font
    Else
        Me.Tekst.Properties("FontWeight") = 400 'Normal font
    End If
End Sub

Eneste hage ved det er, at du så skal medtage feltet FontFed i din rapport, selv om du egentlig ikke er interesseret i at se det. Men du kan jo bare sætte Visible til False (Synlig til Nej), så er det jo klaret...

Jeg kigger lige på det og vender tilbage

Fik du det til at virke?

Smid et svar til points

OK :-)