Bonjour a tous,
Je viens vers vous car je suis a court d'idée pour m'en sortir seul, laissez moi expliquer rapidement mon probleme qui vous paraitra surement pas tant problématique que ca !
Etant reponsable de la création d'un petite BDD sur Access dans le cadre d'un stage en Irlande, je souhaitais créer dans un formulaire Deux listes interdépendantes entre elles. Pour ce faire je me suis beaucoup aidé de ce Tuto qui m'a foi est plutot bien fait pour les amateurs tel que je suis, merci Jean-Philippe AMBROSINO
voici donc le lien du Tuto en question ! http://argyronet.developpez.com/offi...ectitemlistAB/
cependant étant relativement nouveau dnas le domaine du VBA (disons 2 semaines) et ayant apris comme je l'ai pu au travers de differentes discussion sur ce forum, j'ai essayé d'appliqué le code indiqué a ma Base Access; ce qui me donne ce qui suis:
Le probléme qui me turlupine maintenant est que lors de la selection dans ma premiere Combo Box (Combo55) la valeur de s'affiche pas aprés selection et qui plus est la comboBox53 reste vérouillée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub Combo55_AfterUpdate() Dim lngIDBus As Long Dim SQL As String If Not IsNumeric(Me!Combo55) Then Exit Sub lngIDBus = Me!Combo55 SQL = "SELECT TBLTG.IDTA, TBLTG.[Business Unit], TBLTG.[Therapeutic Group]FROM TBLTG WHERE TBLTG.[Business Unit]=" & lngIDCat & " ORDER BY Therapeutic Group]" Combo53.RowSource = SQL Combo53.Enabled = True Combo53.SetFocus Combo53.Dropdown End Sub
Donc voila grossiérement mon probleme, en esperant avoir été assez clair.
Merci d'avance pour votre aide
TH
Partager