Beste programmeurs,
ben zelf niet zo bekend met VBA maar wil toch ermee werken.
Heb volgende code die ik wil verder uitwerken:
Private Sub Knop60_Click()
Dim db As Database
Dim rs As Recordset
Dim ProductId As Integer
Dim strsql As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("QryProduct", dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
' Hier moet de code iets doen:
' hier moet de recordset van QryProduct worden doorlopen
'Qry Product bestaat uit een ProductId en een Tellingdatum
'Deze 2 velden moeten worden gebruikt in een query (QryVoorraad)
'die dan een berekening maakt op basis van de gekozen product Id
' en de tellingdatum (tellingdatum wordt gebruikt voor de orderdatum)
' QryVoorraad = SELECT [Voorraad]+(Sum([orderdetail.mutaantalin]-[orderdetail.aantal]))-[Minvoorraad] AS Tekort, Product.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) >= []))
'GROUP BY Product.ProductId, Product.Voorraad, Product.Minvoorraad
'HAVING (((Product.ProductId)=[vul productId in]));
' het resultaat (productId en Tekort) moet dan worden ingevuld in tabel Telling
' en dan moet hij naar de volgende record gaan van Qry Product om daar de data uit te halen voor
' de velden productId en Tellingdatum (welk in qry Voorraad moet ingevuld worden in het veld orderdatum)
' en zo moet de code door de records gaan van QryProduct tot deze doorlopen zijn en ingevuld voor de berekening
' in QryVoorraad en opgeslaan in tabel Telling
db.Execute strsql
'Dim strSQL As String
' strsql = "insert into tabel Telling ( productId,tekort) values (productid, tekort)
Exit Do
rs.MoveNext
Loop
Kan iemand mij hierbij op weg helpen,
'k zou hem/haar dankbaar zijn.
groeten,
M.
End Sub
ben zelf niet zo bekend met VBA maar wil toch ermee werken.
Heb volgende code die ik wil verder uitwerken:
Private Sub Knop60_Click()
Dim db As Database
Dim rs As Recordset
Dim ProductId As Integer
Dim strsql As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("QryProduct", dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
' Hier moet de code iets doen:
' hier moet de recordset van QryProduct worden doorlopen
'Qry Product bestaat uit een ProductId en een Tellingdatum
'Deze 2 velden moeten worden gebruikt in een query (QryVoorraad)
'die dan een berekening maakt op basis van de gekozen product Id
' en de tellingdatum (tellingdatum wordt gebruikt voor de orderdatum)
' QryVoorraad = SELECT [Voorraad]+(Sum([orderdetail.mutaantalin]-[orderdetail.aantal]))-[Minvoorraad] AS Tekort, Product.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) >= []))
'GROUP BY Product.ProductId, Product.Voorraad, Product.Minvoorraad
'HAVING (((Product.ProductId)=[vul productId in]));
' het resultaat (productId en Tekort) moet dan worden ingevuld in tabel Telling
' en dan moet hij naar de volgende record gaan van Qry Product om daar de data uit te halen voor
' de velden productId en Tellingdatum (welk in qry Voorraad moet ingevuld worden in het veld orderdatum)
' en zo moet de code door de records gaan van QryProduct tot deze doorlopen zijn en ingevuld voor de berekening
' in QryVoorraad en opgeslaan in tabel Telling
db.Execute strsql
'Dim strSQL As String
' strsql = "insert into tabel Telling ( productId,tekort) values (productid, tekort)
Exit Do
rs.MoveNext
Loop
Kan iemand mij hierbij op weg helpen,
'k zou hem/haar dankbaar zijn.
groeten,
M.
End Sub
