30/08/2015, 03:08
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
kodu ekle, formun geçerli olduğunda olayına ve durumu metin kutusunun güncelleştirme sonrasında olayına
kodu ekle.
=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.