Discussion :

[SnakeCharmer]

Bonjour,

Dans un formulaire, j'utilise un bouton de commande pour exécuter une requête deselection. dans ce même formulaire, j'ai une liste déroulante que j'ai liée a un des champs de cette requête.
Comment puis-je faire pour que les valeurs dans la liste déroulante soient mises a jour aprés execution de la requête ?

[ClaudeLELOUP]

sans doute ajouter ceci à la suite de l'évènement sur le bouton de commande :

Code :

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

Me.LeNomDeLaListe.requery

[SnakeCharmer]

Non ça ne marche pas. il me demande tjs les paramètres de la requête quand je veux dérouler la liste

J'ai essayé : Me.MaListe.Value = rs20("Monchamps").Value
avec rs20 qui renvoie a ma requête, mais il ne place qu'une seule valeur dans ma liste (et demande tjs les paramètres de requête en si je veux la dérouler)

[SnakeCharmer]

Aprés quelques recherches, j'ai pondu ça :

Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click

Diam_int = Me![DiamInt]
Diam_ext = Me![DiamExt]
Largeur = Me![Largeur]
Modul = Me![Module]
Nbredents = Me![NombreDents]
TypeDenture = Me![TypeDenture]
TypePiece = "Roue"


strSQL = "SELECT [Caractéristiques Pièces].[Numéro Article] FROM [Caractéristiques Pièces] "
strSQL = strSQL & "WHERE ((([Caractéristiques Pièces].[Type Pièce])=[TypePiece]) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].Module)=[Modul]) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Nombre de dents]) Between [Nbredents]*0.9 And [Nbredents]*1.1) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Type Denture])=[TypeDenture]) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Diamètre Intérieur]) Between [diam_int]*0.9 And [diam_int]*1.1) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Diamètre Extérieur]) Between [diam_ext]*0.9 And [diam_ext]*1.1) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].Largeur) Between [largeur]*0.9 And [largeur]*1.1))"

Me.Modifiable22.RowSource = strSQL
Me.Modifiable22.Requery
end sub

Mais pas de résultat . et il demande toujours les paramètres de requetes

[ClaudeLELOUP]

Ta syntaxe est incorrecte ! Les champs contenant du texte doivent être encadrés de quotes ("champTexte") par exemple :

Code :

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

strSql = strSql & "WHERE ((([Caractéristiques Pièces].[Type Pièce])=""" & Me.[TypePiece] & """) "

[SnakeCharmer]

Voila mon code modifié :

strSQL = "SELECT [Caractéristiques Pièces].[Numéro Article] FROM [Caractéristiques Pièces] "
strSQL = strSQL & "WHERE ((([Caractéristiques Pièces].[Type Pièce])= """ & [TypePiece] & """) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].Module)=""" & Me![Module] & """) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Nombre de dents]) Between """ & Me![NombreDents] & """ * 0.9 And """ & Me![NombreDents] & """ * 1.1) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Type Denture])=""" & Me![TypeDenture] & """) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Diamètre Intérieur]) Between """ & Me![DiamInt] & """ * 0.9 And """ & Me![DiamInt] & """ * 1.1) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].[Diamètre Extérieur]) Between """ & Me![DiamExt] * 0.9 & """ And """ & Me![DiamExt] & """ * 1.1) "
strSQL = strSQL & "AND (([Caractéristiques Pièces].Largeur) Between """ & Me![Largeur] & """ *0.9 And """ & Me![Largeur] & """ *1.1)) "

Me.Modifiable22.RowSource = strSQL
Me.Modifiable22.Requery

La requete a l'air de s'éexcuter. Par contre, lorsque je veux dérouler la liste, un msgbox apparait : "type de donnée incompatible dans l'expression du critère". :/ Le missant !

[ClaudeLELOUP]

Suggestion pour trouver l'erreur :
-ajoute ceci à ton code

Code :

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

Debug.print  strSQL

-exécute
-récupère le contenu de strSQL dans la fenêtre d'exécution
-insère ce sql dans une requête
-examine ce que cela donne en mode design.
Cela devrait te permettre de "voir" l'erreur.