Sub of Function is niet gedefineerd

[Sander92]

Hallo. Ik heb een probleem, en omdat ik één grote kluns ben met visual basic zou ik wel wat hulp kunnen gebruiken.

Ik heb een opdracht voor school om een klein programmatje moet maken die de tafels laat zien. Hieronder de code:

Private Sub cmdtoon_Click()

'declaraties variabelen
Dim teller As Integer
Dim getal As Integer
Dim getalS As String
Dim antwoord As Integer
Dim regelS As String

'schoonmaken lijst + lezen getal
lsttafel.Clear
getalS = txtgetal.Text
getal = clnt(getalS)

'regel voor regel berekenen en afdrukken
For teller = 1 To 10
    antwoord = teller * getal
    regelS = Str(teller) & "*" & Str(getal) & "=" & Str(antwoord)
    lsttafel.AddItem (regelS)
Next teller

'invoervenster schoonmaken
txtgetal.Text = ""
    
End Sub

Maar als ik nou die knop gebruik krijg ik dus "Sub of Function is niet gedefineerd". Als iemand mij alstublieft hiermee zou kunnen helpen.

Bij voorbaat dank.
Sander

 

[edmoor]

Waar staat de gele regel in je code op het moment dat je die melding krijgt?

 

[Sander92]

Bij de private sub cmdtoon_click()

 

[HSV]

Je moet je Commandbutton dezelfde naam geven; → bij de eigenschappen van de commandbutton: → Name → Commandbutton veranderen in cmdtoon.

 

[Sander92]

Dat heb ik

 

[HSV]

Maar????

 

[Sander92]

Dit had ik al bedoel ik.

 

[HSV]

Heb je de code in moduleblad van toepassing ?

 

[Sander92]

Ik heb 'm in een userForm als je dat bedoelt... Anders weet ik niet precies waar je het over hebt

 

[HSV]

Dan zul je je bestandje moeten uploaden als je op de eerste regel al een foutmelding krijgt, en de aktie al hebt uitgevoerd zoals ik heb omschreven.

 

[Sander92]

Ik kan 'm niet via de forum uploaden omdat het een .docm extensie heeft.

Dus hier een rapidshare link: https://rapidshare.com/files/3826571051/Calculators.docm (sorry als dit tegen de regels is)

 

[HSV]

Oeps, ik ben niet thuis in Word.
Maar volgens mij is dit gelijk aan Excel.
Verander dit stukje.

getal = C[COLOR="#FF0000"]I[/COLOR]nt(getalS)

De rode letter is een (i) van Isaac, was een l van Leo.

 

[Sander92]

Oh, dat is dom... Heel erg bedankt!

 

[snb]

Je kunt ze op school ook laten lachen:

Private Sub cmdtoon_Click()
    lsttafel.List = Evaluate("index(row(1:10)*" & txtgetal.Value & ",)")
end sub