Discussion :

[Alex_42]

Bonjour,

en utilisant la fonction findfirst sur une Date, j ai l'erreur : Argument non valide qui m'est retournée , et je ne comprends pas d’où vient l'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim db As DAO.Database
 Dim rst As DAO.Recordset
 Dim StrJour As Date
 
 Set db = CurrentDb()
 Set rst = db.OpenRecordset("T_Date", dbOpenDynaset)
 
StrJour = Date
rst.FindFirst StrJour
 
...

je cherche à me positionner sur la première occurrence de la date du jour dans ma table

Edit : ma table T_Date est liée

Merci d'avance pour votre aide.

[madefemere]

Bonjour,

Vous cherchez votre date sur quel champ de votre table ou quelle est la valeur recherchée ?
FindFirst demande un argument du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.FindFirst  "[ChampTableAChercher] = " & ValeurARechercher

Vous ne mettez qu'un argument. Donc normal si ça lève une erreur

Cordialement,

[Alex_42]

ma valeur cherchée se trouve dans la table T_Date effectivement, dans un champ appelé "Date"

du coup la syntaxe serait ?:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
rst.FindFirst  "[Date] = " & strJour

ca a l'air de mieux fonctionner

Merci pour le coup de main !

[madefemere]

Bonjour,

C'est bien par contre je ne pouvais pas laisser passer le fait que vous nommez votre champ "Date", c'est un mot réservé dans Access.
Si vous êtes au début de votre application, je vous conseille de modifier parce que ça peut être source d'erreur dans les codes après.

Bonne continuation et n'oubliez pas de mettre en "RESOLU"

Cordialement,

[Alex_42]

Merci du conseil, mais je n'avais pas nommé ce champ Date, c'était seulement pour simplifier mon explication

par contre j'ai toujours un probleme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
StrJour = Date
    rst.FindFirst "[date] =" & StrJour
    If rst.NoMatch = True Then

Dans mon idée, je parcours le champ date à la recherche d'un match avec Strjour.
si je trouve rien (If rst.NoMatch = True) alors je fais quelque chose, sinon je fais autre chose.
par contre mon test ci-dessus, ne fonctionne pas.

une idée du pourquoi ?

voila le vrai code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim StrJour As Date
 
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("T_Date", dbOpenDynaset)
 
    StrJour = Date
 
    rst.FindFirst "[suivi JPM date] =" & StrJour
    If rst.NoMatch = True Then              'si je ne trouve pas de date dans la table égale à la date du jour
        rst.Edit
        rst.AddNew
        rst("suivi JPM nb") = 1
        rst("suivi JPM date") = StrJour
        rst.Update
        Else                                'si je trouve une date dans la table égale à la date du jour
            rst("suivi JPM nb") = "suivi JPM nb" + 1
    End If

[madefemere]

Re-,

Ces 2 lignes de commandes ne devraient pas "aller" ensemble, vu qu'elles font 2 actions différentes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        rst.Edit
        rst.AddNew

rst.Edit : pour modifier les valeurs
rst.Addnew : pour ajouter un enregistrement.

Donc, c'est soit l'un, soit l'autre à mon avis.

Cordialement,

[Alex_42]

oui, tu as raison .

par contre mon test NoMatch, ne fonctionne toujours pas , dans tous les cas le test me retourne vrai ... même si il y a bien une date identique présente dans la table. une idée?

[madefemere]

Mets rst.Nomatch tout court.

[Alex_42]

Merci pour ton aide, j'ai bien avancé mais j'ai toujours un souci.
je clos ce sujet et j'en ouvre un autre pour précis.