Find sum i et Datasheed

Jeg har et datasheed hvor jeg loder data ...

loder, sorry I dont understand what you man here.


I assume the data sheet is bound to a table? I would guess that you need to put the code in the after update event for me.pris and instead of using SQL you could use dsum() to sum up pris for all entered records.

but isn't it possible to have a totals row in a datasheet?

https://support.office.com/en-us/article/Sum-or-count-values-on-a-datasheet-with-a-Total-row-d8393172-4ff4-4e54-8994-f6a0417b80d3?ui=en-US&rs=en-US&ad=US

Jeg har prøvet dsum men det virker ikke

Jeg har formen: FrmSalg
Subformen med Data sheet: UfrmOmsætning
Feld i Data sheet: Pris
Forespørgsel: OmsKunder (Består af 12 tabeller og 8 UNION)
Data sheet er bundet til forespørgsel "OmsKunder"

På Formen FrmSalg ligger Text Boxen: GrandTotal
I GrandTotal skal vises Omsætningen= summen af alle priser vist i Data sheetet

Spårgsmål: Hvor lægger jeg dsum og tilhørende vba koder

I asked a couple of questions but got no answer to them!

Why cant you make a total row as shown in link I gave?

If you cant use a totals row, where is the field showing the total?

If the query OmsKunder  contains a UNION query then I dont
expect it to be updateable so I dont understand the need for any code to update total

Jeg kan ikke bruge linket da summen skal VBA kodes.
Jeg ved UNION ikke kan opdateres - det skal det heller ikke.
Summen skal kun vises.
Jeg er nød til at bede om vi finder en løsning som jeg har stillet det op eller jeg må opgive. At gøre det på en anden måde fører kun til en lang dialog der ikke løser mit problem

Well I'm only trying to make suggestions which might help find as solution which you hadn't thought of.

But as normal, you do things your way, so lets just say your on your own from here.

Er der andre der kan hjælpe med udgangspunkt i min problemstilling og ikke "benyt noget helt andet".

Hvorfor kan du ikke bare gøre som Terry foreslår?
- Åben din forespørgsel
- Klik på Totaler i gruppen Poster
- Klik i Total-feltet under Pris og vælg Sum

... du skal ikke selv summere linje for linje.
Det klarer Access for dig. Bare gør som ovenfor beskrevet.

..Du kan ikke åbne forespørgsler når der anvendes UNION
Det kan man kun for hver enkelt forespørgsel. Derfor!
men
man må da kunde få adgang i datafelderne for hver linie, jeg kan bare finde ud af hvordan.
I afterupdate for pris kan intet registreres - men hvor så?

Du kan da sagtens oprette en UNION forespørgsel, gemme den og så oprette en formular på baggrund af den.
Denne formular kan du så vælge at se som dataark og så tilføje en Total-linje som beskrevet ovenfor.

Og nej (igen): Du skal ikke selv beregne summen.
AfterUpdate fyres i øvrigt af, når du opdaterer en post; men det er jo ikke tilfældet her. Du vil jo gerne se summen uden at ændre nogen poster.

Hej
Ja jeg kan sagtens oprette en UNION forespørgsel med SUM og dataark.
Dem har jeg masser af.
Men som jeg skriver i indledningen er der 8 UNION i samme forespørgsel.
Dem kan man ikke se ved at åbne en forespørgsel. Man laver 1 (der kan ses) og repeterer den med tilhørende variabler.

Summen af pris af de 8 UNION  kan derfor ikke laves ved at åbne forespørgslen

Derfor tilbage til mit oprindelige spørgsmål.

Da linierne "tegnes op" i dataarket må det da være muligt at hente værdierne fra et felt hvorefter man kan summe dem med VBA koder
Men hvordan og hvor hentes værdierne ud ????

Nedenstående henter ikke værdier fra tegnet felt (som hedder "kontrolelementes værdi for aktuelle post" hvis man vil bruge de termer der gør at indviede forstår hvad man snakker om), men fra en kopi af det recordset som er kilden til tegneriet.

sum = 0
With RecordsetClone
    .MoveFirst
    While Not .EOF
        sum = sum + .Fields().Item("pris")
        .MoveNext: Wend: End With

Kan også blot skrives sådan - fatter ikke helt hvorfor bang er så smart, at den kan erstatte 2 defalt funktioner og bliver evalueret i indre with kontekst

sum = 0
With RecordsetClone
    .MoveFirst
    While Not .EOF
        sum = sum + !pris
        .MoveNext: Wend: End With

Nu lysner det
Men hvor skal det placeres?

Hvis f.eks formularen der viser priser i datasheed visning er underformular i en formular med et tekstkontrolelement med navnet sum, vises summen af priser når underformularens objektkodemodul indeholder:

Private Sub Form_Current()
    Parent.sum = 0
    With RecordsetClone
        .MoveFirst
        While Not .EOF
            Parent.sum = Parent.sum + !pris
            .MoveNext: Wend: End With
End Sub

Hej bvirk

Det virker
1000 tak for hjælpen
Vil du lave det så du får point

Virker? Har du også sikret dig at UfrmOmsætning kun beregner sum når den er subformular til FrmSalg?
Synes lige det tilhører denne debattråd
Private Sub Form_Current()
    On Error GoTo err2452
    If Parent.Name <> "FrmSalg" Then
        DoCmd.Close
        Exit Sub: End If
    Parent.sum = 0
    With RecordsetClone
        .MoveFirst
        While Not .EOF
            Parent.sum = Parent.sum + !pris
            .MoveNext: Wend: End With
    Exit Sub
err2452: 'here parent unreferenced
    If Err.Number <> 2452 Then Err.Raise Err.Number
End Sub

Princippet har såmænd fået sit eget navn:
https://en.wikipedia.org/wiki/Coupling_%28computer_programming%29

Fordel 30/30 point #1/#13

Bvirk dit svar har inspireret til et besllgtiget spørgsmål spørgsmål jeg har oprettet separat