VBA: Standaardwaarde keuzelijst veranderen
Ik dacht met de volgende code simpel de standaardwaarde van een keuzelijst op de huidige waarde te kunnen zetten:
Private Sub kzlArtikelsoort_AfterUpdate()
Dim vWaarde As String
vWaarde = kzlArtikelsoort.Value
kzlArtikelsoort.DefaultValue = Chr(34) & vWaarde & Chr(34)
End Sub
Dit werkt op zich wel. Als ik de waarde in de keuzelijst wijzig dan wordt de standaardwaarde aangepast (dit heb ik nagekeken bij eigenschappen van de keuzelijst). Als ik nog iets anders op het formulier wijzig, zodat er bij het afsluiten van het formulier gevraagd wordt om de wijzigingen op te slaan dan werkt het. Bij het openen van het formulier staat dan de nieuwe standaardwaarde in de keuzelijst. Wanneer ik echter niets anders wijzig en het formulier sluit en weer open dan wordt de nieuwe standaardwaarde niet opgeslagen en zie ik bij heropenen weer de oude standaardwaarde. Ook als ik het formulier met DoCmd.Save acForm, "formulier"
opsla bij het afsluiten werkt het niet. Wie heeft er een oplossing?
Ik dacht met de volgende code simpel de standaardwaarde van een keuzelijst op de huidige waarde te kunnen zetten:
Private Sub kzlArtikelsoort_AfterUpdate()
Dim vWaarde As String
vWaarde = kzlArtikelsoort.Value
kzlArtikelsoort.DefaultValue = Chr(34) & vWaarde & Chr(34)
End Sub
Dit werkt op zich wel. Als ik de waarde in de keuzelijst wijzig dan wordt de standaardwaarde aangepast (dit heb ik nagekeken bij eigenschappen van de keuzelijst). Als ik nog iets anders op het formulier wijzig, zodat er bij het afsluiten van het formulier gevraagd wordt om de wijzigingen op te slaan dan werkt het. Bij het openen van het formulier staat dan de nieuwe standaardwaarde in de keuzelijst. Wanneer ik echter niets anders wijzig en het formulier sluit en weer open dan wordt de nieuwe standaardwaarde niet opgeslagen en zie ik bij heropenen weer de oude standaardwaarde. Ook als ik het formulier met DoCmd.Save acForm, "formulier"
opsla bij het afsluiten werkt het niet. Wie heeft er een oplossing?
Laatst bewerkt: