02/05/2019, 12:21
(02/05/2019, 11:44)haliliyas yazdı: [ -> ]Private Sub Form_Current()
If Calisiyor_Ayrıldı = "Ayrılmış" Then
Me.Aktif_Pasif = "Ayrılmış"
Exit Sub
ElseIf Personel_Ozel_Durumu = "Dolu" Then Me.Aktif_Pasif = "Aktif"
ElseIf Vize_Bitis_Trh < Date Then Me.Aktif_Pasif = "Pasif"
End If
End Sub
Doludan Kasıt Boş Değil Seçilmiş ise olacak