Discussion :

[cedric.boucher]

Bonsoir tout le monde

J'aimerais faire ressortir les dates d'une table en fonction de la date d'aujourd'hui

Pour ainsi faire ressortir tous les membres née à la date actuelle ..
Je pense être à deux doigts mais à mon avis une faute au niveau du format de la date du membre.

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
Public Function Anniv_du_jour() As String
 
Dim db_Anniv_du_jour As Database
    Set db_Anniv_du_jour = CurrentDb
 
Dim Anniv_du_jour_req As Variant
Dim Anniv_du_jour_res As String
 
Anniv_du_jour_req = "SELECT prenom_membre,nom_membre,d_naissance_membre" _
& " FROM T_membres" _
& " WHERE Format(d_naissance_membre, "jjmm")= " & Format(Date, "jjmm")
 
Anniv_du_jour_res = db_Anniv_du_jour.CreateQueryDef(vbNullString, Anniv_du_jour_req).OpenRecordset.Fields("prenom_membre")
Anniv_du_jour = Anniv_du_jour_res
 
db_Anniv_du_jour.Close
Set db_Anniv_du_jour = Nothing
 
 
End Function

[tee_grandbois]

bonsoir,
en SQL comme en VBA la langue est l'anglais, le format doit donc l'être également, de plus, Date() étant une fonction, on peut l'utiliser directement dans le code SQL.
Ne pas oublier non plus de doubler les guillemets lorsqu'on les utilise à l'intérieur des guillemets utilisés en tant que séparateurs de texte:

Code VBA :

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

& " WHERE Format(d_naissance_membre, ""ddmm"")= Format(Date(), ""ddmm"")"

autre solution:

Code VBA :

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

& " WHERE Day(d_naissance_membre) = Day(Date()) and Month(d_naissance_membre) = Month(Date())"

[cedric.boucher]

Salut tee_grandbois

Un grand merci pour ta correction.
Pas évident à comprendre tout ça, mais grâce à toute vos remarques j'avance tout doucement jusqu'à mon prochain problème

[tee_grandbois]

certes, mais cette instruction:

Code :

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

Anniv_du_jour_res = db_Anniv_du_jour.CreateQueryDef(vbNullString, Anniv_du_jour_req).OpenRecordset.Fields("prenom")

ne te renverra qu'une seule occurrence (la première), tu n'aura pas les autres prénoms en cas d'enregistrements multiples : est-ce bien ce que tu veux ?

[cedric.boucher]

lol tu devine mes futures problèmes que j'étais en train d'essayer de résoudre.
Non en effet de plus je voudrais que la valeur soit renvoyée dans une zone de liste

[tee_grandbois]

bonjour,
cela change complètement le code …
le code ci-dessous met à jour la propriété "Contenu" (RowSource en VBA) de la zone de liste:

Code :

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

1
2
3
Forms("NomFormulaire").Controls("NomZoneDeListe").RowSource = "SELECT prenom_membre,nom_membre,d_naissance_membre" _
& " FROM T_membres" _
& " WHERE Format(d_naissance_membre, ""ddmm"")= Format(Date(), ""ddmm"")"

la propriété "Origine source" de la zone de liste doit être de type "Table/Requête"
NomFormulaire: à remplacer par le nom du formulaire contenant la zone de liste
NomZoneDeListe: à remplacer par le nom de la zone de liste

si le contenu est mis à jour dans un évènement du formulaire (ce qui est la meilleure méthode), remplacer Forms("NomFormulaire").Controls("NomZoneDeListe").Rowsource par Me.NomZoneDeListe.Rowsource