Skip to main content

AccessTr.neT


Raporda etiketi metin kutusunda değer yoksa gizleme

saglikci_salih
saglikci_salih
7
5065

Raporda etiketi metin kutusunda değer yoksa gizleme

Çözüldü #1
İyi günler arkadaşlar evrak kayıt diye bir program hazırlıyorum. Program bitmedi lakin daha başlarında bir sorunla karşılaştım. Sorunum şu Rapor kısmında eki diye bir etiket dört adette metin kutusu var. Eki etiketi metin kutusu boş ise gözükmesin dolu ise gözüksün istiyorum. bunu icin şu kodları yazdım
Private Sub Report_Current()
On Error Resume Next
Dim Eki1 As String
If Me.Eki1 = "" Then
Me.Eki1_Etiket.Visible = False
Else
Me.Eki1_Etiket.Visible = True
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
On Error Resume Next
Dim Eki1 As String
If Me.Eki1 = "" Then
Me.Eki1_Etiket.Visible = False
Else
Me.Eki1_Etiket.Visible = True
End If
End Sub
bu kodları kullanmama rağmen eki etiketi, eki metin kutusu boş ise gizliyor. Kötü yanı dolu isede gizliyor yani eki metin kutusu gözükmüyor. dilekçedeki eki kısmı eki varsa yazsın yoksa gizlesin bunu yapmaya calıştım.örnek ektedir. yardımcı olursanız sevinirim. Bu arada ofis 2010 64 bit kullanıyorum. Her kodu malesef kabul etmiyor.
.rar evrak takip.rar (Dosya Boyutu: 66,13 KB | İndirme Sayısı: 70)
saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 29/09/2011, 09:11, Düzenleyen: saglikci_salih.
Cevapla
Çözüldü #2
Kodu Ayrıntının biçimlendiğinde olayına yaz.

[dikkat]Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)[/dikkat]
Cevapla
Çözüldü #3
Hocam dediğiniz gibi ayrıtının bicimlediği olayına yazdım bu seferde eki etiketini gizlemiyor. başka ne yapabilirim. ben birazdan geleceğim hocam bir filyasyon formu doldurmaya gidiyorum.kusura bakmayın hemen döneceğim
saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 29/09/2011, 09:22, Düzenleyen: saglikci_salih.
Cevapla
Çözüldü #4
If Me.Eki1 = "" Then
yerine

If isnull(Me.Eki1) Then

kodunu kullan
Cevapla
Çözüldü #5
Sayın sledgeab cok teşekkür ederim sorun çözüldü dediğinizi yaptım cok güzel oldu.ayrıyeten bu raporda boş olup gözükmesi istenmeyen bölümlerin gizlenmesini isteyenler icin cok kullanışlı bir kod sistemi oldu. örnek kodlar icine alınabilir.şöyleki gizlemek istenen bölüm misal ayrıtılarda ise bicimlendiği bölümüne

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Dim Eki1 As String
If IsNull(Me.Eki1) Then
Me.Eki1_Etiket.Visible = False
Else
Me.Eki1_Etiket.Visible = True
End If
End Sub
buna puan vermezsem ayıp olur.yalnız en fazla +3 verebiliyorum kusura bakmayın sistemin bana verdiği izin bu kadar bana kalsa +10 puan veririm cevaplanmış konulara taşınabilir
saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 29/09/2011, 10:19, Düzenleyen: saglikci_salih.
Cevapla
Çözüldü #6
Merhabalar
Ben acces formuma yeni bir kayıt eklediğimde saat ve tarih değeri değişsin istiyorum varsayılan değerini Now olarak girdim ancak bu sorunumu çözmedi çünkü forma bir kayıt eklenip kaydet denildiğinde form daha boşken saat tarıh otomatık olarak geliyor ,oysaki ben yeni bir kaydı oan değil saatler sonra gireceğim forma veri girildiğinde saati otomatik nasıl yapabilrim.yardım lütfen.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task