Udregn Sum i Rapporten

=Sum([Pris2]) kan IKKE anbrings i sidehoved eller sidefod. Du er nødt til at anbringe den i rapporthoved/fod eller i en brugerdefineret gruppehoved/fod

Jeg har ikke nogen rapporthoved/fod..hvordan får jeg  det frem?

Menuen Vis->Rapporthoved/fod

Okay, nu har jeg sat totalPris i RapportHoved, men når jeg køre rapporten, spørger den efter Parameterværdien for Pris2...Pris2 er jo også en teksbox

Er det også et felt i tabellen/forespørgslen til rapporten?

Eller beregner du det direkte på rapporten?

det er noget jeg beregner i Rapporten i VBA

I givet fald, vil jeg anbefale dig at flytte udregningen til forespørgslen ved simpelthen at lave en ny kolonne som f.eks. ser således ud:
Pris2: Pris1*Antal*moms

Derved kan du summere på din rapport.

Så skal jeg til at lave det hele om, kan jeg ikke lave det i VBA?

Udregninger er lidt vanskelig

Du kan gemme udregningerne i en funktion i et modul (du kan f.eks. kalde funktionen for GetPris2)
Derved kan du lave din nye kolonne i forespørgslen således:
Pris2: GetPris2()

Du får dog nok brug for at parameteroverføre nogle af de felter, som skal bruges i beregningen.

Parameteroverføre?

Okay, jeg prøver at lave min udregning i Forespørgslen.

Men jeg har et problem....jeg skal finde antalet af dage der mellem to dato´er. Den ene dato ligger i forespørgslen, og den anden skal man selv indtaste. Jeg har pøvet med :antalDage: DateDiff("d", [Dato1], slutDato), men så får jeg en ugyldig syntaks.

Hvad skal jeg gøre?

ja, f.eks. skrive din funktion således:

Public Function GetPris2(Pris1 as Single, Antal as Integer)
  GetPris2 = Pris1 * Antal * [Alt muligt andet]
End Function

I din forespørgsel skriver du således:
Pris2: GetPris2([Pris1];[Antal])

Derved beregnes Pris2 for hver post med udgangspunkt i den aktuelle post.

Der skal bruge semicolon i forespørgsler i stedet for kolon

jeg skal bruge noget If else i forespørgslen, hvordan er syntaksen for det?

iif("kriterie";hvisJa;HvisNej)

Hvis jeg skal lave dette her i forespørgslen, hvordan skal det så se ud?:

If Not KontraktIndex = 0 Then

    If slutDato > CDate(Dato1) And slutDato <> #12/31/9999# Then
        antalDage = DateDiff("d", CDate(Dato1), slutDato)
        Pris3 = Format((Val([SM13008]) * 12 * StandardIndex / KontraktIndex) * Val(antalDage) / 365, "###0.00")

    Else
        Pris3 = Format(Val([SM13008]) * 12 * StandardIndex / KontraktIndex, "###0.00")
    End If
Else
    Pris3 = Format(Val([SM13008]) * 12, "###0.00")
End If

Jeg har lavet dette her i forespørgslen:


IIf([SM11051]<>0;

  IIf([SM11016]>CDate([Dato1]) OR [SM11016]<>#12/31/9999#;
      Val(([Pris1]*12*[Index]/[SM11051])*[antalDage]/365));

  IIf([SM11016]<CDate([Dato1]) OR [SM11016]=#12/31/9999#;
      Val([Pris1]*12*[Index]/[SM11051]));

IIf([SM11051]=0; Val([Pris1]*12)))


Men jeg får en fejl der siger "Det indtastede udtryk indeholder en funktion  med et forkert antal argumenter"....Hvad er der galt med koden?

[SM11051] = KontraktIndex
[SM11016] = slutDato

din sidste IIF mangler i hvert fald en Nej-del.

Der skal altid være 3 argumenter i IIF, når du bruger den i forespørgsler (i VBA kan du godt udelade den sidste)

men hvordan får jeg det så til at passe i overens med det jeg har skrevet i VBA?

Jeg bliver nød til at smutte, men jeg håber at du kan skrive koden i forespørgslen til mig, jeg kigger på det engang i løbet af weekenden

Hvis din VBA-funktion virker, så vil jeg hellere foreslå dig at gøre, som jeg skrev tidligere.

Åbn et nyt modul og opret denne funktion:

Public Function Pris3 (StandardIndex as single, KontraktIndex as single, SlutDato as Date, SM13008) as Single
If Not KontraktIndex = 0 Then

    If slutDato > CDate(Dato1) And slutDato <> #12/31/9999# Then
        antalDage = DateDiff("d", CDate(Dato1), slutDato)
        Pris3 = Format((Val(SM13008) * 12 * StandardIndex / KontraktIndex) * Val(antalDage) / 365, "###0.00")

    Else
        Pris3 = Format(Val(SM13008) * 12 * StandardIndex / KontraktIndex, "###0.00")
    End If
Else
    Pris3 = Format(Val(SM13008) * 12, "###0.00")
End If
end function

I din forespørgsel laver du så denne nye kolonne, som f.eks. ser således ud:
Pris: Pris3(StandardIndex; [SM11051]; [SM11016]; [SM13008])


NB: Jeg ved ikke hvad du kalder StandardIndex i tabellen, så den skal lige tilpasses!

Har du i stedet for Sum prøvet det simple [Pris2] = [Felt1] + [Felt2] .........

Skulle være [TotaLPris2] = ....