Discussion :

[jeje22]

Bonjour,
Voilà ma question :

J’ai une BD avec 3 tables :
SAVOIRFAIRE (ID_SAV, INTITULE)
EMPLOYE (ID_EMP, NOM)
Et une table de croisement entre les 2 précédentes car elles ont une relation « N,N »,
donc EMPSF (IDSAV, ID_EMP).

Je cherche à faire un formulaire de recherche avec :
1 liste déroulante avec INTITULE
et une zone de liste qui affichera les NOM (des EMPLOYE) qui ont ce savoir faire « INTITULE ».

J’ai crée les relations dans la fenêtre relation.
J’ai essayer de créer des formulaires, j’ai bien le menu déroulant et la zone de liste, mais cette zone de liste ne se met pas à jour de mon choix dans le menu déroulant !
Est ce que je suis tout de même obligé de créer les jointures dans mon formulaire ? (si oui, est-ce dans la zone de liste, et quelle est la syntaxe ?)

Où puis je trouver une BD exemple sur le net qui pourrais m’aider ?

Merci

[Dolphy35]

Bonjour et bienvenue sur le forum,

tu trouveras des cours entiers sur la recherche ici Développement d'interfaces graphiques

Dolphy

[jeje22]

Bonjour,

ca ne marche toujours pas, malgrés mes modifications.

dans mon formulaire j'ai une liste déroulante INTITULE que j'appelle Lst_INTITULE
et une zone de liste que j'appelle lstResults
et lblStats affiche le nombre de réponse.
Mais voilà ma zone de liste ne change pas du tout après mon choix dans la liste déroulante

Private Sub Lst_INTITULE_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub




Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String


'Je cherche à afficher le résultat de ma reque^te dans ma zone de liste suivant
SQL = "SELECT EMPLOYE!ID_EMPLOYE, EMPLOYE!NOM_EMPLOYE FROM EMPLOYE, SAVOIRFAIRE, EMPSF Where INTITULE = '" & Me.Lst_intitule & "' "

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"

Me.lblStats.Caption = DCount("*", "EMPLOYE", SQLWhere) & " / " & DCount("*", "EMPLOYE")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

End Sub

Dans ma requête SQL, dois-je préciser ID_SAVOIRFAIRE et ID_EMPSF ?

Merci

[cafeine]

Hello,

effectivement aucune jointure entre tes tables ...

commence par construire ta requête dans le QBE (mode interfacé) et seulement ensuite récupère le SQL.

[jeje22]

Voilà, j’ai fais une requête pour faire une jointure entre les tables. J’ai récupéré le code SQL que j’ai collé dans ma procédure.
Mais quand je test mon formulaire, j’ai une erreur d’execution 2471, avec « l’objet ne contient pas d’automatisation ‘INTITULE’.


De quoi s’agit-il ?

Option Compare Database

Private Sub Lst_intitule_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub



Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

SQL = "SELECT SAVOIRFAIRE.ID_SAV AS SAVOIRFAIRE_ID_SAV, EMPSAV.ID_SAV AS EMPSAV_ID_SAV, EMPSAV.ID_EMP AS EMPSAV_ID_EMP, EMPLOYE.ID_EMP AS EMPLOYE_ID_EMP, EMPLOYE.NOM FROM SAVOIRFAIRE INNER JOIN (EMPLOYE INNER JOIN EMPSAV ON EMPLOYE.ID_EMP = EMPSAV.ID_EMP) ON SAVOIRFAIRE.ID_SAV = EMPSAV.ID_SAV WHERE INTITULE = '" & Me.Lst_intitule & "'"


SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"

Me.lblStats.Caption = DCount("*", "EMPLOYE", SQLWhere) & " / " & DCount("*", "EMPLOYE")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

End Sub

[cafeine]

Access voudrait savoir à quelle table appartient le champ INTITULE dont tu te sers dans la clause WHERE.

[jeje22]

merci pour l'indication, mais j'ai toujours le même erreur "2471". Ai-je bien complété ma clause WHERE ?

Private Sub Lst_intitule_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub



Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

SQL = "SELECT SAVOIRFAIRE.ID_SAV AS SAVOIRFAIRE_ID_SAV, EMPSAV.ID_SAV AS EMPSAV_ID_SAV, EMPSAV.ID_EMP AS EMPSAV_ID_EMP, EMPLOYE.ID_EMP AS EMPLOYE_ID_EMP, EMPLOYE.NOM FROM SAVOIRFAIRE INNER JOIN (EMPLOYE INNER JOIN EMPSAV ON EMPLOYE.ID_EMP = EMPSAV.ID_EMP) ON SAVOIRFAIRE.ID_SAV = EMPSAV.ID_SAV WHERE SAVOIRFAIRE.INTITULE = '" & Me.Lst_intitule & "' "


SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"

Me.lblStats.Caption = DCount("*", "EMPLOYE", SQLWhere) & " / " & DCount("*", "EMPLOYE")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

End Sub

Merci

[jeje22]

j'ai essayé avec des ( ) , des ! , des . et des [ ], mais je n'y arrive toujours pas !!!


Y en a t-l d'autres ?


Merci