Kod:
Private Sub Form_Current()
If Me.Ünvanı = "Müdür" Then
Me.Müdür_Onay.Value = "-1"
Else
Me.Müdür_Onay.Value = "0"
End If
Private Sub Ünvanı_AfterUpdate()
If Me.Ünvanı = "Müdür" Then
Me.Müdür_Onay.Value = "-1"
Else
Me.Müdür_Onay.Value = "0"
End If
End Sub