MetalG
Legacy Member
de bedoeling:
een orderformulier met een subformulier waarin de reeds toegevoegde producten moeten verschijnen
werkwijze:
het subformulier opbouwen door een query die alle producten toont met het orderid van het hoofdformulier
deze query zou dan eigenlijk de recordsource van dat subformulier moeten zijn
het probleem:
acces voert het commando niet uit...
volgend commando:
strSQL = "SELECT PLU, ProductBeschrijving, Prijs, Hoeveelheid, ItemTotaal, OrderID FROM QryItemBeschrijvingInOrder WHERE orderID=" & Forms(frmOrder)!txtOrderID & ";"
Dim rst2 As New ADODB.Recordset
rst2.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
PLU = rst2(0)
ProductBeschrijving = rst2(1)
Prijs = rst2(2)
Hoeveelheid = rst2(3)
ItemTotaal = rst2(4)
OrderID = rst2(5)
Forms(frmItemBeschrijvingInOrder).RecordSource = strSQL
Forms(frmItemBeschrijvingInOrder).Requery
als ik dus bij het toevoegen van het product de recordsource van het subformulier ga bekijken is deze nog steeds leeg...
de waarden in het subformulier worden dan ook niet ingevuld...
de compiler geeft geen errors op de code
indien iemand de oplossing weet, andere werkwijzen zijn ook altijd welkom
dank bij voorbaat
edit:
het idee met de recordset had ik op een andere site gelezen, maar volgens mij zou het zonder dat moeten kunnen...
een orderformulier met een subformulier waarin de reeds toegevoegde producten moeten verschijnen
werkwijze:
het subformulier opbouwen door een query die alle producten toont met het orderid van het hoofdformulier
deze query zou dan eigenlijk de recordsource van dat subformulier moeten zijn
het probleem:
acces voert het commando niet uit...
volgend commando:
strSQL = "SELECT PLU, ProductBeschrijving, Prijs, Hoeveelheid, ItemTotaal, OrderID FROM QryItemBeschrijvingInOrder WHERE orderID=" & Forms(frmOrder)!txtOrderID & ";"
Dim rst2 As New ADODB.Recordset
rst2.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
PLU = rst2(0)
ProductBeschrijving = rst2(1)
Prijs = rst2(2)
Hoeveelheid = rst2(3)
ItemTotaal = rst2(4)
OrderID = rst2(5)
Forms(frmItemBeschrijvingInOrder).RecordSource = strSQL
Forms(frmItemBeschrijvingInOrder).Requery
als ik dus bij het toevoegen van het product de recordsource van het subformulier ga bekijken is deze nog steeds leeg...
de waarden in het subformulier worden dan ook niet ingevuld...
de compiler geeft geen errors op de code

indien iemand de oplossing weet, andere werkwijzen zijn ook altijd welkom
dank bij voorbaat
edit:
het idee met de recordset had ik op een andere site gelezen, maar volgens mij zou het zonder dat moeten kunnen...