Comparer value Combox

Résolu
Signaler
Messages postés
16
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
17 janvier 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,

Comment puis-je vérifier si la valeur dans une combox est égale à la valeur dans un tableau pour éviter la multiplicité.
Le code suivant:

mobjrec.SQL = "SELECT * From Pans where
"Panou='" & Combo7.ItemData(Combo7.ListIndex) & "'"
mobjrec.RSOpen
If (rst.RecordCount > 0) Then
MsgBox "Existe deja !!!", vbInformation, "Err"


Error 13
Type mismatch

Merci beaucoup!

3 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,

itemdata? pourquoi faire...
et y'aurait pas un problème de guillemets?


mobjrec.SQL = "SELECT * From Pans where Panou='" & replace(Combo7.text, "'", "''") & "';" 


++
[hr]
Messages postés
16
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
17 janvier 2010

Il fonctionne mais lorsque j'insère une nouvelle condition

Error : expected end of statement

mobjrec.SQL "SELECT INCHIRIERI.IDInchiriere, PANOURI.CodPanou FROM PANOURI INNER JOIN INCHIRIERI ON PANOURI.IdPanou INCHIRIERI.Panou where  ((Panouri.codPanou ='" & Replace(Combo7.Text, "'", "''") & "';") and (DataInchirierii=# " & DTPicker1.Value & "#"))


Merci!!!
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
normal, tu as laissé le ; final avant la fin
et en plus tu t'es trompé dans les parenthèses

c'est bien ce qu'indique le message d'erreur

mobjrec.SQL "SELECT INCHIRIERI.IDInchiriere, PANOURI.CodPanou FROM PANOURI INNER JOIN INCHIRIERI ON PANOURI.IdPanou INCHIRIERI.Panou WHERE (Panouri.codPanou = '" & Replace(Combo7.Text, "'", "''") & "') AND (DataInchirierii = #" & DTPicker1.Value & "#);"