Hvordan lægger man alle felter fra en database sammen

Kan du ikke bruge SQL's sum funktion:

SELECT SUM(felt) FROM tabel

?

den siger den ikke ved hvad SUM betyder

det skal lige siges at det er en access database der bruges

Access kender også SUM.

Må vi se nogle få linier kode ?

jeg har kun skrevet det du skrev og ikke andet for jeg ved ikke hvad jeg ellers skal skrive

Du skal jo have lavet en forbindelse til database inden du kan eksekvere
SQL sætninger ...

jeg har prøvet at skrive SELECT SUM(Kilometer) FROM Indkørt hvor Kilometer er feltet i tabellen og indkørt er database navnet men når jeg vil gå videre til næste linie siger den compile error og så bliver hele teksten rød og sum bliver markeret med blåt.

den bliver åbnet med det samme jeg kører programmet

jeg har lavet en SQL sætning som åbner databasen og det virker fint for jeg kan sagtens gemme ned i databasen og hente det igen men det er jo også kun et felt

dette er hvad jeg bruger til at åbne databaserne med

'Åbner databaserne
denAnsatte.conAnsatte.Open "Provider=Microsoft.Jet.OLEDB.4.0;;Persist Security Info=False;Data Source=" + App.Path + "\Oplysninger.mdb"
denIndkort.conIndkort.Open "Provider=Microsoft.Jet.OLEDB.4.0;;Persist Security Info=False;Data Source=" + App.Path + "\Indkørt.mdb"
'Åbner Tabellerne
denAnsatte.rscomAnsatte.Open "SELECT * FROM Oplysninger"
denAnsatte.rscomFirma.Open "SELECT * FROM Firma"
denIndkort.rscomIndkort.Open "SELECT * FROM Indkørt"

ah - nu kom der noget kode

denIndkort.rscomIndkort.Open "SELECT SUM(Kilometer) FROM Indkørt"

måske

Undskyld jeg havde glemt at sige at den skal vise resultatet i et tekstfelt der hedder txtKørtekilometer

denIndkort.rscomIndkort.Open "SELECT SUM(Kilometer) AS sumkm FROM Indkørt"
txtKørtekilometer.Text = denIndkort.rscomIndkort("sumkm")

måske

nej desværre det virker ikke

Hvordan ser dig kode til at vise de andre oplysninger ud ?

Dette bruger jeg til at vise oplysningerne på de brugere som er oprettet i databasen

Dim A As Integer
'Finder den ansatte som passer til det førernr der er blevet indtastet
A = Len(txtFørernr.Text)
If A <> 4 Then
MsgBox "Førernr skal være på 4 tal.", vbExclamation + vbOKOnly, "Førernr ikke indtastet Korekt"
txtFørernr.SetFocus
Exit Sub
End If

denAnsatte.rscomAnsatte.MoveFirst
denAnsatte.rscomAnsatte.Find "Førernr ='" + txtFørernr + "'", 0, adSearchForward
If Not (denAnsatte.rscomAnsatte.EOF) Then
txtNavn = denAnsatte.rscomAnsatte.Fields("Navn")
txtAdresse = denAnsatte.rscomAnsatte.Fields("Adresse")
txtPostnr = denAnsatte.rscomAnsatte.Fields("Postnr")
txtBy = denAnsatte.rscomAnsatte.Fields("By")
txtFradrag = denAnsatte.rscomAnsatte.Fields("Fradrag")
txtTrækprocent = denAnsatte.rscomAnsatte.Fields("Trækprocent")
chkDag = denAnsatte.rscomAnsatte.Fields("Dag") * -1
chkNat = denAnsatte.rscomAnsatte.Fields("Nat") * -1
chkAfløser = denAnsatte.rscomAnsatte.Fields("Afløser") * -1

Og dette virker fint

det skal lige siges at feltet kilometer i databasen er sat til tal og ikke text

denIndkort.rscomIndkort.Open "SELECT SUM(Kilometer) AS sumkm FROM Indkørt"
...
txtKørtekilometer.Text = denIndkort.rscomIndkort.Fields("sumkm")

vil jeg tror så

nej det virker ikke. Den skriver handling er ikke tilladt, mens objektet er åbent, når jeg kører programmet

når den laver denne debug fejl markere den denIndkort.rscomIndkort.Open "SELECT SUM(Kilometer) AS sumkm FROM Indkørt" med gult

oki nu har jeg fået det til at virke den manglede bare sætningen denIndkort.rscomIndkort.Close som det første da databasen jo er open fra starten af.

P.S. Hvis du sender et svar skal du få pointene alligevel som tak for hjælpen for det du er kommet med for det hjalp mig rigtigt meget.

ok