Discussion :

[thiefer]

Bonjour, c'est sûrement benêt comme tout mais je planche depuis un moment sans trouver la solution.
Je fais une sélection sur date début / date fin ou sur toutes la base via un groupe d'option.
Si sélection de date à date, affichage des champ de saisie dates et affichage en valeur par défaut comme date début la date la plus ancienne de ma bdd.

C'est sur ce dernier point que je sèche complet

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
21
22
Private Sub opt_analyse_AfterUpdate()
 
Dim intOpeChamp As Integer
Dim SQL         As String
 
intOpeChamp = Me.opt_analyse
 
    Select Case intOpeChamp
        Case 1 ' Toutes les données
'Je met tous les .visible à False, je vous fait grâce du code ;-)
 
       Case 2 ' Sélection de date à date
'Je met tous les .visible à True, je vous fait grâce du code ;-)
 
               SQL = "SELECT Min([tbl_donnees].[date]) AS datedeb FROM tbl_donnees"   ' Sélection de la plus ancienne date en bdd
 
 
                Me.txt_datedeb.Value = SQL
' j'ai aussi testé l'affectation sans le .Value
 
    End Select
End Sub

Malheureusement tout ce que j'obtiens (et le pire c'est qu'on va me dire que c'est normal et tout bête, et moi, je crise un peu là !!!), c'est l'affichage de ma formule sql dans mon champ txt_datedeb et non pas le résultat de la requête.

Si une bonne âme voulait prendre quelques secondes pour voler à mon secours...

Merci par avance

TF

[Pierre Fauconnier]

Bonsoir

Puisqu'on va te le dire, ... en vérité je te le dis... C'est normal.

Tu passes une chaine de caractères à un textbox, il affiche... la chaine de caractères...!

Ce n'est pas parce que la chaine s'appelle SQL qu'un coup de baguette magique va la transformer en requête SQL.

Via ADO, une bonne méthode pourrait être celle-ci

Code :

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

1
2
 
Me.txt_datedeb.Value = currentproject.connection.execute(SQL)!datedeb

[thiefer]

Salut Pierre et mille mercis pour ton aide si rapide et efficace.
A vrai dire, ne sachant pas ce qu'est ADO, j'ai pris ta ligne de code et l'ai collé dans mon vba. Ca fonctionne parfaitement.

@ bientôt

TF

[Pierre Fauconnier]

En fait, pour que tu ne ne meures pas idiot...

La chaine SQL que tu as créée doit être interprétée, car c'est en fait une "ligne de code" en langage SQL. Il faut donc utiliser une technologie qui comprend ce langage. Activex Data Object est une de ces technologies, installée par défaut sur Access à partir de 2000 (si ma mémoire est bonne).

Bonne continuation.

[thiefer]

Ah boooonnnnn !!!

C bcp + clair comme ça, y'a pas, si si !!!


Merci en tous les cas,
même si je suis pas trop pressé de passer l'arme à gauche

@

TF