Format de date en VBA

Version imprimable

25/10/2023, 05h27
Gr0umpf

Format de date en VBA
Bonjour à tous,
J'ai bien trouvé la réponse à mon problème en fouillant, mais je n'arrive pas à l'appliquer.

J'ai une table contenant des identités (Nom, prénom, date de naissance) ainsi que d'autres renseignements.
A la saisie dans mon formulaire d'une nouvelle entrée, l'identité est recherchée dans la table afin d'indiquer si la personne est déjà connue.
Je me suis rendue compte que cela ne fonctionnait pas toujours, et j'ai vite mis le doigt sur le fait que ça ne fonctionnait pas si la date (saisie format français) pouvait être interprétée au format US ou non.
(Par exemple, le 15/06/2000 sera retrouvé, le 05/06/2000 non).
Donc après quelques recherches, j'ai eu confirmation de cette histoire de format US, j'ai trouvé la fonction Format().
Mais je ne dois pas l'utiliser correctement... Donc je viens quérir un petit coup de main !

Le bout de mon code :
Code:

1 2 strSQL = "SELECT * FROM [Table] WHERE Nom='" & Me.Nom & "' AND Prenom='" & Me.Prenom & "' AND [Date de naissance]=#" & Me.[Date de naissance] & "# "
Merci si vous pouvez m'éclairer là dessus !
25/10/2023, 08h41
loufab

Bonjour,

Plusieurs solutions :

Travailler explicitement avec le format FR, voir la fonction Format().

Code:

strSQL = "SELECT * FROM [Table] WHERE Nom='" & Me.Nom & "' AND Prenom='" & Me.Prenom & "' AND [Date de naissance]=#" & format(Me.[Date de naissance],"dd/mm/yyyy") & "# "

Travailler avec le format de stockage natif des dates. Une date est avant tout un double, c'est l'affichage qui le montre au format date.

Code:

strSQL = "SELECT * FROM [Table] WHERE Nom='" & Me.Nom & "' AND Prenom='" & Me.Prenom & "' AND cdbl([Date de naissance])=#" & cdbl(Me.[Date de naissance]) & "# "

Attention au Null quand on utilise des fonctions.

Cordialement,

ERRATUM :
Il ne faut pas le séparateur de date avec le format numérique :
DONC NON !

Code:

strSQL = "SELECT * FROM [Table] WHERE Nom='" & Me.Nom & "' AND Prenom='" & Me.Prenom & "' AND cdbl([Date de naissance])=#" & cdbl(Me.[Date de naissance]) & "# "

MAIS OUI !

Code:

strSQL = "SELECT * FROM [Table] WHERE Nom='" & Me.Nom & "' AND Prenom='" & Me.Prenom & "' AND cdbl([Date de naissance])=" & cdbl(Me.[Date de naissance]) & ";"

Le copier coller peut poser des problèmes, la preuve.
25/10/2023, 16h01
Gr0umpf

Merci beaucoup, ça fonctionne avec le format ().
J'étais assez proche de ce code au final, je devais mal positionner mes guillemets ou parenthèses..

Peut-être tard pour répondre:

Le meilleur moyen de s'affranchir des problèmes de format de données (ce dont le moteur de base de données ne se soucie pas, et n'a pas à s'en soucier),
est encore de passer par une requête paramétrée (à ne pas confondre avec construire une requête par concaténation).

On définit une requête en dur, sans variables.
Elle est composée de 2 parties:
- La déclaration des paramètres.
- Le corps de la requête proprement dit, qui utilise les paramètres.
On instancie un objet QueryDef.
On fournit les valeurs des paramètres à l'objet QueryDef.
On appelle la methode execute ou OpenRecordset de l'objet QueryDef
On fait les traitements.
On détruit l'objet QueryDef.

Dans l'exemple ci dessous, je declare un paramètre de type DateTime, et j'utilise un ou exclusif dans la clause WHERE pour prendre en charge une valeur null:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Public Sub test() On Error GoTo Error Dim Dt As Date Dt = DateSerial(Year(Now), Month(Now), Day(Now)) Const SQL As String = _ "PARAMETERS DateDesiree DateTime;" & vbCrLf & _ "SELECT Nom, DateEnregistrement" & vbCrLf & _ "FROM TableTest" & vbCrLf & _ "WHERE (DateEnregistrement Is Null And [DateDesiree] Is Null)" & vbCrLf & _ " OR (DateEnregistrement = [DateDesiree] And [DateDesiree] Is Not Null);" Dim Db As DAO.Database Set Db = CurrentDb Dim Qd As DAO.QueryDef Set Qd = Db.CreateQueryDef("TempQuery", SQL) '// Qd.Parameters("DateDesiree").Value = dt Qd.Parameters("DateDesiree").Value = Null Dim Rs As DAO.Recordset Set Rs = Qd.OpenRecordset While Not Rs.EOF Debug.Print Rs.Fields("Nom").Value & " : " & Rs.Fields("DateEnregistrement").Value Rs.MoveNext Wend Db.QueryDefs.Delete Qd.Name Exit Sub Error: Db.QueryDefs.Delete Qd.Name End Sub
Avantages:
Les types de données sont pris en charge, il est inutile de se soucier du format.
Si un type de données ne correspond pas, une exception sera levée.
Les valeurs null sont supportées.
Protège contre les injections SQL.

Désavantage:
plus de code à écrire.

28/12/2023, 08h37
User

Bonjour,

Ça dépend en fait de la finalité du code. Si c'est pour une recherche multi-critère avec affectation de la chaîne SQL comme source d'un sous-formulaire, alors il est plus simple et naturel de composer le code SQL comme proposé par loufab.

Cdlt,
02/01/2024, 23h53
deedolith

Je me permet de réagir:

Je ne propose pas une solution simple, ni naturelle (programmer n'est ni simple, ni naturel), mais une solution fonctionnelle et fiable.

Quand aux cas particuliers, ils doivent rester ce qu'ils sont: Des cas particuliers.
En aucun cas ils ne doivent devenir la norme, ni encourager la paresse (ce que le net fait depuis bien trop longtemps).
03/01/2024, 09h04
User
Pas de souci et bonne année ;)

Si c'est simplement pour tester la présence d'une valeur dans une table alors on peut simplement faire :
Code:

1 2 3 if not rs.EOF then '... End if
Il y a aussi les fonctions de domaine comme dlookup conçue en partie pour ça. mais avec les mêmes inconvénients :aie:

1 pièce(s) jointe(s)

Problème similaire avec une date dans une requête Update

Bonjour,

J'ai une table avec des noms de fichiers et je veux la mettre à jour, en VBA, avec la date de dernière modification du fichier.
J'ài écrit ce qui suit, après avoir cherché la meilleure syntaxe pour les dates (y compris la dernière solution proposée par Loufab):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim strChemin As String Dim fso As FileSystemObject Dim f As File strChemin = "C:\Data\Essai.xlsx" Set fso = New FileSystemObject Set f = fso.GetFile(strChemin) MsgBox "Modification : " & f.DateLastModified DoCmd.RunSQL "UPDATE tblFilDates SET tblFilDates.FilDateMod =#" & cdbl(f.DateLastModified) & "# WHERE (((tblFilDates.FilNom)= ""Essai.xlsx""));" Set fso = Nothing
Que ce soit avec cette solution, ou mes précédents essais, j'ai toujours l'erreur 3075 sur le DoCmd:

Pièce jointe 649031

La solution doit être relativement simple mais je tourne depuis pas mal de temps sans trouver.

Merci d'avance pour votre aide.

Bidule

10/01/2024, 17h14
tee_grandbois

bonjour,
il faut être logique: si tu convertis ta date en double, il ne faut pas mettre les séparateurs (#):

Code:

DoCmd.RunSQL "UPDATE tblFilDates SET tblFilDates.FilDateMod =" & cdbl(f.DateLastModified) & " WHERE (((tblFilDates.FilNom)= ""Essai.xlsx""));"
11/01/2024, 11h19
loufab

C'est ma faute, j'ai fait un copier coller dans mon message et j'ai laissé les séparateurs de date avec une expression numérique.

Mais effectivement, si on recopie du code sur le net sans le comprendre ça pose des problèmes. Je n'ose pas imaginer les résultats dans Chatgpt. :ptdr::ptdr:
11/01/2024, 12h44
Bidule99

Merci tee_grandbois pour la correction, et à Loufab pour sa précision.

En fait, j'avais fait la même erreur et recopié ma précédent ligne de code où il n'y avait pas le Cdbl. J'avais déjà l'erreur 3075 et quand j'ai vu la solution "Cdbl", je n'ai pas fait attention aux #.

Merci encore.

Bidule