Büyük ihtimalle gidertipi alanınızdan değer dönmüyor. Bu gibi durumlarda kodu şöyle yazınız:
Kod:
Private Sub gidertipi_AfterUpdate()
msgbox gidertipi
If Me.giderTipi = "Maaş" Then
Me.personeladi.Visible = True
Else
Me.personeladi.Visible = False
End If
End Sub
Bu durumda komutu şöyle kullanacaksınız. (Yani tahminim doğruysa.. İşte örnek göndermemenin zararları. Sadece tahminle size yardımcı oluyorum)
Kod:
Private Sub gidertipi_AfterUpdate()
If Me.giderTipi.column(1) = "Maaş" Then
Me.personeladi.Visible = True
Else
Me.personeladi.Visible = False
End If
End Sub