Relation entre deux champs sous Access

[The_tiger85]

Bonjour,
Je souhaite créer (en programmant) une relation entre deux champs.

J'ai deux champs : TypeDossier (Liste déroulante) et NumDossier (Liste).
Donc, quand je choisi un type de dossier, je veux que la liste du numéro de dossier se mette à jour automatiquement.

Voila, si vous avez une solution, je suis preneuse ....
Merci d'avance

 

[vestale974]

Salut,
Cela devrait marcher

Private Sub Liste1_AfterUpdate()
Me.Filter = "[Nom du champ sur lequel tu appliques le filtre] ='" & Me![Liste1] & "'"
Me.FilterOn = True
End Sub


Private Sub Liste2_AfterUpdate()
Me.Filter = "[Nom du champ sur lequel tu appliques le filtre] ='" & Me![Liste2] & "'"
Me.FilterOn = True
End Sub

@+

 

[The_tiger85]

Ca ne me met pas d'erreur mais ça ne marche pa ...

Voici ma page : PageAccueil

Et le code :

Private Sub TypeDossier_AfterUpdate()
Me.Filter = "TypeDossier ='" & Me!TypeDossier & "'"
Me.FilterOn = True
End Sub


Private Sub NumDossier_AfterUpdate()
Me.Filter = "NumDossier ='" & Me!NumDossier & "'"
Me.FilterOn = True
End Sub

 

[vestale974]

Salut,
C'est normal, tes listes ne sont pas des objets indépendants
@+

 

[The_tiger85]

Il faut obligatoirement que mes listes soit indépendante ?
Car ca ne marche pas si elles sont indépendante ....

 

[vestale974]

A ma connaissance oui,
Je n'ai jamais rencontré de cas où les objets n'étaient pas indépendants.
Mais bon, je peux me tromper aussi. Nul n'est parfait  :laugh:

Faudrait voir avec "Morice" ou "Cybervince"
@+
clic

 

[The_tiger85]

J'ai trouvé la solution !!
Pour ceux qui la veulent, la voila :

Private Sub Liste1_change()
Me.[Nom de la 2eme liste].RowSource = "SELECT [Nom du champ de la 2eme liste] FROM [Nom de la table] WHERE [Nom du champ de la 1ere liste] = '" & Liste1.Value & "'"
End Sub

Voila !! Merci vestale974 de m'avoir aidée !!

 

[The_tiger85]

Bonjour,
J'ai encore un problème avec ces pages :
J'ai deux pages : Accueil et Suivi de Dossier

Dans la page d'Accueil :
Lorsque je clique sur la liste de type de dossier, il me met à jour le Numéro de dossier puis, avec le bouton Valider, il m'envoye vers la page de Suivi de Dossier ou je voudrais que les informations soit en lien avec le numéro de dossier.

Voici mes codes pour cette page :

Private Sub TypeDossier_Change()
Me.NumDossier.RowSource = "SELECT NumDossier FROM Dossier WHERE TypeDossier ='" & TypeDossier.Value & "'"
End Sub

Private Sub NumDossier_AfterUpdate()
'Code pour mettre à jour la liste des numéros de dossiers en fonction du type
Me.Filter = "NumDossier ='" & Me!NumDossier & "'"
Me.FilterOn = True
End Sub

Private Sub CmdValider_Click()
requete = "SELECT VueSuiviDossier.*"
requete = requete + " FROM VueSuiviDossier, VueAccueil"
requete = requete + " WHERE VueAccueil.NumDossier = VueSuiviDossier.NumDossier"
requete = requete + " AND VueSuiviDossier.NumDossier = '" & NumDossier.Value & "'"
'requete = requete + " AND VueSuiviDossier.";"

'DoCmd.Close
Application.DoCmd.OpenForm "FormSuividossier", , requete, , , , Me.NumDossier
[...]
End Sub

Puis, Dans la page de Suivi de Dossier :
Tout les champs devrait être en lien avec le Numéro de Dossier de la page d'Accueil, or il n'y a que le champ Numéro de dossier qui est en lien.

Voici mes codes pour cette page :

Private Sub Form_Load()
If IsNull(Me.OpenArgs) Then
'rien à faire
Else
Me.[NumDossier] = CLng(Me.OpenArgs)
End If
End Sub

Voila, en espérant avoir clairement exposé mon problème et que vous puissiez m'aidez car ça commence à m'énervé, ça fait plusieurs jours de recherche dans les forums, les faq et les tuto ... :blink: :chessy:

 

[vestale974]

Private Sub CmdValider_Click()
    Dim requete As String
    requete = "SELECT VueSuiviDossier.*"
    requete = requete & "FROM VueSuiviDossier, VueAccueil"
    requete = requete & "WHERE VueAccueil.NumDossier = VueSuiviDossier.NumDossier"
    requete = requete & "AND VueSuiviDossier.NumDossier = '" & NumDossier.Value & "'"
    'requete = requete & "AND VueSuiviDossier.";"
   
    'DoCmd.Close
    Application.DoCmd.OpenForm "FormSuividossier", , requete, , , , Me.NumDossier

 

[The_tiger85]

Ca revient au même ... :embarassed:
Et le Dim j'avais juste oublié de le mettre

 

[vestale974]

Salut,
Et que dit le débogueur ? Il doit forcément s'enclencher !
@+

 

[The_tiger85]

Salut
Non, le débogeur ne s'enclenche pas car il n'y as pas de problème ...
@+

 

[The_tiger85]

Bonjour,
Maintenant cela marche, de plus, j'ai créé mon bouton valider en utilisant l'assistant et j'ai mis la "fonction" : Ouvrir le formulaire et trouver les informations spécifiques à afficher, puis j'ai liée mes deux champs NumDossier de mon formulaire d'accueil et celui de Suivi de Dossier.

Voici le code de mon bouton valider :

stDocName = "FormSuiviDossier"
stLinkCriteria = "[NumDossier]=" & Me![NumDossier]
DoCmd.OpenForm stDocName, , , stLinkCriteria


Et celui du "Form_Load" du formulaire SuiviDossier

If IsNull(Me.OpenArgs) Then
'rien à faire
Else
Me.NumDossier = CLng(Me.OpenArgs)
End If


Voila !! Merci pour tout pour votre aide !!