Açılan kutu boş ise görünmesin

1 2
24/09/2011, 12:17

bestof89

selamlar örnek dosyamda alkitap ve türü isimli 2 tane açılan kutu var yeni kayıt ekle dediğimde alkitap bölümünden seçimi yaptıktan sonra türü bölümünde seçilecek bir şey yok ise yani türü bölümü boş ise türü bölümünün görünür olmamasını istiyorum. yani yeni kayıt dedikten sonra kitap bölümünde "adı aylin" i seçtiğimde türü bölümünde seçenek olmadığı için tamamen görünmemesini istiyorum.Yardımlarınız için şimdiden teşekkür ederim.
24/09/2011, 12:27

Coskun0559

Formunuzun kodlarını;
Private Sub AL_KITAP_AfterUpdate()
Dim tur As String
tur = Me.AL_KITAP.Column(1)
If tur = "" Then
Me.TURU.Visible = False
Else
Me.TURU.Visible = True
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Private Sub Form_Current()
On Error Resume Next
Dim tur As String
tur = Me.AL_KITAP.Column(1)
If tur = "" Then
Me.TURU.Visible = False
Else
Me.TURU.Visible = True
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub
şeklinde değiştirdim.
örnek ektedir.
kolay gelsin
24/09/2011, 12:59

bestof89

çok teşekkür ederim, şu an örneği esas formuma uygulamaya çalışıyorum. bittiğinde bilgi veririm.
24/09/2011, 15:59

bestof89

tam istediğim gibi olmadı, sebebi verilerin alındığı sorguda grupla var "alkitap" açılan kutuyu iki sutunlu yaptığımızda gurupla özelliği olmuyor, yazmış olduğun kod bölümünde tur değerini form üzerine eklediğim liste kutusundan alabilirmi, liste kutusu boş ise görünmesin şeklinde.
24/09/2011, 16:08

Coskun0559

aynı alanı forma 2 sefer dahil edersen olmaz,alanın durumunu güncelleştirince tılsım bozulur sorguda grupla işeminden sonra kitap alanını artan sıraya göre sıralayabilirsiniz
24/09/2011, 16:20

Coskun0559

syn bestof89;
örneği 2.mesajdaki güncelledim.lütfen tekrar indirip test ediniz.

yaptığım işlem şu tablonuza TURLER adında bi alan ekledim ve açılan kutudan kitap seçilince alana veri girişi yapılmasını sağladım.gizleme ve gösterme işinide eklediğim alana göre ayarladım,alan gizlidir çalışma anında göremezsiniz.
1 2