Vervolg rekenen

[Zurrik]

Private Sub txtOppervlakte_BeforeUpdate(Cancel As Integer)
Dim dblPrijs As Double
Dim intOpp As Integer

If Me.txtOppervlakte > 0 & Me.txtOppervlakte <= 2 Then
intOpp = 1
Else
If Me.txtOppervlakte > 2 & Me.txtOppervlakte <= 5 Then
intOpp = 2
Else
If Me.txtOppervlakte > 5 & Me.txtOppervlakte <= 10 Then
intOpp = 3
Else
If Me.txtOppervlakte > 10 & Me.txtOppervlakte <= 20 Then
intOpp = 4
Else
If Me.txtOppervlakte > 20 & Me.txtOppervlakte <= 50 Then
intOpp = 5
Else
If Me.txtOppervlakte > 50 & Me.txtOppervlakte <= 250 Then
intOpp = 7
Else
If Me.txtOppervlakte > 250 Then
intOpp = 9



dblPrijs = dFirst("Prijzen", "prijzen", "Soortbewerking =" & cstr(me.cmbBewerking) & " and Categorie-id = " & cstr(me.cmbCategorie) "and Oppervlakte-id =" intOpp)
Me.txtStukprijs = dblPrijs
End Sub


Werkt niet? Hoe kan dat.

 

[jean42]

Waarom ga je hier verder en niet in het vorige topic?

 

[Zurrik]

Was bang dat niemand dat meer zou lezen. Omdat ik al een bedankje had geschreven

 

[m@rio]

Je kunt gewoon verder gaan in het eerdere topic http://www.helpmij.nl/forum/showthread.php?t=246617 ondanks je bedankje