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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLCan
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.
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.
¤ 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.