Comparer value ComboxRésolu

Question

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!

PCPT · Accepted Answer

salut,

itemdata? pourquoi faire...
et y'aurait pas un problème de guillemets?


mobjrec.SQL = "SELECT * From Pans where Panou='" & replace(Combo7.text, "'", "''") & "';" 

++
[hr]

miomimi · Answer

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!!!

PCPT · Answer

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 & "#);"

Comparer value Combox

3 réponses

Votre réponse

Discussions similaires