Access ana menü tasarımı (listbox hk.)

Katılım
5 Kasım 2007
Mesajlar
18
Excel Vers. ve Dili
excel 2003
Access te bir ana menü tasarımı yaptım. Sadelik açısından düğme kullanmak yerine listbox kullanmak istiyorum. Listbox tan seçim yapıldığında otomatik olarak ya da bir düğme yardımı ile seçilen forma gitmesini nasıl sağlayabilirim? Örnek ektedir.
 

Ekli dosyalar

  • 324 KB Görüntüleme: 62
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın ahmetokanyılmaz,

Aşağıdaki kod işinizi görür.

Case satırlarını çoğaltarak form isimlerini atayın.


Kod:
Private Sub Açılan_Kutu5_AfterUpdate()

    Dim stDocName As String
    Dim stLinkCriteria As String
    
    Select Case Me.Açılan_Kutu5.Value
    Case "Eğitim"
        stDocName = "egitim"
    Case "Fen-Edebiyat"
        stDocName = ""
    End Select
    DoCmd.Close
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub
İyi çalışmalar
 
Katılım
5 Kasım 2007
Mesajlar
18
Excel Vers. ve Dili
excel 2003
Merhaba

Aklıma bir şey daha geldi. Forumda aradım ama bulamadım.

Açılır kutuda seçilen dersler kayıt düğmesine basıldıktan sonra açılır kutu listesinden silinsin istiyorum. Yani açılır kutudan seçip kaydettiklerim açılır kutu listesinden silinsin. Ancak tablodaki kaydı sildikten sonra açılır kutu listesine tekrar eklensin istiyorum.

Örnek ektedir.
 

Ekli dosyalar

Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın ahmetokanyilmaz,

Bu gibi durumlarda, derslerin veri listesi yerine bir tablodan almaları daha iyi oluyor.

Bu sorudaki isteğiniz böyle karşılanabilir.

Yeni bir tablo ekledim, dersleri oraya taşıdım. Sonra Eşleşmeyenleri Bulma Sorgusu sihirbazını çalıştırdım. (Sorgular sekmesinde iken Menü çubuğunun Ekle Menüsünden Sorguyu seçin) ve dersler tablosunda olup da endmuh tablosunun ilgili alanında olmayan derslerin sorguda görünmesini sağladım. Sonra açılan kutunun veri satır kaynağının bu sorgu olmasını sağladım.

En son formun kod sayfasına ise

Kod:
Private Sub Form_Current()
Me.Dersler.Requery
End Sub

Private Sub Form_Load()
Me.Dersler.Requery
End Sub
kodlarını ekledim, böylece açılan kutu form açıldığında ve kayıtlar arasında gezinildiğinde tekrar sorgulanmasını sağladım.

İyi çalışmalar
 

Ekli dosyalar

Katılım
5 Kasım 2007
Mesajlar
18
Excel Vers. ve Dili
excel 2003
@modalı, teşekkür ederim. Araya sınavlar diğer projeler girdiği için ilgilenemedim. Şimdi inceleyeceğim.
 
Üst