[VBA] Sürekli Form Label Göster/gizle

benuva · 26-01-2021, 21:16

Merhabalar,

Ekte yer alan sürekli form çalışmamda

Eğer BASLANGIC alanı doluysa yan tarafında yer alan <--Bekleniyor label'ı ilgili kayda özel gösterilmesini, boşsa da gizlenmesini sağlamak istiyorum.

Ben denediğimde formın sürekli form olması nedeniyle tüm kayıtlarda gösterilmekte ya da gizlenmektedir.

Değerli yardımlarınızı rica ederim.

Teşekkürler

dsezgin · 27-01-2021, 03:14

Ayrıntı Boyandığında olay yordamında Etiket baslığını boşaltıp, doldurabilir

Visual Basic
Private Sub Ayrıntı_Paint()
Me.Etiket13.Caption = IIf(IsNull(Me.Baslangıc), vbNullString, "<-- Bekleniyor")
End Sub

veya yazı rengını beyaz-sıyah yapabılırsınız.

Visual Basic
Private Sub Ayrıntı_PaintX()
Dim Rnk As Long
Rnk = IIf((Syc Mod 2) = 1, Me.Ayrıntı.AlternateBackColor, Me.Ayrıntı.BackColor)
Debug.Print Syc, Rnk, Me.Ayrıntı.AlternateBackColor
Me.Etiket13.ForeColor = IIf(IsNull(Me.Baslangıc), Rnk, 0)
Syc = Syc + 1
End Sub

benuva · 27-01-2021, 15:40

Çok teşekkürler @dsezgin Bey

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Sürekli Formda Combobox Güncelleme Sorunu	benuva	6	214	20-11-2023, 11:56 Son Mesaj: benuva
	Sürekli Formda Kayda Uygun Resim Ekleme	yahyamacit	2	133	18-11-2023, 10:56 Son Mesaj: yahyamacit
	Sürekli Formda Yeni Kayıt üstte Olsun	hegu	4	195	05-10-2023, 20:55 Son Mesaj: hegu
	Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası	OGUZTURKYILMAZ	3	256	13-04-2023, 23:39 Son Mesaj: OGUZTURKYILMAZ
	[FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme	dormin	4	221	18-01-2023, 14:29 Son Mesaj: dormin
	[FORM] Sürekli Form Düzeninde Her Kayıt Için Ayrı Ayrı Alanların Pasif Olması Hk.	dormin	1	185	09-12-2022, 15:36 Son Mesaj: onur_can
	Sürekli Formda Yeni Kayıt üstte Olsun	hegu	15	436	07-11-2022, 11:43 Son Mesaj: hegu
	[FORM] Sürekli Form Içinde Seçilen Veriyi Silmek	footprinting	3	222	18-04-2022, 21:14 Son Mesaj: alperalper

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL