Discussion :

[coqp]

Bonjour,

J'effectue une recherche dans un RecordSet pour vérifier si un enregistrement existe déjà avec la date choisie.

Code :

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

1
2
3
 
strSQL = "[ControleEntree].[ControleEntree_date] = #" & Format$(Me.ControleEntree_date, "mm/dd/yyyy") & "#"
rst.FindFirst strSQL

Certaines dates enregistrées ne sont pas trouvées par ce code. Je me suis rendu compte que les dates concernées sont enregistrées au format "23/12/2020 11:13:49" mais bien affichée "23/12/2020". Les dates pour lesquelles le code fonctionne sont enregistrées au format "23/12/2020" dans la table. (J'ai du modifier qqc peu de temps après la création de la base puisque seules les premiers enregistrements ont le format réduit)

Je pourrais donc corriger le format du champ Date de la table pour qu'il soit enregistré sous "23/12/2020".
Mais je préfèrerais faire en sorte que mon code fonctionne avec les deux types de formats. Comment faire au plus simple ?

Si je me réfère aux infos de Microsoft :
#2/2/2012# Returns only items with a date of Feb 2, 2012.
Ce qui me paraît contradictoire avec ce que j'observe chez moi..

Actuellement, le champ ControleEntree_Date a comme format "Date, réduit". De même pour le champ de saisie de la date dans le formulaire. Le format étendu "23/12/2020 11:13:49" apparaît dans le champ de saisie ou dans la table lorsque je clique sur le champ.

[Zekraoui_Jakani]

C'est le piège classique des dates à cause du format de l'oncle Sam.
Je suggère de garder votre code en utilisant la partie entière des dates.
au lieu :

Code :

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

[Date1] = [Date2]

Utiliser:

Code :

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

int([Date1]) = int([Date2])

[EricDgn]

Bonjour,

Je ne sais pourquoi, mais Int(Date) ne marche pas; il faut utiliser Int(CDbl(Date)).

Code :

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

strSQL = "Int(CDbl([ControleEntree].[ControleEntree_date])) = " & Int(CDbl(Me.ControleEntree_date))

Cordialement.

[coqp]

Merci pour vos réponses ! Le code Int(CDbl(...)) semble fonctionner.
Je ne savais pas qu'on pouvait utiliser ce genre de fonction dans la syntaxe d'une requête SQL..

[EricDgn]

Bonjour,

A noter que s'il s'agit de simplement vérifier qu'une date n'a pas déjà été utilisée, la fonction DCount() pourrait être utilisée:

Code :

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

1
2
3
4
5
6
strSQL = "Int(CDbl([ControleEntree].[ControleEntree_date])) = " & Int(CDbl(Me.ControleEntree_date))
If DCount("*","NomSource",strSQL) > 0 Then
    '--- date déjà utilisée
Else
    '--- date pas encore utilisée
End If

où NomSource est le nom de la table ou de la requête concernée.

Cordialement.

[coqp]

Merci EricDgn pour cette précision.
Je suppose que ceci fonctionne aussi si strSQL inclut des conditions sur plusieurs champs différents (ce qui est mon cas en réalité) ? C'est peut-être plus simple effectivement. Quoiqu'en terme de lignes de code, la solution FindFirst me va bien aussi.

[EricDgn]

Oui, cela fonctionne aussi si les conditions sont multiples et sur plusieurs champs.
Cordialement.