OVH Cloud OVH Cloud

SQL

3 réponses
Avatar
Patrice
Bonjour à tous,

G un p'tit soucis sur SQL en VBA (access97). J'aurais souhaité afficher la
date minimum et la date maximum de mon champs "date" (je sais c pas heureux
comme nom de champ, mais je suis obligé de faire avec :o(((

Voilà le blème :

Dim TableTemp As String
TableTemp = [LmChoixTable].Column(2)

ExprSQL = "SELECT DISTINCT Min[" & TableTemp & "].date AS MinDedate, Max[" &
TableTemp & "].date AS MaxDedate FROM[" & TableTemp & "];"

Ma liste.RowSource = ExprSQL


Merci de votre aide

Patrice

3 réponses

Avatar
Eric
Bonjour,

ExprSQL devrait être :
ExprSQL = "Select Distinct Min([" & TableTemp & "].Date) as MinDedate,
Max([" & TableTemp & "].Date) as MaxDedate FROM [" & TableTemp & "];"

Il manquait les () entourant le champ préfixé par le nom de la table
pour la fonction Min et Max, et un espace après le FROM.

Bonjour à tous,

G un p'tit soucis sur SQL en VBA (access97). J'aurais souhaité afficher la
date minimum et la date maximum de mon champs "date" (je sais c pas heureux
comme nom de champ, mais je suis obligé de faire avec :o(((

Voilà le blème :

Dim TableTemp As String
TableTemp = [LmChoixTable].Column(2)

ExprSQL = "SELECT DISTINCT Min[" & TableTemp & "].date AS MinDedate, Max[" &
TableTemp & "].date AS MaxDedate FROM[" & TableTemp & "];"

Ma liste.RowSource = ExprSQL


Merci de votre aide

Patrice




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
brainburnt
Salut Patrice,

Personnellement je pense qu'appeler ton champ "date" peut être une
source de conflit pour Access à cause du type de donnée "Date".

Tu ne peux pas l'appeler autrerment?


Patrice wrote:
Bonjour à tous,

G un p'tit soucis sur SQL en VBA (access97). J'aurais souhaité afficher la
date minimum et la date maximum de mon champs "date" (je sais c pas heure ux
comme nom de champ, mais je suis obligé de faire avec :o(((

Voilà le blème :

Dim TableTemp As String
TableTemp = [LmChoixTable].Column(2)

ExprSQL = "SELECT DISTINCT Min[" & TableTemp & "].date AS MinDedate, Ma x[" &
TableTemp & "].date AS MaxDedate FROM[" & TableTemp & "];"

Ma liste.RowSource = ExprSQL


Merci de votre aide

Patrice


Avatar
Patrice
Merci à vous 2 cela fonctionne,
Une absence impromptue et imprévue m'a empêché de le faire avant ! Toutes
mes excuses.

Ceci dit pour le champ "date" je suis entièrement d'accord et j'en rfait la
remarque assez souvent, mais hélas...

Patrice


"Patrice" a écrit dans le message de
news:44c5e8f5$
Bonjour à tous,

G un p'tit soucis sur SQL en VBA (access97). J'aurais souhaité afficher la
date minimum et la date maximum de mon champs "date" (je sais c pas
heureux

comme nom de champ, mais je suis obligé de faire avec :o(((

Voilà le blème :

Dim TableTemp As String
TableTemp = [LmChoixTable].Column(2)

ExprSQL = "SELECT DISTINCT Min[" & TableTemp & "].date AS MinDedate, Max["
&

TableTemp & "].date AS MaxDedate FROM[" & TableTemp & "];"

Ma liste.RowSource = ExprSQL


Merci de votre aide

Patrice