Arkadaşlar Barkod etiketi hazırlamak istiyorum bununla ilgili siteden böyle bir program bulamadım yardımcı olurmusunuz.

İ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
[vb]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

Merhabalar 

F_01_MasaGiris formunda rezervasyon giriş butonuna tıklandığında açılan F_90_RezervasyonGiris formundan girilen tarih ve saat kriterlerine göre seçilen masa numarasının ait olduğu formdaki ( R ) Etiketinin rengini Sadece girilen tarih ve saat aralığında turuncu olmasını formdaki saat, rezervasyon saatini 15 dakika geçtiktensonra  R etiketinin normal rengine dönüşmesini sağlamak istiyorum.
İlgilenenler için şimdiden teşekkür ederim.