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.
Bir alana bilgi girildiğinde diğer alanın otomatik olarak değişmesi
örneğinizi 2003 formatında yüklerseniz daha çok cevap alırsınız.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
aynı sorun bendede var. diğer konuda cevap alamadığım için burayada yazıyım dedim.
1. mesaja 2003 formatında eklenmiştir.
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
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.
Kolay gelsin.
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.
Son Düzenleme: 10/03/2011, 13:26, Düzenleyen: schworse.
teşekkürler schworse benimde aklımdan geçenler bunlardı.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Konuyu Okuyanlar: 2 Ziyaretçi