AccessTr.neT
Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - 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ığı: 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 Adlı Kullanıcıdan Alıntı: 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?
 Formun geçerli olduğunda olayına kilitli olması gereken denetimler için me.metinkutusu.locked=true şeklinde kod ekleyin.


Cvp: Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun - ergntrn - 27/04/2019

Dosya nasıl göndereceğim