AccessTr.neT

Tam Versiyon: Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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ı.
Sayfalar: 1 2