Voila au taf on ma demander de refaire un formulaire sql, mais voila, j'ai un problème sur une ligne et j'arrive pas a comprendre ce qu'il ne vas pas.
voici le code en question :
Lorsque j'essaye de changer le code pour par exemple
J'ai un message d'erreur :
Erreur d’exécution '3075':
Erreur de syntaxe (opérateur absent) dans l'expression "Medias!NumArticle<>0And Medias!Longueur >="
Et le débogueur me surligne en jaune cette ligne :
[/code]Me.lblStats.Caption = DCount("*", "Chutes", SQLWhere) & " / " & DCount("*", "Chutes")[/code]
je suis une quiche en SQL, vous auriez une idée?
voici le code en question :
Code:
Private Sub RefreshQuery() Dim SQL As String Dim SQLWhere As String SQL = "SELECT NumArticle, Matiere, Couleur, Longueur, Largeur, Epaisseur FROM Medias Where Medias!NumArticle <> 0 " If Not Me.chkMatiere Then SQL = SQL & "And Medias!Matiere = '" & Me.cmbRechMatiere & "' " End If If Not Me.chkCouleur Then SQL = SQL & "And Medias!Couleur = '" & Me.cmbRechCouleur & "' " End If If Not Me.chkLongueur Then SQL = SQL & "And Medias!Longueur like '*" & Me.txtRechLongueur & "*' " End If If Not Me.chkLargeur Then SQL = SQL & "And Medias!Largeur like '*" & Me.txtRechLargeur & "*' " End If If Not Me.chkEpaisseur Then SQL = SQL & "And Medias!Epaisseur like '*" & Me.txtRechEpaisseur & "*' " End If SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1)) SQL = SQL & ";" Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias") Me.lstResults.RowSource = SQL Me.lstResults.Requery End Sub
Code:
SQL = SQL & "And Medias!Longueur >= " & Me.txtRechLongueur
Erreur d’exécution '3075':
Erreur de syntaxe (opérateur absent) dans l'expression "Medias!NumArticle<>0And Medias!Longueur >="
Et le débogueur me surligne en jaune cette ligne :
[/code]Me.lblStats.Caption = DCount("*", "Chutes", SQLWhere) & " / " & DCount("*", "Chutes")[/code]
je suis une quiche en SQL, vous auriez une idée?
Commentaire