Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
26/04/2019 13:59
Konu Sahibi
eraslan
Yorumlar
6
Okunma
155
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

eraslan

Üye
1638
er....
 55
 4
 5
 31/12/2008
0
 Ankara
 
 Ofis 2003
 26/04/2019,15:10
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



maytas

Uzman
1316
 53
 24
 540
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 01/05/2019,02:10
İ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


Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.

ergntrn

Üye
104047
er.... tu....
 56
 0
 3
 27/04/2019
0
 Ankara
 İşçi
 Ofis 2016 32 Bit
 28/04/2019,21:50
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



ergntrn

Üye
104047
er.... tu....
 56
 0
 3
 27/04/2019
0
 Ankara
 İşçi
 Ofis 2016 32 Bit
 28/04/2019,21:50
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?



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
(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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

ergntrn

Üye
104047
er.... tu....
 56
 0
 3
 27/04/2019
0
 Ankara
 İşçi
 Ofis 2016 32 Bit
 28/04/2019,21:50
Dosya nasıl göndereceğim




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Formda Liste Kutusu Çift Tıklama Boş Gelme Sorunu haziran4 1 95 10/05/2019, 11:36
Son Yorum: ozanakkaya
  Metin Tipinde Ayarlanmış Sürelerle İşlemlerde Toplama Sorunu yücel üzülmez 9 320 08/05/2019, 23:09
Son Yorum: haliliyas

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.