ik gebruik dit om de uurloon in te vullen in een formulier.
daar staat een combobox met naam werkgever en uurloon en regulier.
als dit nu gebruik en combobox is niet 1 dan word netjes het bedrag ingevuld zodra het wel 1 is word veld leeg in plaats van een bedrag die hij dus in column 4 heeft staan .
ps type wordt in een 1 of 2 weer gegeven
daar staat een combobox met naam werkgever en uurloon en regulier.
als dit nu gebruik en combobox is niet 1 dan word netjes het bedrag ingevuld zodra het wel 1 is word veld leeg in plaats van een bedrag die hij dus in column 4 heeft staan .
ps type wordt in een 1 of 2 weer gegeven
Code:
Private Sub Werknemer_AfterUpdate()
If Me.Type = "1" Then
Me.Loon = Me.Werknemer.Column(4)
Else
Me.Loon = Me.Werknemer.Column(3)
End If
End Sub