AccessTr.neT

Merhaba arkadaşlar, hazırlamakta olduğum evrak kayıt programı için bir yardıma ihtiyacım var. Raporda raporun açılışında bir alandaki değerin duruma göre değişmesini istiyorum. rapor açıldığında arka planda kodlama yaparak bunu nasıl yapabilirim. bu konuda yardımınızı istiyorum. örnek resmi ekte ekliyorum.


Evrakın Tarihi alanında açılışta 1.1.2000 var ise bu alanın boş görünmesini, bunun haricinde bir değer var ise onun olduğu gibi durmasını istiyorum. nasıl bir if then else kodu yazabilirim.

Rapor açıldığında, yüklendiğinde hangi olayda ve nasıl???

alanın adı EVRAKIN_TARIHI

Bu konuda yardımlarınızı rica ediyorum.

sayın access06,

öncelikle,aşağıdaki bağlantıda yer alan 3.kuralı hatırlatmak sureti ile,

Kurallar hk.

örnek uygulamanızı eklediğiniz takdirde,katılımcılar tarafından tahmine dayalı bilgi paylaşımları ile verimli sonuçlar almanız sorun olacağı gibi gereksiz mesaj birikimleri de söz konusu olacaktır,bu tahminler neticesinde.

bu sebeple,örnek uygulamanızı eklemeyi unutmayınız.ekleyeceğiniz örneğinizin 2003 olarak da,2007 olarak incelenebilmesine imkan sağlayınız ki,daha fazla katılımcı tarafından bilgi paylaşımları söz konusu olabilsin.

son olarak,bu talebinize yönelik olarak,kodlama ile yapılabileceği gibi koşullu biçimlendirme ile de yapılabilmesi olasıdır.bilgilerinize.

iyi çalışmalar,
saygılar.

Atoz hocanın belirttiği gibi örnek uygulama eklerseniz uygulama üzerinde deneyerek çözüm bulunabilir. bu şekilde ne yazarsak yazalım sadece tahmin olacak.

Daha önceden düzenlediğim evrak kayıt uygulamasında gönderildiği yer değeri "0" olduğunda resen etiketinin görünmesi için 

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)

If Me.mtn_geldigiyer = "0" Then

Me.mtn_geldigiyer.Visible = False

Etiket34.Visible = True

Else

Me.mtn_geldigiyer.Visible = True

Etiket34.Visible = False

End If

End Sub

şeklinde kod kullanmıştım.

Bu kodda önemli olan kısım, kodun Ayrıntının Biçimlendiğinde olayına yazılması.

(27/11/2014, 20:42)ozanakkaya yazdı: [ -> ]Atoz hocanın belirttiği gibi örnek uygulama eklerseniz uygulama üzerinde deneyerek çözüm bulunabilir. bu şekilde ne yazarsak yazalım sadece tahmin olacak.

Daha önceden düzenlediğim evrak kayıt uygulamasında gönderildiği yer değeri "0" olduğunda resen etiketinin görünmesi için 

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)

If Me.mtn_geldigiyer = "0" Then

Me.mtn_geldigiyer.Visible = False

Etiket34.Visible = True

Else

Me.mtn_geldigiyer.Visible = True

Etiket34.Visible = False

End If

End Sub

şeklinde kod kullanmıştım.

Bu kodda önemli olan kısım, kodun Ayrıntının Biçimlendiğinde olayına yazılması.

Ozan çok teşekkürler kardeş. Harika bir meslektaşsın. Sorunu çözdüm. Teşekkürler.....