Wijziging in Rowsource Value list worden niet opgeslagen

[IreneJM]

Bij het toevoegen van een verslagjaar aan mijn database moet op een ander formulier de keuzelijst voor verslagperiodes worden aangepast. Er wordt een nieuwe verslagperiode gegeneerd, die in de listbox bovenaan komt.

Dim strJaar As String
Dim strBeginPeriode As String
Dim strPeriode As String
Dim strLijstRapportperiode As String
Dim strLijstRapportperiodenieuw As String

DoCmd.OpenForm "Rapport_maken"

strBeginPeriode = strJaar - 3
strPeriode = strBeginPeriode & " - " & strJaar

strLijstRapportperiode = Forms![Rapport_maken]!Verslagperiode.RowSource

strLijstRapportperiodenieuw = strPeriode & ";" & strLijstRapportperiode

Forms![Rapport_maken]![OntwikkelingenJaarVergelijking].RowSource = strLijstRapportperiodenieuw

DoCmd.Save acForm, "Rapport_maken"

Bovenstaande werkt op zich prima, maar het probleem is dat de gewijzigde rowsource van de listbox niet opgeslagen in het formulier "Rapport maken"
Hoe krijg ik dat wel voor elkaar?

 

[IreneJM]

Probleem opgelost door het rapport in design view te openen