Erreur de syntax ? ou de Dim ?? plz need help [Résolu]

Signaler
Messages postés
5
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
7 août 2009
-
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
-
Bon j'en peu plus j'ai beau regarder partout, j'ai beau essayé plein de truc je comprend pas chez les autres ça marche mais pas chez moi, c'est pourquoi je pense que j'ai du oublier un truc, mais quoi donc ???

Merci d'avance pour votre aide.

Je suis sous Access 2007
Mon problème, je reçois la fameuse erreur "too few parameters expected 1"
J'ai deja essayé plein de truc vu sur des forum, pcq je suis loin d'etre le seul à l'avoir eu, mais je sais pas ça marche pas chez moi


Function champoktest()

Dim devnameVal As String
Dim db As DAO.Database
Dim rst As Recordset
Dim devnameeval As String

DoCmd.Close acTable, "site"

Set db = CurrentDb
    '''' recuperation du champ
devnameVal = Forms![champOK].[devname].Value
    '''' definition de la requete sql
sql1 = "SELECT site.site FROM site Where " & devnameVal & " Like site.site & '*'"
    '''' execution de la requete
Set rst = db.OpenRecordset(sql1, adOpenDynamic, adLockReadOnly)
    '''' on verifie si site a la bonne syntax
If rst.RecordCount = 0 Then
    '''' si ce n'est pas le cas message d'erreur
MsgBox ("La Syntax du site n'est pas bonne dans " & devnameVal)

Else
rstfield = rst.Fields(0).Name
MsgBox (& rstfield & " ok Dans " & devnameVal)
End If
End Function




Merci d'avance

2 réponses

Messages postés
5
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
7 août 2009

Ok ben probleme résolu, ça fait deux jours que je suis dessus, et la je tombe sur une page je test et ça marche la soluce :

"SELECT site.site FROM site Where '" & devnameVal & "' Like site.site & '*'"


Guillemets simple avant " & devnameVal & "
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
31
Salut

Test ta requete dans access directement ca permet de gagner du temps

SELECT site.site FROM site Where " & devnameVal & " Like site.site & '*'"

est faux

SELECT site.site FROM site Where " & devnameVal & " Like 'site.site*'"

Est normalement la solution