+- 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ığı: metin kutusuna tıkladığımızda bağlı etiket adı almak (/konu-metin-kutusuna-tikladigimizda-bagli-etiket-adi-almak.html)
Sayfalar:
1
2
Cvp: metin kutusuna tıkladığımızda bağlı etiket adı almak - aydın3838 - 10/08/2014
ok hocam
deneyeyim
teşekkürler
Cvp: metin kutusuna tıkladığımızda bağlı etiket adı almak - aydın3838 - 10/08/2014
sormuş olduğum sorunun cevabı kullanan olur diye ekliyorum
konu boşa gitmesin
Alıntı:
'sayın dsezgin83260 den alıntıdır
Kutular ile etiketleri beraber olusturulmus ise asagida ki kod ile etiketin basligi gorulebilir.
Sub EtiketBul(KutuAdi As String)
On Error Resume Next
Dim Kutu As Control, i As Long
For Each Kutu In Me.Controls
i = i + 1
If Kutu.Name = KutuAdi And Me.Controls(i).Properties("ControlType") = 100 Then MsgBox Me.Controls(i).Caption
Next Kutu
End Sub
Private Sub Text8_Click()
Call EtiketBul(Me.ActiveControl.Name)
End Sub