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

İ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

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

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?

(27/04/2019, 19:49)ergntrn yazdı: 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.

Dosya nasıl göndereceğim