İ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.
Texbox Ları Gizlemek Göstermek.
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.
Texbox isimlerini sıralı yaparsanız,
Tek tek kontrol edebilir ve değeri boşsa görünürlüğünü kapatabilirsiniz.
veya döngüyle toplu yapabilirsiniz.
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)
...
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
Konfüçyüs
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.
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)
Teşekkürler onur_can Üstat tam aradığım kodlar. Ellerinize sağlık.
Konuyu Okuyanlar: 1 Ziyaretçi