grotesmile
Gebruiker
- Lid geworden
- 8 jan 2009
- Berichten
- 5
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!
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!
Laatst bewerkt: