+- 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 Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun (/konu-metin-kutusu-istenildigi-zaman-okunur-istedigim-zaman-yazilir-olsun.html)
Sayfalar:
1
2
Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - eraslan - 26/04/2019
Merhaba
Access Form'da Hücreyi (metin kutusu) istenildiği zaman okunur, istediğim zaman yazılır olsun. Komutu nasıl konulur?
İyi Çalışmalar
Ergün Turan
Cvp: Hücreyi (metin Kutusu) İstenildiği Zaman Okunur, İstediğim Zana Yazılır Olsun - maytas - 26/04/2019
İstenildiği zaman dediğinize göre bunu bir şarta bağladığınızı varsayıyoruz ve bu şart formda oluşturduğunuz bir onay kutusu olduğunu varsayıyoruz.
Onay kutusu seçili ise metin kutusu kilitli olsun, değil se yazılabilir olsun.
Bunun için kodları ilgili matin kutusunun GotFokus olayına yazıyoruz. Metin kutusuna fokusladığımızda onay kutusunun durumuna göre yazılabilir, ve ya yazılamaz olacaktır.
Private Sub Metin1_GotFocus()
Me.Metin1.Locked = Me.Onay1
End Sub
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - ergntrn - 27/04/2019
Merhaba
Private Sub Buton1_Click()
If Me.Buton1Label.Caption = "Düzenleme Açık" Then
Me.Buton1Label.Caption = "Düzenleme Kapalı"
'Me.Tahsilat_Makbuzu_Alt.Locked = True
Me.Sira_No.Locked = True
Me.Stok_No.Locked = True
Me.Arge_No.Locked = True
Me.Tanim.Locked = True
Me.Yer.Locked = True
Me.Paket.Locked = True
Me.Firma_Adi.Locked = True
Me.Aciklama.Locked = True
Me.TFS_ID.Locked = True
Me.Durum.Locked = True
Me.Buton1Box.BackColor = vbRed
Me.Tanim.SetFocus
Else
Me.Buton1Label.Caption = "Düzenleme Açık"
'Me.Tahsilat_Makbuzu_Alt.Locked = False
Me.Sira_No.Locked = False
Me.Stok_No.Locked = False
Me.Arge_No.Locked = False
Me.Tanim.Locked = False
Me.Yer.Locked = False
Me.Paket.Locked = False
Me.Firma_Adi.Locked = False
Me.Aciklama.Locked = False
Me.TFS_ID.Locked = False
Me.Durum.Locked = False
Me.Buton1Box.BackColor = vbGreen
Me.Tanim.SetFocus
End If
End Sub
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - ergntrn - 27/04/2019
Merhaba
Bu code çalışıyor. Fakat ara ıra bozuluyor. ilk Açılışta düzenleme kapalı gelmesi gerekirken Düzenleme açık geliyor.
Yardımcı olur musunuz?
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - ozanakkaya - 27/04/2019
(27/04/2019, 19:49)ergntrn yazdı: MerhabaFormun geçerli olduğunda olayına kilitli olması gereken denetimler için me.metinkutusu.locked=true şeklinde kod ekleyin.
Bu code çalışıyor. Fakat ara ıra bozuluyor. ilk Açılışta düzenleme kapalı gelmesi gerekirken Düzenleme açık geliyor.
Yardımcı olur musunuz?
Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - ergntrn - 27/04/2019
Dosya nasıl göndereceğim