Problem visual basic Erreur 3061 trop peu de paramètre 1 attendu

Signaler
Messages postés
2
Date d'inscription
lundi 16 mars 2020
Statut
Membre
Dernière intervention
16 mars 2020
-
olivierCLESSE
Messages postés
2
Date d'inscription
lundi 16 mars 2020
Statut
Membre
Dernière intervention
16 mars 2020
-
Bonjour, je rencontre se probléme sur un base de donnée Access.

Je précise que j'y connais rien du tout, mon collègue à construit cette base, depuis il à quitté la société.

Nous avons juste changer de version d'excel entre temps de serveur la base de donnée excel.

Voici le message que j'ai en surligné jaune j'imagine que cela correspond à l'erreur.
Set ResSQL = Db.OpenRecordset(ReqSQL, dbOpenSnapshot)

et voici le programme en entier

Private Sub Rechercher()

FermeEtat

If (IsNull(Form_Formulaire_Recherche.ValRecherche.Value)) Then
MsgRetour = MsgBox("Veuillez saisir un code d'article !!!", vbOKOnly + vbExclamation, "Erreur de saisie")
Else
ValRech = Form_Formulaire_Recherche.ValRecherche.Value
' Requête de recherche de l'article
Set Db = CurrentDb
' Détermine le code SQL en fonction de la méthode de recherche
ReqSQL = "SELECT COUNT(*) AS nbRes FROM EPDM_DATABASE WHERE EPDM_DATABASE.lbcodart='" & ValRech & "'"

' Exécute la requête
Set ResSQL = Db.OpenRecordset(ReqSQL, dbOpenSnapshot)
If Not ResSQL.EOF Then
If ResSQL.Fields("NbRes") > 0 Then
If ResSQL.Fields("NbRes") > 1 Then
MsgRetour = MsgBox(ResSQL.Fields(0) & " articles trouvés." & Chr(13) & Chr(13) & "Modifiez vos critères de sélection !!!", vbOKOnly + vbExclamation)
Else
AfficheEtat
ValRech = 0
End If
Else
MsgRetour = MsgBox("Ce code article n'existe pas dans EPDM !!!", vbOKOnly + vbExclamation, "Pas de résultat")
End If
Else
MsgRetour = MsgBox("Ce code article n'existe pas dans EPDM !!!", vbOKOnly + vbExclamation, "Pas de résultat")
End If
ResSQL.Close
Db.Close
End If

End Sub


merci pour votre aide

2 réponses

Messages postés
15146
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
5 avril 2020
1 248
Bonjour,

changer de version d'excel
Sans changer version Access ou changement de version Office (Excel, Access, etc...)
Messages postés
2
Date d'inscription
lundi 16 mars 2020
Statut
Membre
Dernière intervention
16 mars 2020

Bonjour merci pour votre intérêt,
alors entre temps nous sommes passé sur office 365. mais nous n'avions pas de soucis avec de changer de serveur, avec nouvel adresse IP etc...