Message d'erreur : data type mismatch in criteria expression ?

Question

Bonjour &#224; tous,



J'ai un petit probleme avec mon prog, je voudrais faire une recherche
ds ma base de donn&#233;e en passant comme crit&#233;re de recherche un n&#176; que
j'aurais rentrer ds un Text avec affichage des reponses ds une listbox
( en fait ma base de donn&#233;e rescence les probleme informatiques d'un
lyc&#233;e donc par exemple je tape ds mon Text le n&#176; de la classe dont je
recherche les problemes ) Le probleme est qu'a chaque fois le message
d'erreur indiquer ds le sujet ( en fran&#231;ais type de donn&#233;es
incompatible ds le crit&#233;re d'expression ou un truc comme &#231;a) et il me
met en surbrillance la fonction data.refresh. Je vous met le bout de
code qui pose probleme :



'Declaration des variable

Public salle

Public salle2



'Bouton ok sur lequel j'appuie une fois le n&#176; de la salle taper

Private Sub Command2_Click()

If Text1.Text = "" Then

msg = MsgBox("veuillez entrer le N&#176; de la salle a rechercher", vbOKOnly)

Else

salle = Text1.Text

recherche (salle)

End If

End Sub





'Fonction recherche

Private Sub recherche(salle As Integer)

Dim entree

Dim entree2

Dim entree3

Dim requete

Dim i



salle2 = salle

Lstpb.Clear



requete "SELECT * FROM Intervention where Intervention.Salle " & salle2 & " order by date"

Dataconsul.RecordSource = requete

Dataconsul.Refresh

i = 1



Do While Dataconsul.Recordset.EOF = False



entree = " - " & Dataconsul.Recordset.Fields(1) & " Probleme : " & Dataconsul.Recordset.Fields(6)

entree2 =
"                      
Solution : " & Dataconsul.Recordset.Fields(7)

entree3 = " "

Lstpb.AddItem entree

Lstpb.AddItem entree2

Lstpb.AddItem entree3

i = i + 1



Dataconsul.Recordset.MoveNext



Loop

End Sub



Merci d'avance pour votre aide

cs_Jack · Answer

Salut
Il est possible que ce soit &#224; cause de la requ&#232;te SQL.
Est-ce que "Salle2" est de type num&#233;rique ?
Si c'est du texte, il faut penser &#224; l'encadrer avec des '
... where Intervention.Salle = '" & salle2 & "' order by date"

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)

neo_tsubasa · Answer

Salle2 est num&#233;rique c'est le n&#176; de la salle dont tu recherche les problemes

Message d'erreur : data type mismatch in criteria expression ?

2 réponses

Discussions similaires