requery een combobox op een subform op een mainform

Status
Niet open voor verdere reacties.

dbAnnelies

Gebruiker
Lid geworden
4 jan 2012
Berichten
13
ik heb een subform OrderSubF op een mainform BestellingQF

in de subform heb ik 3 comboboxen
CmbCat
CmbSubCat
CmbProductID

mijn code is als volgt:
Option Compare Database

Private Sub CmbCat_AfterUpdate()
Me!OrderSubF.Form!CmdSubCat.Requery
Me!OrderSubF.Form!CmbProductID.Requery
End Sub

Private Sub CmbSubCat_AfterUpdate()
Me!OrderSubF.Form!CmbProductID.Requery
End Sub


Als ik de subform run kan ik de comboboxen invullen afhankelijk van de vorige combobox

In het hoofdformulier krijg ik de melding:
Enter Parameter Value
Form!OrderSubF!CmbCat

als ik CmbSubCat wil aanvullen

Wat is verkeerd in mijn code?
 
Laatst bewerkt:
De foutmelding is heel logisch en verklaarbaar. Je verwijst op je subform hard naar het formulier en de daarop staande objecten. Dat werkt prima als je het (sub)formulier zelfstandig opent, maar zodra het formulier op een ander formulier staat, en dus niet meer zelfstandig is maar een subformulier, dan is het pad niet meer compleet. Je moet dan ook de naam van het hoofdformulier opnemen in het pad. Je krijgt dan de andere situatie: dat het subformulier niet meer als zelfstandig formulier werkt. Maar dat zal minder erg zijn neem ik aan.
 
Dank je wel!

Dit werkt:
Option Compare Database

Private Sub CmbCat_AfterUpdate()
[Forms]![BestellingQF]![OrderSubF]![CmbSubCat].Requery
[Forms]![BestellingQF]![OrderSubF]![CmbProductID].Requery
End Sub

Private Sub CmbSubCat_AfterUpdate()
[Forms]![BestellingQF]![OrderSubF]![CmbProductID].Requery
End Sub


Daarnaast heb ik de Row Source van cmbSubCat aangepast naar
SELECT ProductT.SubCat FROM ProductT WHERE (((ProductT.Cat)=[Forms]![BestellingQF]![OrderSubF]![CmbCat])) GROUP BY ProductT.SubCat;

en de Row Source van cmbProductID aangepast naar
SELECT ProductT.ProductId, ProductT.Omschrijving FROM ProductT WHERE (((ProductT.SubCat)=[Forms]![BestellingQF]![OrderSubF]![CmbSubCat])) GROUP BY ProductT.ProductId, ProductT.Omschrijving;
 
Het kan allemaal nog wel wat simpeler trouwens, maar dat ga je nog wel ontedekken denk ik :). Net zoals de knop waarmee je code in TAGS kunt zetten :D.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan