Status aanpassen in Subformulier

[Rene71]

ik heb een knop met de volgden code om de statusID aan te passen
op het hoofdformulier wordt ook de statusID veranderd naar 3
maar in het subformulier wordt alleen de eerste regel aangepast naar 3
en de rest van de Regels wordt niet aangepast
kan iemand mij verder helpen ?

Private Sub Printwerkorder_Click()
DoCmd.OpenReport "rptOrderkaart", acViewPreview, , "[Ordernr]=" & [Ordernr]
StatusCombo = 3
SubfrmqryOrderRegel!StatusID = 3
End Sub

 

[OctaFish]

Ik zou een bijwerkquery uit laten voeren die de status in alle records met het Ordernummer aanpast. En daarna pas het rapport rptOrderkaart openen.

 

[Rene71]

moet nog een hoop leren
ik heb een bijwerkquery gemaakt met de bijgevoegde code

en dan doet de Query idd wat ik wil (als ik het Ordernr opgeef )
maar krijg een fout in het formulier en weet ff niet hoe ik dit moet oplossen

 

[OctaFish]

Ik zou de query ook vanuit het formulier starten met Currentdb.Execute. Daarbij dan ook de SQL opbouwen en in een stringvariabele zetten.
Krijg je zoiets:

Private Sub Knop10_Click()
Dim strSQL As String
    strSQL = "UPDATE tMateriaal SET StatusID = 3 WHERE (MateriaalNummer='" & Me.txtMateriaalnummer & "');"
    CurrentDb.Execute strSQL, dbFailOnError
End Sub

Hier heb ik een vergelijkingsveld met tekst, dus ik moet 'm ook inrichten als tekst. Heb je een numeriek veld in de WHERE staan, dan kunnen de quootjes weg.