+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi (/konu-bir-alana-bilgi-girildiginde-diger-alanin-otomatik-olarak-degismesi.html)
Sayfalar:
1
2
Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi - aakkir - 10/03/2011
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.
Cvp: Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi - Yandemir - 10/03/2011
örneğinizi 2003 formatında yüklerseniz daha çok cevap alırsınız.
Cvp: Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi - tententen - 10/03/2011
aynı sorun bendede var. diğer konuda cevap alamadığım için burayada yazıyım dedim.
Cvp: Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi - Coskun0559 - 10/03/2011
1. mesaja 2003 formatında eklenmiştir.
Cvp: Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi - schworse - 10/03/2011
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
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.
Cvp: Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi - Yandemir - 10/03/2011
teşekkürler schworse benimde aklımdan geçenler bunlardı.