Hoe krijg ik bij het openen van het rapport de controlsource geplaatst in een tekstvak.
Ik heb nu al zoveel geprobeerd met dubbele en enkele aanhalingstekens, maar allemaal zonder resultaat.
De bedoeling is dat achter txtjaar en txtperiode i achteraan geplakt wordt.
Dus txtjaar1 en txtperiode1 txtjaar2 en txtperiode2 enz. enz.
Ik heb nu al zoveel geprobeerd met dubbele en enkele aanhalingstekens, maar allemaal zonder resultaat.
De bedoeling is dat achter txtjaar en txtperiode i achteraan geplakt wordt.
Dus txtjaar1 en txtperiode1 txtjaar2 en txtperiode2 enz. enz.
Code:
Private Sub Report_Open(Cancel As Integer)
Dim i As Integer
For i = 1 To 5
Me("V" & i).ControlSource = "=Nz(DSum("Saldo", "qry_Omzet", "[Jaar] = " & [txtJaar] & "And [Periode] =" & [txtPeriode])) & "
Next i
End Sub