Skip to main content

AccessTr.neT


Raporda etiketi metin kutusunda değer yoksa gizleme

saglikci_salih
saglikci_salih
7
5066

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Raporda etiketi metin kutusunda değer yoksa gizleme - Yazar: saglikci_salih - 29/09/2011, 09:01
Task