Discussion :

[bloichot]

Au secours, je flanche : je veux lancer un formulaire depuis une requete VBA.
j'ai une liste déroulante qui me renvoi un ID et je fais ma requête en prennant cet ID en critère. ça marche en requete SQL, mais pas en vba. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Modifiable325_AfterUpdate()
    stDocName = "Contact_Org"
    SQLdep = " SELECT DISTINCT RequeteTOTALE.T_Contact.ID_Contact "
    SQLdep = SQLdep & "FROM RequeteTOTALE.T_Contact LEFT JOIN RequeteLIEN ON "
    SQLdep = SQLdep & "RequeteTOTALE.T_Contact.ID_Contact = RequeteLIEN.T_Contact.ID_Contact "
    SQLdep = SQLdep & "WHERE RequeteLIEN.L_Lien.ID_Lien = "
    MonSQL = SQLdep & Me.Modifiable325 & " ORDER BY RequeteTOTALE.T_Contact.ID_Contact ; "
    DoCmd.OpenForm stDocName, acNormal, , MonSQL
End Sub

j'ai même réduit la requête au minimum pour faire un test et toujours rien. avez-vous une idée. Merci

[mikeGo20]

ton SQL semble OK ....
sauf la formulation d'ouverture du formulaire ....

je reformulerais ainsi ...

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim critere as String
 
SQLdep = "SELECT DISTINCT RequeteTOTALE.T_Contact.ID_Contact " _
    & "FROM RequeteTOTALE.T_Contact LEFT JOIN RequeteLIEN ON RequeteTOTALE.T_Contact.ID_Contact = RequeteLIEN.T_Contact.ID_Contact " _
    & "ORDER BY RequeteTOTALE.T_Contact.ID_Contact;"
 
critere="RequeteLIEN.L_Lien.ID_Lien =" & Me.Modifiable325 
DoCmd.OpenForm stDocName, acNormal, , critere

en supposant que SQLdep alimente la "Source" du formulaire

[mikeGo20]

Je m'intéroge sur l'appellation d'un de tes champs : T_Contact.ID_Contact

que tu retrouves dans les tables (ou requetes)
RequeteTOTALE et RequeteLIEN

Code :

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

SELECT DISTINCT RequeteTOTALE.T_Contact.ID_Contact  ....

je crains (mais pas certain ??? !!!! ) que VB n'aimes point cette forme de nomenclature.

Aussi, ce serait peut-être à propos de remplacer par quelques choses de plus simples à digérer, tel que "T_Contact_ID"

UN AUTRE AVIS SUR LA QUESTION ???

[faressam]

Pour récuperer la Valeur de ta liste défilante que je suppose se trouve sur ton Formulaire, utilise ça

Code :

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

 " & Me!NBRE_JOURS_CONGE.Value & "

avec le guillemets si c'est une Chaîne de Caractère, si numérique tu enlèves les Guillemets.

[bloichot]

j'ai essayé de modifier la requete pour la faire aller dans ton sens, mikeGo20. mais je n'y arrive pas non plus. pour les champs trop long puisqu'il s'agit de requetes, j'ai essayé ça :

Code :

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

idCont = "RequeteTOTALE.T_Contact.ID_Contact"

mais ça ne marche pas non plus. Je ne sais pas comment rendre le nom de champ plus simple puisqu'il est issue de requetes dont je me sert.
Enfin pour faressam, je n'ai pas de souci pour récupérer la valeur de ma liste, mais bien pour retrouver les ID_Contact qui sont en relation avec cette valeur.
comme dit mikeGo20, ma requête est bonne, mais une fois en code, access me la renvoie avec l'erreur 3075

[bloichot]

Quelqu'un aurait-il une idée ?
Je n'y arrive toujours pas : j'ai ma liste : L_Lien, ma table contact : T_Contact et ma relation reprennant un ID_Contact et un ID_Lien (R_Lien).
je voudrais en selectionnant un ID_Lien, lancer un formulaire selectionnant les ID_Contact qui sont en relation avec.
Pouvez vous m'aider