Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

probleme en vba avec la requete like

1 réponse
Avatar
Stef
bonjour,
j'ai un probleme avec une procedure evenementielle
voici le code de ma requete :

Dim Rst As New ADODB.Recordset
Dim str As String
str = "SELECT TOP 1 * FROM TabArticle WHERE numero_article
like '" & [Form_Art]![art_type] & "*" & [Form_art]!
[art_an] & "'"

MsgBox "debug : la string est " & str

' la requete obtenue est correcte du point de vue SQL
' MsgBox "DEBUG : requete SQL est " & str

Rst.Open str, CurrentProject.Connection, adOpenStatic,
adLockOptimistic
MsgBox "DEBUG : on a termine la requete the result is : "
& Rst.Fields("numero_article")

et la derniere Box ne remonte aucun numero, alors que la
requete SQL suivante me renvoie le resultat correcte :

SELECT TOP 1 TabArticle.Numero_article
FROM TabArticle
WHERE ((([TabArticle]![Numero_article]) Like [Formulaires]!
[art]![art_type]+"*"+[Formulaires]![art]![art_an]))
ORDER BY TabArticle.Numero_article DESC;

le probleme ne provient pas des champs du formulaire mais
bien de l'operateur like et *,
quelqu'un aurait il une idee pour resoudre ce probleme de
recherche.

1 réponse

Avatar
Pierre CFI [mvp]
re
tu change de pseudo a chaque questions ???
mets çà

il faut savoir d'ou tu lances tes codes , méme question pour tes INSERT

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Stef" a écrit dans le message de news: 3d6101c3e327$02d30780$
bonjour,
j'ai un probleme avec une procedure evenementielle
voici le code de ma requete :

Dim Rst As New ADODB.Recordset
Dim str As String
str = "SELECT TOP 1 * FROM TabArticle WHERE numero_article
like '" & [Form_Art]![art_type] & "*" & [Form_art]!
[art_an] & "'"

MsgBox "debug : la string est " & str

' la requete obtenue est correcte du point de vue SQL
' MsgBox "DEBUG : requete SQL est " & str

Rst.Open str, CurrentProject.Connection, adOpenStatic,
adLockOptimistic
MsgBox "DEBUG : on a termine la requete the result is : "
& Rst.Fields("numero_article")

et la derniere Box ne remonte aucun numero, alors que la
requete SQL suivante me renvoie le resultat correcte :

SELECT TOP 1 TabArticle.Numero_article
FROM TabArticle
WHERE ((([TabArticle]![Numero_article]) Like [Formulaires]!
[art]![art_type]+"*"+[Formulaires]![art]![art_an]))
ORDER BY TabArticle.Numero_article DESC;

le probleme ne provient pas des champs du formulaire mais
bien de l'operateur like et *,
quelqu'un aurait il une idee pour resoudre ce probleme de
recherche.