Sub of function is niet gedefinieerd

[grotesmile]

Ik heb een probleem, ik ben ik acces bezig met een vrij simpel formulier.
Toch slaag ik er niet in oom mijn fout te ontdekken. Telkens krijg ik de fout: "Sub of function is niet gedefinieerd."
Hier is alvast mijn programmacode:

Dim sngDiscriminant As Integer

sngDiscriminant = (txtB * txtB) - 4 * (txtA * txtC)

txtDiscriminant = sngDiscriminant

If sngDiscriminant >= 0 Then
txtUitkomst = (((-1 * txtB) + sqrt(sngDiscriminant)) / (2 * txtA))
Else
txtUitkomst = ((-1 * txtB) / (2 * txtA))
End If

Alvast bedankt!

 

[Floor E]

Als dit de gehele code en je klikt op een button om deze te starten dan dan mis je:

Private Sub (naam van je knop)_Click ()
je code
...
End sub

Let op: een spatie in de naam van je knop is een underscore

txtUitkomst = (((-1 * txtB) + sqrt(sngDiscriminant)) / (2 * txtA))

Ander punt: sqrt, moet dat geen sqr zijn?

 

[grotesmile]

Hallo,
bedankt, nu werkt het !