Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi

Merhaba,

Ekteki çalışmala ilişkin iki konuda yardımlarınıza ihtiyacım var.

1. Dava_Kayit Tablosuna bağlı Q_Dava_Kayıt formunda ismini Yeni Gelişme olarak verdiğim (Tablo üzerindeki ismi Son_Durum_2) alana kayıt girildiğinde otomatik olarak rapor tipinin aylığa dönmesini ve burdaki kaydı sildiğimde ise kaydın tekrar boş olarak kalmasını sağlamak;

2. Dava Statüsünü Kararlı-Arşiv olarak değiştirdiğimde Arşiv tarihine değiştirme tarihinin otomatik olarak yazılması ve Derdest çekinin ise false konumuna gelmesini sağlamak.

Şimdiden teşekkürler.

Not:Form üzerinde arama yaptırabilmek için elinde uyarlayabileceğim çalışması olan var ise paylaşabilirmisiniz.

İyi Geceler.

örneğinizi 2003 formatında yüklerseniz daha çok cevap alırsınız.

aynı sorun bendede var. diğer konuda cevap alamadığım için burayada yazıyım dedim.

1. mesaja 2003 formatında eklenmiştir.

Sn. aakkir;

1- Madde'de belirtmiş olduğunuz işlem tamamdır aşağıdaki kod ile belirtmiş olduğunuz gibi Son_Durum2 değiştiğinde bilgi yazılı ise Rapor boş("") dolu ise AYLIK olarak yazacaktır.

Private Sub Text89_Exit(Cancel As Integer)

If (Me.Text89.Value = "") Then

Me.Text71.Value = " "

MsgBox ("Rapor Türü Silindi")

Else

Me.Text71.Value = "AYLIK"

MsgBox ("Rapor Türü Aylık Olarak Düzenlendi")

End If

End Sub

2- Arşivleme Statüsü değiştiğinde değiştirme tarihi yazılacak.

Private Sub STATU_Exit(Cancel As Integer)

If (Me.STATU = "Kararlı - Arşiv") Then

    Arsiv_Date.Value = Date

    Check81.Value = False

    MsgBox ("Dava Arşivlendi")

Else

    Arsiv_Date.Value = Null

    Check81.Value = True

    MsgBox ("Dava Arşivden Çıkarıldı")

End If

End Sub

Kolay gelsin.

teşekkürler schworse benimde aklımdan geçenler bunlardı.