Ik heb een klein passaprogrammatje gemaakt.
met een tabel bestellingen
in mijn formulier heb ik eensubformulier met een bestelbon overzicht
ik wil nu in dit formulier vb in plaats van aantal = 1 , aantal = 7 zetten en na update de waarde in de tabel laten aanpassen
code is als volgt :
hij geeeft de msgbox ( als test) maar als ik daarna ga kijken in de tabel..... is de waarde niet aangepast, wat doe ik verkeerd....
indienje meer info wenst roep maar
dank alvast
met een tabel bestellingen
in mijn formulier heb ik eensubformulier met een bestelbon overzicht
ik wil nu in dit formulier vb in plaats van aantal = 1 , aantal = 7 zetten en na update de waarde in de tabel laten aanpassen
code is als volgt :
Code:
Private Sub aantal_AfterUpdate()
Dim bestelbonID, aantall As Integer
bestelbonID = Me.ID
aantall = Me.aantal
MsgBox ("bestelbonID = " & bestelbonID & " aantal wordt : " & aantall)
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
db.Execute "update tbl_bestelbon set aantal = " & aantall & " where ID = " & bestelbonID & ";"
db.Close
Me.Parent.TEBETALEN.Requery
If Me.Dirty Then Me.Dirty = False
Me.Parent.BESTELBON.Requery
Me.Parent.txt_tb.Requery
indienje meer info wenst roep maar
dank alvast