sql til vba

Du kan altid fyre en SQL af i VBA mws kommandoen DoCmd.RunSQL

DoCmd.RunSQL "[T].[Vand]-(SELECT T2.[Vand] FROM Tabel T2 WHERE T2.Dato = DateAdd("d",-1,T.Dato))"

det prøver jeg, men hvordan skriver jeg udtrykket så det er input til feltet forskel?

Da jeg ikke har Access installeret i øjeblikket, er dette et rent gæt og ikke afprøvet:

Dim VARa as long
VARa = DoCmd.RunSQL "[T].[Vand]-(SELECT T2.[Vand] FROM Tabel T2 WHERE T2.Dato = DateAdd("d",-1,T.Dato))"

Me.Forskel = VARa

Eller blot:

Me.Forskel = DoCmd.RunSQL "[T].[Vand]-(SELECT T2.[Vand] FROM Tabel T2 WHERE T2.Dato = DateAdd("d",-1,T.Dato))"

Det kan du ikke. Access virker kun med udtræksforespørglser
i VBA.

Du skal oprette et recordset som afleverer en variabel og den
kan du så trække fra en anden variabel som får sin værdi fra
formularen.

strSQL = "SELECT T2.[Vand] FROM Tabel T2 WHERE T2.Dato = DateAdd("d",-1,T.Dato)"

rst.Open strSQL, conn
intT2Vand = rst("T2")
rst.Close
Set rst = Nothing

intResultat = form.request("T1Vand")-intT2Vand

noget i den stil.

'Definer en objektvariabel som recordsæt...
dim rs as Recordset

Definer recordset variablen til at indeholde et åbent recordsæt (rækkerne i en forespørgsel)...
set rs = currentdb.openrecordset("SELECT [T].[Vand]-(SELECT T2.[Vand] FROM Tabel T2 WHERE T2.Dato = DateAdd('d',-1,T.Dato)) AS Forskel FROM T WHERE T.Id=33")

'Tildel værdien fra forespørgslen til en VB variabel..
Forskel = rs.Fields("Forskel").Value  'Kan evt. forkortes til rs("Forskel")

'Luk forespørgslen...
rs.close

Værdien der returneres vil være taget fra den første (og måske eneste?) række i recordsættet.

Hvis du i forvejen har defineret forespørgslen, kan du selvfølgelig bare referere til denne med navn i stedet for at specificere den i .OpenRecordset:

set rs = currentdb.openrecordset("Forespørgsel1")

Hej ffsoft,

har du mulighed for at skrive dit forslag helt ud så jeg kan afprøve det? jeg er ikke helt skarp til kode...

Bare for at være helt på det rene. :-) Når du siger VBA, mener du så i virkeligheden VBScript (som i ASP webprogrammering), sådan som ffsoft lægger op til i dennes svar?
Eller er det stadig ren Access VBA, som jeg har antaget?

Forudsætninger:
Det er en ren Access løsning
Tabellen hedder tblForbrug og indeholder felterne Vandmaaler og
AflaesningsDato
På formularen er der et felt der hedder txtForbrug


Sub txtForbrug_AfterUpdate()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim sngForbrug As Single

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

strSQL = "SELECT Vandmaaler FROM tblForbrug WHERE AflaesningsDato = DateAdd('d', -1, Date()) ORDER BY tblForbrug.AflaesningsDato DESC;"
Debug.Print strSQL
rst.Open strSQL, conn
    sngForbrug = rst("Vandmaaler")
rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing

MsgBox "Du har brugt: " & Me.txtForbrug - sngForbrug

End Sub

Det er ikke en fejlsikker løsning, hvis ikke brugerne indtaster
hver dag vil det gå galt.
Den indtastede værdi skal vel gemmes i databasen som denne dags
forbrug.

Hej ffsoft,

Tak for dit indlæg, jeg prøver det senere det ser lovende ud, men kan det godt passe, at udtrykket ikke trækker to vandmaaler værdier fra hinanden? Det skal trække dagens "vandmaaler værdi" fra den foregående dags "vandmaaler værdi" og returnere den til et felt i tabellen som hedder Forbrug....

mvh
Anders

Du må først lige svare på det du bliver spurgt om.
kjulius og jeg har begge stillet dig spørgsmål og du
kan ikke forvente hjælp, hvis du ikke selv vil hjælpe til.

ok, ang. kjulius, så drejer det sig om en ren løsning til Access, jeg vil gerne helt udgå forespørsler og udelukkende køre det via VBA, så der er ingen forespørsler at relatere til....

Du kan finde databasen her:

http://www.ffsoft.dk/Kunde/anders.zip

Der er tilføjet dette:

strSQL = "INSERT INTO tblForbrug ( Vandmaaler, AflaesningsDato ) Values "
strSQL = strSQL & "(" & Me.txtForbrug & "," & Date & ")"
'Debug.Print strSQL
conn.Execute strSQL

Hej ffsoft,

tak for det fornemme svar, meget brugbart! jeg har lige kort tjekket databasen ud og det ser ud til at kunne præcist hvad jeg ønsker, jeg får nok først tid til at kigge nærmere på det i weekenden, så kan det godt være der dukker et spørgsmål eller to op, men tak, har du fået dine point?

Yeps, tak for point.

selv tak