kan iemand mij helpen met het volgende, Status aanpassen van een Order
ik heb twee tabellen
tblOrders
tblOrderregel
deze zijn aan elkaar gelinkt met het veld Ordernr
beide tabellen hebben een veld StatusID
status 1 t/m 6
1. in productie genomen
2. Orderbevestiging gemaakt
3. Order formulieren geprint
4. Deellevering
5. Levering compleet
6. gefactureerd
nu heb ik met onderstaande code de mogelijkheid om de status van alle Orderregels in de tblOrderregel aan te passen (van de desbetreffende Ordernr)
ik zou ook willen dat de status van de tblOrders StatusID ook aangepast wordt
maar met een soort optel som die dan de
b.v.
als alle Orderregels van een Ordernr in de tblOrderregel een status 5 hebben, dan wil ik dat de status in tblOrders de status 5 krijgen
hebben niet alle orderregels de status 5 dan wil dat de status van de tblOrders wordt aangepast
en dat is net ff anders als onderstaande code (denk ik)
om het ietsjes duidelijker te maken heb twee afbeeldingen toegevoegd
op het hoofdformulier pas ik nu handmatig de status van het Ordernr aan en dat moet toch wel makkelijker kunnen dacht ik


ik heb twee tabellen
tblOrders
tblOrderregel
deze zijn aan elkaar gelinkt met het veld Ordernr
beide tabellen hebben een veld StatusID
status 1 t/m 6
1. in productie genomen
2. Orderbevestiging gemaakt
3. Order formulieren geprint
4. Deellevering
5. Levering compleet
6. gefactureerd
nu heb ik met onderstaande code de mogelijkheid om de status van alle Orderregels in de tblOrderregel aan te passen (van de desbetreffende Ordernr)
ik zou ook willen dat de status van de tblOrders StatusID ook aangepast wordt
maar met een soort optel som die dan de
b.v.
als alle Orderregels van een Ordernr in de tblOrderregel een status 5 hebben, dan wil ik dat de status in tblOrders de status 5 krijgen
hebben niet alle orderregels de status 5 dan wil dat de status van de tblOrders wordt aangepast
en dat is net ff anders als onderstaande code (denk ik)
Code:
Private Sub maakOrderbevestiging() 'Status 2 Orderbevestiging gemaakt
Dim strSQL As String
strSQL = "UPDATE tblOrderRegel SET StatusID = 2 WHERE (Ordernr=" & Me.Ordernr & ");"
CurrentDb.Execute strSQL, dbFailOnError
StatusCombo = 2
MsgBox ("Status wordt aangepast naar Status 2 Orderbevestiging gemaakt")
DoCmd.OpenReport "rptOrderbevestiging", acViewReport, , "[Ordernr]=" & [Ordernr]
End Sub
om het ietsjes duidelijker te maken heb twee afbeeldingen toegevoegd
op het hoofdformulier pas ik nu handmatig de status van het Ordernr aan en dat moet toch wel makkelijker kunnen dacht ik


