AccessTr.neT
Büyük Onay Kutusu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Büyük Onay Kutusu (/konu-buyuk-onay-kutusu.html)

Sayfalar: 1 2


Büyük Onay Kutusu - enginbeyy - 22/09/2020

Merhaba,

ekli dosyadaki onay kutusunu sitenizden aldım güzel ama ben fotoğraftaki kırmızı kare içindeki tik işaretini nasıl gizleyebilirim sadece büyük onay kutusunu kullanmak istiyorum.
[img][Resim: do.php?img=10494][/img]
Teşekkürler


RE: Büyük Onay Kutusu - C*e*l*o*y*c*e - 22/09/2020

Alan1 isismli alanı seç ve özelliklerinden Biçim/Görünür =Hayır yapınız görünmez


RE: Büyük Onay Kutusu - enginbeyy - 22/09/2020

hocam onu yapmıştım ama o zamanda Metin0 çentiklenmiyor.

(22/09/2020, 14:29)C*e*l*o*y*c*e yazdı: Alan1 isismli alanı seç ve özelliklerinden Biçim/Görünür  =Hayır yapınız görünmez
yani görünmez yapınca tıklanmıyor. görünmez olduğu halde tıklanabilir mi


RE: Büyük Onay Kutusu - C*e*l*o*y*c*e - 22/09/2020

ben sadece gizleme olarak düşündüğüm için öyle cevap yazdım,
baglantılı oldugu için gizleyince kullanamazsın,çünkü o değişince diğeride değişiyor,başka çare bulmalısın,


RE: Büyük Onay Kutusu - enginbeyy - 22/09/2020

uğraşıyorum ama yapamadım.
bi tavsiyesi olan


RE: Büyük Onay Kutusu - berduş - 22/09/2020

metin kutusunu Labela cevirip aşağıdaki kodları ekleyerek dener misiniz?
Private Sub Form_Current()
Me.Metin0.Caption = IIf([Alan1] = True, "P", "")
End Sub
ilk kod form current olayına eklenecek böylece form yüklendiğinde ve kayıtlar arasında dolaşırken Label kutusu değişir

Private Sub Metin0_Click()
If Me.Alan1 = -1 Then
Me.Alan1 = 0
Me.Alan1.Requery
Me.Metin0.Caption = ""

ElseIf Me.Alan1 = 0 Then
Me.Alan1 = -1
Me.Metin0.Caption = "P"
End If
'Me.Metin0.Caption = IIf([Alan1] = True, "P", "")
End Sub

dilerim işinize yarar
aslında metin0 tıklama olayı aşağıdaki gibi de olabilir
Private Sub Metin0_Click()
If Me.Alan1 = -1 Then Me.Alan1 = 0 Else Me.Alan1 = -1
Me.Metin0.Caption = IIf([Alan1] = True, "P", "")
End Sub