Wat is er mis mee?

[o'neil]

Wanneer ik een formulier uitvoer met daarin deze code dan loopt hij vast ( ik vermoed door de loop )
maar ik vind mijn fout niet.

Private Sub cmdOK_Click()
'declareren van var's en consts

Dim intTeller As Integer
Dim intResultaat As Integer

'uitvoervak legen
txtTafels = ""

'Tafel invullen
intTeller = 1
intResultaat = intTeller * txtInvoer

'voorwaarde gedoe
Do While intResultaat <= 100
txtTafels = txtTafels & intTeller & " * " & txtInvoer & " = " & intResultaat & vbCrLf
intTeller = intTeller + 1
intResultaat = intTeller * txtGetal
Loop
End Sub

Wie helpt?

Alvast bedankt

MVG O'neil

 

[o'neil]

Geplaatst door o'neil
Wanneer ik een formulier uitvoer met daarin deze code dan loopt hij vast ( ik vermoed door de loop )
maar ik vind mijn fout niet.

Private Sub cmdOK_Click()
'declareren van var's en consts

Dim intTeller As Integer
Dim intResultaat As Integer

'uitvoervak legen
txtTafels = ""

'Tafel invullen
intTeller = 1
intResultaat = intTeller * txtInvoer

'voorwaarde gedoe
Do While intResultaat <= 100
txtTafels = txtTafels & intTeller & " * " & txtInvoer & " = " & intResultaat & vbCrLf
intTeller = intTeller + 1
intResultaat = intTeller * txtGetal
Loop
End Sub

Wie helpt?

Alvast bedankt

MVG O'neil

ik heb et zelf gevonden: txtGetal = txtInvoer