Discussion :

[abricot40]

Bonjour,

J’ai un problème dans une base de donnée access.

Dans ma base, j’ai 4 tables: Opération, Type, VitesseUsinage et Matière et j’ai aussi 4 listes déroulantes sur un formulaire : (pour afficher les opérations, les types ( ébauche ou finition), les matières et les vitesses d’usinage).
Dans mon formulaire, je sélectionne en premier la matière puis l’opération ensuite le type et pour finir par la vitesse.

Je souhaite qu’en fonction de la sélection des 3 listes déroulantes ( Matière, Opération et Type), qu’il affiche dans la liste déroulante Vitesse, la vitesse adéquate. Les tables Matière, Opération et Type ne sont pas liées entre elles.

Merci de votre réponse.

[argyronet]

Bonjour,

Bien en fait, il faut garder à l'esprit que la cascade sur plus de 2 tables va t'obliger à affecter à chaque ListBox ou ComboBox la propriété SQL idoine en fonction de ce qui à été sélectionné dans la première...

La 1ère chose à faire est de rendre désactivé chaque liste exceptée la liste des matières.
Après sélection d'une matière, la liste des Vitesse se libère et voit éventuellement appelée sa méthode DropDown. sa propriété RowSource devient alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL="SELECT IDVitesse, VitesseUsinage FROM VitesseUsinage WHERE IDMatiere = " & lngIDMatiere &";"

où

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lngIDMatiere = Nz(Me!IDMatiere, 0)

la seconde est d'offrir sélection possible d'une vitesse, et la liste des opérations et des types se libèrent où leur propriété RowSource devienent alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SQL="SELECT IDOperation, Champ1 FROM VitesseUsinage WHERE IDMatiere = " & lngIDVitesseUsinage &";"
SQL="SELECT IDType, Champ1 FROM VitesseUsinage WHERE IDMatiere = " & lngIDVitesseUsinage &";"

où

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lngIDVitesseUsinage = Nz(Me!IDVitesseUsinage , 0)

PS : je te conseille de renommer tes tables avec un préfixe "TBL_"
Tu préviens alors les erreurs d'interprétation ; ta table VitesseUsinage possède un champ VitesseUsinage ! Donc tbl_VitesseUsinage serait mieux. Pareil pour les noms Champ1 ??? TypeOperation et NomOperation seraient plus parlant.

Argy

[abricot40]

Merci de ta réponse.

J’ai recopié TON code? cependant cela ne marche. Je pense que je n'ai pas tout compris.

Voici mon code pour la liste déroulante des vitesses:

Modifiable245.rowsource = SQL
Modifiable245.Enabled = True
Modifiable245.SetFocus
Modifiable245.dropdown

Je pense que cela ne marche pas parce que il y a 3 SQL, enfin je pense.
Es ce que tu peux m’éclairer ?

[argyronet]

T'éclairer... voilà

Bon plus sérieusement, déjà, fait en sorte que ce que j'ai écris dans mon tuto soit applicable entre tes tables Matières (§ table Métiers du tuto) et VitesseUsinage (§ Table Catégories du tuto).
Ne t'occupe pas des deux autre, on verras après.

A toi...

Argy

[abricot40]

C'est bon!

[argyronet]

Donc, quand tu choisis une matière, tu n'a que les vitesses correpondantes...
Eh, tu procèdes de la même façon avec Vitesse <=> Type et Operation.

Simplement, il va falloir que tu fasses un choix de priorité :

Qui du type ou de l'opération, est le premier ?

Tu peux effectivement alimenter les deux en fonction du choix de la vitesse ; là je te laisses libre arbitre vis à vis de la finalité car je ne connais pas l'objectif.

Argy

[abricot40]

C’est bon, mais le problème c’est que quand je sélectionne la matière cela me propose les vitesses de la matière. Ensuite je sélectionne l’opération, cela me propose les vitesses pour l’opération et quand je sélectionne le type cela me propose les vitesses du type. Mais elles ne sont pas en concordance. Je n’arrive pas a trouver la vitesse de la matière, de l’opération et du type.

[argyronet]

Il te faut supprimer les relations... Dans un tel cas, ce n'est pas nécessaire.

En réalité, tu aurais du avoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Matières 1-n Vitesses 1-n Types
                      1-n Operations

Ce n'est parce qu'un prof ou ton mentor t'as dit qu'il était mieux de mettre en place un schéma relationnel que tu te dois de le faire. Parfois, ce n'est pas justifié mais il faut expliquer pourquoi... En // à cela, la mise en place des types de relations doit être aussi considérée...

[abricot40]

euh, c'est a dire

[argyronet]

Bien en enlevant des champs superflus et en modifiant le MPD...
Sinon bien tu supprimes les relations.

[abricot40]

C'est bon, mais cela ne change rien au problème

[argyronet]

Euh, il y a quelque chose que je pige pas...
Bon déjà, supprimes toutes les relations. On les remettra si besoin
Quel est l'ordre de sélection ?

Car si la sélection est multitables pour au final obtenir la bonne Vitesse d'Usinage il faut que tu mettes un WHERE avec un AND

1. Matière => Vitesse
2. Operation => Vitesse selon Opération et Matière & [Type]
3. Type => Vitesse selon Type et Matière & [Operation]

[@] = facultatif

Ca donnerait par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub QuelleVitesses()
Dim lngIDMatiere                                As Long
Dim lngIDType                                   As Long
Dim lngIDOperation                              As Long
 
    lngIDMatiere = Nz(Me!cboListMatieres, 0)
    lngIDType = Nz(Me!cboListTypes, 0)
    lngIDOperation = Nz(Me!cboListOperations, 0)
    If lngIDMatiere Then
 
        SQL = "SELECT IDVitesse, VitesseUsinage FROM VitesseUsinage WHERE IDMatiere = " & lngIDMatiere & " "
        If lngIDType Then
            SQL = SQL & "AND IDType =" & lngIDType & " "
        End If
        If lngIDOperation Then
            SQL = SQL & "AND IDOperation =" & lngIDOperation & " "
        End If
    Else
        MsgBox "Et la matière, on va la chercher ou bien ?", vbExclamation
        Exit Sub
    End If
    With Me.cboVitesseUsinage
        .RowSource = SQL
        .Requery
    End With
End Sub

Argy

[DMboup]

Il ya un complément pour ca.

Cherche le premier défi Access.