erreur d'exécution 3001

Le
Vic
Bonjour,
voici mon code :

Dim bdsae As DAO.Database
Dim tabfiche As DAO.Recordset
Dim tablocationvoiture As DAO.Recordset

Dim IdxLoop As Index
Dim suivibud As Form
Dim varprojet As String

Set bdsae = CurrentDb()
Set tabfiche = bdsae.OpenRecordset("fiche_analytique")
Set tablocationvoiture = bdsae.OpenRecordset("location_voiture")
Set suivibud = Forms!suivi_budgétaire
varprojet = suivibud!No_projet_gp

tablocationvoiture.MoveFirst
tablocationvoiture.FindFirst varprojet
If tablocationvoiture.NoMatch Then
MsgBox "Aucun enregistrement trouvé"
Else
MsgBox "enregistrement trouvé"
End If

Le système me renvoit le message suivant sur la ligne du FindFirst:
Erreur d'exécution 3001: Argument non valide
J'ai passé a vérifié dans les références mais je ne trouve pas
Merci beaucoup pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JLCan
Le #6390021
Salut!

¤ Ta variable varProjet est mal structuré; essaie quelque chose comme:
varProjet = "NoProjetGp = " & suivibud!No_projet_gp;

¤ Ici j'ai supposé que le champ scruté se nommait 'NoProjetGp '.

Bye!

--
JLCan



Bonjour,
voici mon code :

Dim bdsae As DAO.Database
Dim tabfiche As DAO.Recordset
Dim tablocationvoiture As DAO.Recordset

Dim IdxLoop As Index
Dim suivibud As Form
Dim varprojet As String

Set bdsae = CurrentDb()
Set tabfiche = bdsae.OpenRecordset("fiche_analytique")
Set tablocationvoiture = bdsae.OpenRecordset("location_voiture")
Set suivibud = Forms!suivi_budgétaire
varprojet = suivibud!No_projet_gp

tablocationvoiture.MoveFirst
tablocationvoiture.FindFirst varprojet
If tablocationvoiture.NoMatch Then
MsgBox "Aucun enregistrement trouvé"
Else
MsgBox "enregistrement trouvé"
End If

Le système me renvoit le message suivant sur la ligne du FindFirst:
Erreur d'exécution 3001: Argument non valide
J'ai passé a vérifié dans les références mais je ne trouve pas...
Merci beaucoup pour votre aide.



Publicité
Poster une réponse
Anonyme