Skip to main content

AccessTr.neT


Texbox Ları Gizlemek Göstermek.

Texbox Ları Gizlemek Göstermek.

Çözüldü #1
İyi çalışmalar.
Access ile SECERE Takip veri tabanı oluşturuyorum. Veri tabanında es_1, es_2.. gibi 3 adet cck_1, cck_2 .. gibi 12 adet ve krd_1, krd_2 .. gibi 12 adet textbok var farmdaki veriler değiştiğinde textbox ların boş olanlarının görünmemesini dolu olanların görünmesini istiyorum. Textbox ların bazen bir bazen birkaçı dolu olabiliyor bazende tamamı dolu olabiliyor.
yardımcı olacak arkadaşlara teşekkür ederim.
Cevapla
#2
if textboxadınız.value="" or isnull(textboxadınız) then Textboxadınız.visible=false
benzeri kodun seçim yapılan en son combobox after update olayına girilmesi sorunuzun cevabı olacaktır.
Cevapla
#3
Texbox isimlerini sıralı yaparsanız,
Tek tek kontrol edebilir ve değeri boşsa görünürlüğünü kapatabilirsiniz.
Kod:
Me.textBoxAdi1.Visible = not isnull(Me.textBoxAdi1)
        Me.textBoxAdi2.Visible = not isnull(Me.textBoxAdi2)
...

veya döngüyle toplu yapabilirsiniz.
Kod:
Dim i
    For i = 1 To 12
        Me("[textBoxAdi" & i & "]").Visible = not isnull(Me("[textBoxAdi" & i & "]"))
    Next

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
#4
Arkadaşlar Merhaba,
Bir çözüm önerisi de ben sunmak istiyorum. Formunuzun Current Olayına aşağıdaki kodu yerleştiriniz. Formda gezinti yaptığınızda boş alanlar gizlenecek, dolu alanlar gösterilecektir. Yeni kayda geçildiğinde tüm alanlar gösterilecektir. Ayrıca textbox'ların Exit olayına da kod eklememiz gerekmektedir. Aşağıdaki gibi.
Private Sub Form_Current()
Dim ctl As Control
If Me.Form.NewRecord Then
For Each ctl In Me
ctl.Visible = True
Next
End If
If Not Me.Form.NewRecord Then
For Each ctl In Me
If TypeOf ctl Is TextBox Then
If ctl = "" Or IsNull(ctl) Then
ctl.Visible = False
Else
ctl.Visible = True
End If
End If
Next
End If
End Sub

Private Sub ad_Exit(Cancel As Integer)
If IsNull(Me.ad) Then
Me.soyad.SetFocus
Me.ad.Visible = False
Else
Me.soyad.SetFocus
Me.ad.Visible = True
End If
End Sub
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#5
Teşekkürler onur_can Üstat tam aradığım kodlar. Ellerinize sağlık.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task