cs_Darm
Messages postés5Date d'inscriptionjeudi 10 avril 2008StatutMembreDernière intervention 7 août 2009
-
7 août 2009 à 12:16
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 2011
-
7 août 2009 à 12:59
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