Discussion :

[KonTiKI]

Bonjour à tous.

Pour info j'utilise acces 2003, mais je ne pense pas que ceci interfère.

Etant assez nul en SQL, je crée une requète et j'utilise en principe le code SQL dans le corps de mon programme. J'ai dans une table (2016TELE) les champs suivants, parmi d'autres : an, mois et jour et je souhaite connaître la dernière date enregistrée.

Pour ceci j'ai crée une requête en utilisant la fonction cdate pour extraire dans un seul champ (appelé date) le dernier jour enregistré.

Cette requète fonctionne parfaitement bien dans l'UI. En voici la syntaxe :

Code sql :

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

SELECT Last(CDate([an] & "/" & [mois] & "/" & [jour])) AS [Date] FROM 2016TELE;

J'intègre ce code dans mon programme comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim db As Database
    Dim qdefDernierJour As QueryDef
    Dim rs1 As Recordset
    Set db = CurrentDb
    Set qdefDernierJour = db.CreateQueryDef("")
    With qdefDernierJour
        .SQL = "SELECT Last(CDate([an]& " / " & [mois] & " / " & [jour])) AS [Date]FROM 2016TELE"
 
        Set rs1 = .OpenRecordset
        rs1.MoveFirst
 
    End With

Et là, j'ai le message suivant : erreur d'éxécution 13, incompatibilité de type.

Un test avec : .SQL = "SELECT * FROM 2016TELE" passe sans problème. Il me semble donc qu'il peut s'agir d'un problème d'interprétation avec la fonction Cdate() dans la partie .SQL.

Sauriez vous comment écrire correctement ce query ?

Par avance, merci.

[helas]

Bonjour,
Il semble qu'il y ait des espaces dans " / "
les supprimer
et la date est inversée, utiliser cdate(DateSerial(an,mois,jour))

[Jeannot45]

D'accord avec Helas sur les espaces en trop au niveau de "/". Par contre il n'est pas nécessaire d’utiliser la fonction DateSerial puis qu'il y a déjà une concaténation de la date dans la syntaxe.
J'ai relevé dans ta syntaxe deux manques d'espaces :

Code :

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

.SQL = "SELECT Last(CDate([an] & "/" & [mois] & "/" & [jour])) AS [Date] FROM 2016TELE"

Bonne continuation

[KonTiKI]

Merci pour votre aide.

Malheureusement, ce n'est pas cela. Les espaces ont ajoutés par access lui-même. Lorsque je les enlève, il les remet

Par acquis de conscience, j'ai aussi tenté le dateSerial, sans plus de résultat.

Je me souviens d'avoir déjà rencontré ce type de problème. Il me semble que cela se résolvait par une multiplication des guillemets ou l'ajout d'une apostrophe. Ca pourrait d'ailleurs être en lien avec ce problème d'espace autoimplémenté.

Mais j'ai essayé moult combinaisons sans y arriver.

Si vous avez d'autres idées, je suis preneur.


[Modif]

Suite à votre remarque et au raisonnement auquel ça m'a conduit, j'ai fini par trouver la syntaxe qui va bien

La voici pour ceux qui seraient confrontés au même problème :

Code :

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

.SQL = "SELECT Last(CDate([an] & ""/"" & [mois] & ""/"" & [jour])) AS [Date]FROM 2016TELE"

En fait, il faut bien doubler les guillements autour de chaque signe de fraction, ce qui élimine ainsi l'espace qu'access auto-crée.

[Invité]

Bonjour

Tes données [An],[mois] et [jour] sont communs ?

Sont elles formatés correctement, mois sur deux caractères par exemple.

Mets avant l'erreur ce code :

Code :

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

MsgBox "SELECT Last(CDate([an] & "/" & [mois] & "/" & [jour])) AS [Date] FROM 2016TELE"

Et regardes si la date est vraiment formaté comme dans le champ, de plus utilisé [Date] est très mauvais, changer le nom de l'alliace.

De plus les différents types de données sont elles compatibles Date pour Date, etc...

Philippe

[KonTiKI]

Merci pour cette réponse. Dans le même temps j'ai modifié mon post précédent pour y donner la solution.

de plus utilisé [Date] est très mauvais, changer le nom de l'alliace.

J'adhère à ce propos à 100%, je l'avais déjà fait, mais dans la solution postée je l'ai laissé pour garder une continuité.