Dlookup plaatsen in de controlsource van een tekstvak dmv VBA

Status
Niet open voor verdere reacties.

Nico84

Gebruiker
Lid geworden
21 jul 2011
Berichten
191
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.


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
 
Er ontbreekt in ieder geval een spatie in de code:
Code:
For i = 1 To 5
   Me("V" & i).ControlSource = "=Nz(DSum("Saldo", "qry_Omzet", "[Jaar] = " & [txtJaar] & " And [Periode] =" & [txtPeriode])) & "
Next i
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan