Metin Kutularını Gizleme

1 2
17/02/2010, 09:28

ali288

Arkadaşlar merhaba

Sihirbazı kullanarak oluşturmuş olduğum formda alt alta ve yan yana 13 tane metin kutusu var, veri girişi yaptığım kutu aktif olsun.
Diğerine(alt satıra) geçmedikçe diğer kutular gizlensin birde, kaydet ve sil butonu giriş yapılan kutunun hep altında olsun.
(2007 kullanıyorum)

Teşekkürler...
17/02/2010, 13:29

Hayri16

Sayın Ali288;
Nesnelere ait dediğiniz türden 2 seçenek var.
1- Nesne görünür ama işlevselliği yoktur. (Pasif olması)
Nesneismi.enabled= False 'Pasif yapar
Nesneismi.enabled=True ' aktif yapar
2- Nesne form üzerinde vardır ama çalışırken görünmez.
Nesneismi.visible=false 'Görünmez
Nesneismi.visible=True ' görünür.

Bu bilgilere dayanarak formunuzu düzenleyebilirsiniz. Her nesnenin güncelleme sonrasına
bir sonraki sekme sırasındaki nesneyi aktifleştiren veya görünür yapan kodu eklersiniz.
Bir sonraki nesneye geçtiğinizde (setfocus olayı) bir önceki nesneyi pasif veya görünmez yaparsınız.
Burada dikkat edilecek konu bir nesneyi üzerindeyken görünmez veya pasif yapamazsınız.
Bu kısımları halledin kayıt tuşlarını gezdirmeyi sonra çözeriz.
Saygılarımla kolay gelsin.
17/02/2010, 14:36

ali288

Sayın Hayri16
Bahsetmiş olduğunuz

"Her nesnenin güncelleme sonrasına
bir sonraki sekme sırasındaki nesneyi aktifleştiren veya görünür yapan kodu eklersiniz"

Bu olayı nasıl yapabilirim biraz daha açar mısınız?

İlginize teşekkürler...
17/02/2010, 14:47

Hayri16

Sayın ali288;
Formunuzda ilk sıranın sabit olduğunu varsayarak ikinci sıranın başında bulunan "İŞEMRİ1" kutusu için örnek yapalım.
Kod:
Private Sub Metin24_AfterUpdate() 'Metin24 ün güncelleştirme sonrası işlem prosedürü
Metin26.Visible = True ' Metin26 yı görünür yap
Metin26.SetFocus ' İmleci Metin 26 ya götür
End Sub

Private Sub Metin26_GotFocus()  ' İmleç Metin26 üzerinde iken işlem  prosedürü
Metin24.Visible = False 'Metin24 ü görünmez yap
End Sub

Tabi başlangıçta Metin26 yı görünmez yapmayı unutma.
Yani
Private Sub Form_load()
Metin26.Visible=false
End Sub
kodlarını yaz.
Kolay gelsin.
17/02/2010, 16:39

ali288

Sizden öğreneceğimiz çok şey var

İlginize teşekkürler...
17/02/2010, 18:09

Hayri16

Teşekkür ederim Sayın ali288;
Hepimizin Access Tr 'den öğreneceği çok şey var.
1 2