query i rapport? (forsættelse af if sætninger i rapporter)

Jeg antager, at dine fakturaer er fortløbende nummereret således, at den nyeste faktura har det højeste nr.

Du kan så oprette en variabel (VARa) der ved hjælp af DMax funktionen finder det højeste fakturanr i tabellen. Derefter en docmd.find der finder fakturanr = din variabel.

If Me!nyesteFaktura = VARa Then
  Me!Fnr.BackColor = vbYellow
  Me!Fnr.BackStyle = 1 'Normal
Else
  Me!Fnr.BackColor = vbWhite
  Me!Fnr.BackStyle = 0 'Gennemsigtig
End If

Du kan evt. finde det højeste fakturanr således:

Me!nyesteFaktura = DMax("[Fakturanr]", "[TABELNAVN]")

Og den færdige kode vil se således ud:

Me!nyesteFaktura = DMax("[Fakturanr]", "[TABELNAVN]")
If Me!nyesteFaktura = VARa Then
  Me!Fnr.BackColor = vbYellow
  Me!Fnr.BackStyle = 1 'Normal
Else
  Me!Fnr.BackColor = vbWhite
  Me!Fnr.BackStyle = 0 'Gennemsigtig
End If

Nb.:  Ikke afprøvet.

Hvor indsætter jeg koden?
Det virker ikke at indsætte den under formatering af rapport

VedUdskrivning

pokker ta' det, det fungere ikke på forspørgelser?

nu er det sådan at jeg gerne vil lave en liste til hver kunde med hvad de har købt, og dvs. at det er den nyeste faktura for hver kunde som skal være grå på den liste jeg printer til kunden.

f.eks.
kunde1
dimsedut 39,95 faktura: 10
dimsedut 39,95 faktura: 10
dimsedut 39,95 faktura: 10
dimsedut 39,95 faktura: 12
dimsedut 39,95 faktura: 12
Hat 79,95 faktura: 15 <-- Grå

Kunde2
Legetøj 87,50 faktura: 11
Legetøj 285,50 faktura: 11
Emballage 399,00 faktura: 13
Gødning 295,95 faktura: 14 <-- grå
Hat 79,95 faktura: 14 <-- grå

Vi snakker her 2 forskellige udprint, derfor jeg gerne ville lave det med forspøgsel, som viser hvad kunde har købt og hvilke fakturaer som høre til, og så "markere" hans sidste nye faktura

Du kan ikke formatere en forespørgsel på den måde, at du kan farvelægge bestemte poster. Det er du nødt til at gøre med en betinget formatering eller med en VBA-kode.

jeg har lavet en forspørgsel som vælger alle de ting han har købt, som jeg bruger til den her rapport, så jeg tænkte at jeg ville bruge den til at smide ind i DMAX funktionen, men den gik desværre ikke.

og den her går heller ikke:

private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Dim test As Integer

Set dB = CurrentDb
Set rs = dB.OpenRecordset("SELECT MAX(eksponeringer.fakturanr) AS test FROM (kunder INNER JOIN brands ON kunder.kundenummer = '" & Me.kundenummer & "') INNER JOIN eksponeringer ON brands.id = eksponeringer.brandid")

Så jeg er lidt på bar bund.

Nu glimrer dine kommentarer sig jo ved ikke at forklare nærmere:

- Får du nogen fejlmelding?
- Sker der bare ikke noget?
- Når du bruger en funktion i SQL skal separatortegnene , (komma) usskiftes med semikolon:

DMax("[Fakturanr]"; "[TABELNAVN]")

test = DMax("[fakturanr]"; "[EksponeringslisterFilter]") <-- Compiler Error: Expected: list seperator or )

test = DMax("[fakturanr]", "[EksponeringslisterFilter]") <--Run-time error '2001': Du har annulleret den forrige handling.

SQL sætningen siger at jeg ikke må laver inner joins

Som postkilde i f.eks et ubundet felt:

=DMax("[fakturanr]";"Eksponeringsfilter")

I VBA:

MsgBox DMax("[fakturanr]","Eksponeringsfilter")

Fejlen i din SQL sætning skal fejlrettes i SQL og har intet med DMax at gøre.

I din forespørgsel kunne du indsætte en MAX(fakturanr):

SELECT k.kundenr, k.kundenavn, k.kundeadresse, k.kundeby,
      oh.fakturanr
      ol.varenr

Oops, der fik jeg trykket på send lidt for tidligt, sorry...

I din forespørgsel kunne du indsætte en MAX(fakturanr):

SELECT ol.varenr, v.varetekst, ol.salgspris, tmp.*, oh.fakturanr
FROM Ordrelinier ol
INNER JOIN Varer v
  ON ol.varenr = v.varenr
INNER JOIN Ordrehoveder oh
  ON ol.ordrenr = oh.ordrenr
INNER JOIN (
SELECT k.kundenr, k.kundenavn, k.kundeadresse, k.kundeby,
      MAX(oh.fakturanr) AS SidsteFakturanr
FROM Kunder k
INNER JOIN Ordrehoveder oh
  ON k.kundenr = oh.kundenr
GROUP BY k.kundenr, k.kundenavn, k.kundeadresse, k.kundeby
) AS tmp
ON oh.Kundenr = tmp.Kundenr
ORDER BY oh.kundenr, v.varetekst

Så kunne du jo sætte farven til grå, ligesom du før gjorde med den gule. Du skulle bare sammenligne fakturanr med SidsteFakturanr i stedet.

Sorry jeg har været lidt langsom på den her, jeg skal nok få tjekket op på den mandag :)