Problème de requete avec restriction

Question

Bonjour,
Je suis en train de r&#233;aliser un formulaire en VBA dans Access. J'ai g&#233;n&#233;r&#233; ma base de donn&#233;es avec SQL.
Mon probl&#232;me est le suivant:
je veux afficher dans mon formulaire chaque enregistrement de ma table CLIENTS, les contr&#244;les du formulaires reprenant pour chaque client son nom, prenom,codeclient, etc..., ce qui ne me pose pas de probl&#232;mes.
Je veux &#233;galement r&#233;cup&#233;rer pour chaque client dans une zone de liste "LstAnimaux" (il s'agit d'une base pour une clinique v&#233;t&#233;rinaire) l'ensemble des animaux qui lui appartiennent (cl&#233; primaire de la table client : CodeClient , cl&#233; &#233;trang&#232;re dans la table animaux : CodeClient).
Ma question est la suivante: comment formuler ma requ&#234;te sql dans mon code pour n'afficher que les animaux li&#233;s au client affich&#233;?

Les &#233;l&#233;ments du code qui semblent poser un probl&#232;me ont &#233;t&#233; soulign&#233;s:
(ne pas tenir compte des quotes de commentaires pour le code)
Private Sub Form_Load()
    Set RsClients = New ADODB.Recordset
    RsClients.ActiveConnection = connexion
    RsClients.CursorLocation = adUseClient
    RsClients.CursorType = adOpenStatic
    RsClients.LockType = adLockOptimistic
    On Error GoTo gestion_erreur
    RsClients.Open "CLIENTS"
    Call liste_animaux
        'tester si le recordset contient au moins un enregistrement a afficher
    If RsClients.RecordCount > 0 Then
        'dans ce cas, l'afficher et activer tous les boutons
        affichage
        Boutons_tous
    Else
        'sinon, passer en mode ajout
        Boutons_ajouter
    End If
    Champs_invalides
    Exit Sub
gestion_erreur:
    MsgBox "probl&#232;me lors de l'ouverture de la table client"
End Sub

Private Sub liste_animaux()
'    'activer le recordset
'    Set RsAnimaux = New ADODB.Recordset
'    'd&#233;finir ses caract&#233;ristiques
'    RsAnimaux.ActiveConnection = connexion
'    RsAnimaux.CursorLocation = adUseClient
'    RsAnimaux.CursorType = adOpenStatic
'    RsAnimaux.LockType = adLockReadOnly
'    'ouvrir le recordset
RsAnimaux.Open "select CodeAnimal,NomAnimal,Sexe,Couleur,Race,ANIMAUX.CodeClient from ANIMAUX,CLIENT? where ?????"
'    'si le recordset n'est pas vide, on alimente la combox
'    If RsAnimaux.RecordCount > 0 Then
'        'trier le recordset sur le nom du representant
'        RsAnimaux.Sort = "NomAnimal ASC"
'        RsAnimaux.MoveFirst
'        LstAnimaux.RowSourceType = "Liste valeurs"
'        LstAnimaux.RowSource = RsAnimaux![NomAnimal] & ";" & RsAnimaux![CodeAnimal] & ";" & RsAnimaux![Sexe] & _
'        ";" & RsAnimaux![Couleur] & ";" & RsAnimaux![Race]
'        Do
'            RsAnimaux.MoveNext
'            If Not RsAnimaux.EOF Then
'                LstAnimaux.RowSource = LstAnimaux.RowSource & ";" & RsAnimaux![NomAnimal] & ";" & RsAnimaux![CodeAnimal] & ";" & RsAnimaux![Sexe] & _
       ";" & RsAnimaux![Couleur] & ";" & RsAnimaux![Race]
            End If
        Loop While Not RsAnimaux.EOF
    End If

   'les donn&#233;es sont transf&#233;r&#233;es dans la zone de liste,
    'on a donc plus besoin du recordset
    'destruction du recordset
    If RsAnimaux.State = adStateOpen Then
        RsAnimaux.Close
    End If
    'D&#233;sactiver (liberer) l'objet Recordset
   Set RsAnimaux = Nothing
End Sub

Private Sub affichage()
    If Not IsNull(RsClients.Fields!CodeClient) Then
        TxtCodeClient.Value = RsClients.Fields!CodeClient
    Else
        TxtCodeClient.Value = ""
    End If
    If Not IsNull(RsClients.Fields!nom) Then
        TxtNomClient.Value = RsClients.Fields!nom
    Else
        TxtNomClient.Value = ""
    End If
    If Not IsNull(RsClients.Fields!Prenom) Then
        TxtPrenomClient.Value = RsClients.Fields!Prenom
    Else
        TxtPrenomClient.Value = ""
    End If
    If Not IsNull(RsClients.Fields!CodePostal) Then
        TxtCodePostal.Value = RsClients.Fields!CodePostal
    Else
        TxtCodePostal.Value = ""
    End If
    If Not IsNull(RsClients.Fields!Adresse1) Then
        TxtAdresse1.Value = RsClients.Fields!Adresse1
    Else
        TxtAdresse1.Value = ""
    End If
    If Not IsNull(RsClients.Fields!Adresse2) Then
        TxtAdresse2.Value = RsClients.Fields!Adresse2
    Else
        TxtAdresse2.Value = ""
    End If
    If Not IsNull(RsClients.Fields!Ville) Then
        TxtVille.Value = RsClients.Fields!Ville
    Else
        TxtVille.Value = ""
    End If
    If Not IsNull(RsClients.Fields!NumTel) Then
        TxtNumTel.Value = RsClients.Fields!NumTel
    Else
        TxtNumTel.Value = ""
    End If
    If Not IsNull(RsClients.Fields!Assurance) Then
        TxtAssurance.Value = RsClients.Fields!Assurance
    Else
        TxtAssurance.Value = ""
    End If
'    LstAnimaux.Value = RsClients.Fields!CodeClient
End Sub

cs_Jack · Answer

Salut
Merci, pour une fois qu'une question est correctement pos&#233;e, &#231;a fait plaisir de r&#233;pondre :-)
... Tout simplement comme ceci :

RsAnimaux.Open "Select ANIMAUX.CodeAnimal, " & _
                                       ANIMAUX.NomAnimal,  " & _
                                       ANIMAUX.Sexe,  " & _
                                       ANIMAUX.Couleur,  " & _
                                       ANIMAUX.Race,  " & _
                                       ANIMAUX.CodeClient, " & _
                                       CLIENT.Nom " & _
                              From ANIMAUX, CLIENT " & _
                            Where ANIMAUX.CodeClient = CLIENT.CodeClient"
ou                         Where ANIMAUX.CodeClient = " & LaVariableVbQuiContientLeCodeClient
(ne choisir qu'un seul des Where propos&#233;s, bien s&#251;r)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

frelon444 · Answer

Le probl&#232;me avec  Where ANIMAUX.CodeClient = CLIENT.CodeClient, c'est qu'il m'affiche tous les animaux de tous les clients. Il me semble qu'il doit y avoir un moyen de r&#233;cup&#233;rer la valeur du contr&#244;le qui contient le CodeClient du client en cours (TxtCodeClient) mais je ne parviens pas &#224; l'associer au codeclient de la requ&#234;te (ANIMAUX.CodeClient). ?

Problème de requete avec restriction

2 réponses

Discussions similaires