Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub uren_AfterUpdate()
If Val(Me.uren.Value) = 0 Then Me.uren.Value = 1
Call rekensom(Me)
End Sub
Private Sub uren_AfterUpdate()
If Val(Nz(Me.uren.Value, 0)) = 0 Then Me.uren.Value = 1
Call rekensom(Me)
End Sub
Private Sub uurprijs_Click()
If Val(Nz(Me.uren.Value, 0)) = 0 Then Me.uren.Value = 1
Call rekensom(Me)
End Sub
Public Function rekensom(bvt3 As Form)
bvt3.[uurprijs] = CDbl(bvt3.[budget]) / Nz(bvt3.[uren], 1)
End Function
maar dan krijg je een deling door Nul, wat uiteraard niet kan. Dus vervang je Null nu door het getal 1; probleem opgelost...
Private Sub uren_AfterUpdate()
' If Val(Nz(Me.uren.Value, 0)) = 0 Then Me.uren.Value = 1
Call rekensom(Me)
End Sub
Private Sub uurprijs_Click()
' If Val(Nz(Me.uren.Value, 0)) = 0 Then Me.uren.Value = 1
Call rekensom(Me)
End Sub
Public Function rekensom(bvt3 As Form)
bvt3.[uurprijs] = CDbl(bvt3.[budget]) / Nz(bvt3.[uren])
End Function
Private Sub uurprijs_Click()
Call Rekensom(Me)
End Sub
Public Function Rekensom(bvt3 As Form)
bvt3.[uurprijs] = CDbl(bvt3.[budget]) / Nz(bvt3.[uren], 1)
End Function
Public Function Rekensom(bvt3 As Form)
bvt4.[uurprijs] = CDbl(bvt4.[budget])
End Function
Public Function Rekensom2(bvt4 As Form)
bvt4.[uurprijs] = CDbl(bvt4.[budget]) / Nz(bvt4.[uren], 1)
End Function
Private Sub uurprijs_Click()
If [uurprijs] < "1" Then
Call Rekensom(Me)
Else
Call Rekensom2(Me)
End If
End Sub
Public Function Rekensom2(bvt4 As Form)
If bvt4.[uren] < 1 Then
bvt4.[uurprijs] = CDbl(bvt4.[budget])
Else
bvt4.[uurprijs] = CDbl(bvt4.[budget]) / Nz(bvt4.[uren], 1)
End If
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.