t zou gemakkelijker zijn als ik meteen in je database kon werken maar wat me opvalt is dat je strSQL telkens in de herhaling zet

'Maak je query
strsql = "SELECT [Voorraad]+(Sum([orderdetail.mutaantalin]-[orderdetail.aantal]))-[Minvoorraad] AS Tekort, Orderdetail.ProductId, Sum(Orderdetail.MutAantalIn) AS SomVanMutAantalIn, Sum(Orderdetail.Aantal) AS Verkocht, Product.Voorraad, Product.Minvoorraad" _
& "FROM Product INNER JOIN (Orders INNER JOIN Orderdetail ON Orders.Orderid = Orderdetail.OrderId) ON Product.ProductId = Orderdetail.ProductId" _
& "WHERE (((Orders.Orderdatum) >= " & [gro] & ")) And ProductId = " & spe & "" "

rs.Open strSQL, cnn, adOpenStatic, acCmdTable '<----- strSQL ipv "queryVoorraa"
rs.MoveLast
Teller = rs.RecordCount
rs.MoveFirst
while not rs.eof 'zolang er records zijn'
  spe = rs.Fields("ProductId")
  gro = rs.Fields("Teldatum")
  tek = rs.Fields("tekort")

  'voeg dit record toe aan de tabel
  strsql = "INSERT INTO tblTelling ( ProductId, Tekort ) " _
& " Values(" & spe & ",'" & tek & "' )"
  docmd.RunSQL strSQL


   rs.MoveNext
wend
Is productID een tekst of een numerieke (autonummering of geheel getal) type?

(((Orders.Orderdatum) >= " & [gro] & "))
zou omdat het een datum is tussen hekjes staan
(((Orders.Orderdatum) >= # & gro & "#)
en [gro] daar mogen geen rechte haakjes staan omdat het geen veld uit een tabel maar een naam van een variabele is.

And ProductId = " & spe & "" "
moet ofwel
 And ProductId = '"& spe & "'"
of
 nd ProductId = " & spe
zijn

ENKELE aanhalingstekens als het tekst is
GEEN aanhalingstekens als het een cijferwaarde is.

Als je query goed is zal het resultaat ook het verhoopte resultaat zijn.
Kijk eens na wil je en laat wat weten als het nog niet ok is.

Ben 't verder aan 't uittesten.
Maar de code doet nog niet wat ik wil.

M.

Dim trsql As String
Dim strsql As String
Dim rs As ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim Teller As Integer
Dim A As Integer
Dim spe As Long
Dim gro As Date
Dim tek As Long
Dim rst As New ADODB.Recordset

strsql = "DELETE tblTelling.* FROM tblTelling"
DoCmd.SetWarnings (False)
DoCmd.RunSQL strsql
DoCmd.SetWarnings (True)

MsgBox "tblTelling is leeg"

Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection

rs.Open "QryVoorraad", cnn, adOpenStatic, adLockReadOnly, adCmdStoredProc
rs.MoveLast
Teller = rs.RecordCount

rs.MoveFirst
For A = 1 To Teller

    spe = rs.Fields("ProductId")
    gro = rs.Fields("Teldatum")
       
  trsql = "SELECT [Voorraad]+(Sum([orderdetail.mutaantalin]-[orderdetail.aantal]))-[Minvoorraad] AS Tekort, Orderdetail.ProductId, Sum(Orderdetail.MutAantalIn) AS SomVanMutAantalIn, Sum(Orderdetail.Aantal) AS Verkocht, Product.Voorraad, Product.Minvoorraad" _
& " FROM Product INNER JOIN (Orders INNER JOIN Orderdetail ON Orders.Orderid = Orderdetail.OrderId) ON Product.ProductId = Orderdetail.ProductId" _
& " WHERE (((Orders.Orderdatum) >= " & [gro] & ")) And Product.ProductId = " & spe & " " _
& " GROUP BY Orderdetail.ProductId, Product.Voorraad, Product.Minvoorraad" _
& " HAVING ((Product.Minvoorraad) <> 0)"
   
    rst.Open trsql, cnn, adOpenStatic, adLockReadOnly
       
    tek = rst.Fields("tekort")
       
       strsql = "INSERT INTO tblTelling ( ProductId, Tekort ) Values(" & spe & ", " & tek & "  )"
        DoCmd.SetWarnings (False)
    DoCmd.RunSQL strsql
    DoCmd.SetWarnings (True)
    rst.Close
Next A

MsgBox "Klaar tblTelling is gevuld"

cnn.Close
Set rs = Nothing
Set cnn = Nothing



   
 

Dizzl,

terechte opmerking.

Maar de producten worden in de db ingevoegd op verschillende datums, worden verkocht en regelmatig opnieuw aangekocht en ingevoerd. Het totaal aantal producten in de db beloopt > 25000, en 't is onbegonnen werk die allemaal te tellen. Om momenteel zicht te krijgen op de voorraad is 't plan om systematisch op diverse dagen tellingen te ondernemen van de producten. Alle tegelijk gaat organisatorisch niet. Vandaar de teldatum. In qryvoorraad wordt die opgevraagd per product, en de qryvoortelling berekend afhankelijk van in- en verkoop (wat in de tabel orderdetails wordt bijgehouden), de aan te kopen producten vanaf teldatum.
(de qry laten berekenen vanaf een bepaalde orderdatum gaat niet omdat geteld wodt op diverse dagen )
Vandaar de procedure.

Vriendelijke groeten,

M.

Dizzl,

wil vooral leren in vba access (vind het een fantastisch programma). En doe dit via dit forum en ben daarvoor dankbaar.

tekort is inderdaad de voorraad - minvoorraad +
(sum([orderdetail.mutaantalin]-[orderdetail.aantal]))
geteld vanaf orderdatum >= teldatum
( = teldatum van het geselecteerde productid (uit de qryvoorraad)

mutaantalin van tabel orderdetail betekent gewoon aantal producten die in voorraad komen (aangekocht worden). orderdetail.aantal = aantal verkochte producten

negatieve waarden kunnen niet in praktijk, maar is enkel om 't uit te proberen.


grt

M.

Dit is de weg.
Echter moet de code nog 1 ding doen,
de productId erook uithalen .

 vAantal = DSum("Aantal", "qryAlleOrders", "OrderDatum >=#" & rsTeldatum & "#" )
  vMutAantalIn = DSum("MutAantalIn", "qryAlleOrders", "OrderDatum >=#" & rsTeldatum & "#" )
 
Want enkel de teldatum heeft hij een verkeerde som.
Vulde aan met productId :
 vAantal = DSum("Aantal", "qryAlleOrders", "OrderDatum >=#" & rsTeldatum & "#" And "ProductId =  " & rsProductID & "")
  vMutAantalIn = DSum("MutAantalIn", "qryAlleOrders", "OrderDatum >=#" & rsTeldatum & "#" And "ProductId = " & rsProductID & "")
 
Er komt echter een foutboodschap van visual basic:
typen komen niet met elkaar overeen.

Is de syntaxis wel ok?

Bedankt.

M.

TXS!