İ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.

Kodu Ayrıntının biçimlendiğinde olayına yaz.

[dikkat]Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)[/dikkat]

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

If Me.Eki1 = "" Then

yerine

If isnull(Me.Eki1) Then

kodunu kullan

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

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.