kodu aşağıdaki ile değiştirin, metin kutusu isimleri farklı ise kodu düzeltin.

=IIf(IsNull([tarih1]) or IsNull([tarih2]);"";Nz(Diff2Dates("dmy";[tarih1];[tarih2];Doğru)))

Ayrıca, açılan kutunun satır kaynak türünü "değer listesi yaptığınızda, "ÇALIŞIYOR";"ÇALIŞMIYOR" şeklinde yazmayınız
1;"ÇALIŞIYOR";2;"ÇALIŞMIYOR" şeklinde yazıp sütun sayısı: 2, sütun genişliği: 0;5 şeklinde yazınız.
Bu şekilde tabloya 1 veya 2 kaydeder. Tablo boş yere şişmez. Formdaki cinsiyet, medeni durum ve doğum yeri alanları da aynı şekilde.

1. mesajdaki Metin kutusu gizleme sorunuz için;

option explicit kodunun altına

Sub Calisiyormu()



If Me.durumu = "ÇALIŞIYOR" Or IsNull([durumu]) Then

   Me.AYRILISNEDENI.Visible = False

   Me.AYRILISTAR.Visible = False

   Me.CALISTIGIGUN.Visible = False

Else

   Me.AYRILISNEDENI.Visible = True

   Me.AYRILISTAR.Visible = True

   Me.CALISTIGIGUN.Visible = True

End If

End Sub

kodu ekle, formun geçerli olduğunda olayına ve durumu metin kutusunun güncelleştirme sonrasında olayına

Calisiyormu

kodu ekle.