Discussion :

[Culture]

Bonjour,

Est-il possible de créer un formulaire basé sur une table contenant des dates de naissance et qui m’indiquerait un anniversaire à la date adéquate ?

Merci,

[Alexj51]

C'est à dire que tu veux que quand tu lance ton formulaire, il check si ce n'est pas l'anniversaire de quelqu'un aujourdui dans ta Base de donnée?

[random]

Code :

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

1
2
3
SELECT nom, prénom,  "bon anniversaire" AS mess
FROM matable
WHERE Month([datenaiss])=Month(Now())  AND Day([datenaiss]))=Day(Now());

puis formulaire

[Culture]

C'est à dire que tu veux que quand tu lance ton formulaire, il check si ce n'est pas l'anniversaire de quelqu'un aujourdui dans ta Base de donnée?

Oui, c’est bien ça Alexj51. je vais essayer ce que me propose random et je vous tiens au courant.

Merci d’avance

[Alexj51]

Comme random te la dit, il te suffit d'utiliser sa requete:
Avant, tu place un controle listbox dans don formulaire

Code :

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

1
2
3
4
5
6
7
8
 
dim strSQL as string
strSQL= "
SELECT nom, prénom,  "bon anniversaire" AS mess
FROM matable
WHERE Month([datenaiss])=Month(Now())  AND Day([datenaiss]))=Day(Now());"
listbox.RowSource = sqlselect
listbox.Requery

Voila et ta listbox se charge avec les nom prenom date d'anniv

[Culture]

Comme random te la dit, il te suffit d'utiliser sa requete:
Avant, tu place un controle listbox dans don formulaire

Code :

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

1
2
3
4
5
6
7
8
 
dim strSQL as string
strSQL= "
SELECT nom, prénom,  "bon anniversaire" AS mess
FROM matable
WHERE Month([datenaiss])=Month(Now())  AND Day([datenaiss]))=Day(Now());"
listbox.RowSource = sqlselect
listbox.Requery

Voila et ta listbox se charge avec les nom prenom date d'anniv

En fait mon application est en Anglais et j’ai donc :

Table = 1_Tbl_Pilots
Champ = First name
Champ = Last name
Champ = Date of Birth
Donc, j’ai tout simplement remplacé les appellations et la requête me donne un message d’erreur quand je veux la sauvegarder.
Sinon, puis-je envoyer un petit exemple via mail à l’un des vous deux qui peut me le faire et me le retourner par après ?

Merci d’avance les mecs

[cafeine]

Comme random te la dit, il te suffit d'utiliser sa requete:
Avant, tu place un controle listbox dans don formulaire

Code :

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

1
2
3
4
5
6
7
8
 
dim strSQL as string
strSQL= "
SELECT nom, prénom,  "bon anniversaire" AS mess
FROM matable
WHERE Month([datenaiss])=Month(Now())  AND Day([datenaiss]))=Day(Now());"
listbox.RowSource = sqlselect
listbox.Requery

Voila et ta listbox se charge avec les nom prenom date d'anniv

En fait mon application est en Anglais et j’ai donc :

Table = 1_Tbl_Pilots
Champ = First name
Champ = Last name
Champ = Date of Birth
Donc, j’ai tout simplement remplacé les appellations et la requête me donne un message d’erreur quand je veux la sauvegarder.
Sinon, puis-je envoyer un petit exemple via mail à l’un des vous deux qui peut me le faire et me le retourner par après ?

Merci d’avance les mecs

Ce serait tellement plus simple si tu postais ton code ...

[Culture]

Comme random te la dit, il te suffit d'utiliser sa requete:
Avant, tu place un controle listbox dans don formulaire

Code :

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

1
2
3
4
5
6
7
8
 
dim strSQL as string
strSQL= "
SELECT nom, prénom,  "bon anniversaire" AS mess
FROM matable
WHERE Month([datenaiss])=Month(Now())  AND Day([datenaiss]))=Day(Now());"
listbox.RowSource = sqlselect
listbox.Requery

Voila et ta listbox se charge avec les nom prenom date d'anniv

En fait mon application est en Anglais et j’ai donc :

Table = 1_Tbl_Pilots
Champ = First name
Champ = Last name
Champ = Date of Birth
Donc, j’ai tout simplement remplacé les appellations et la requête me donne un message d’erreur quand je veux la sauvegarder.
Sinon, puis-je envoyer un petit exemple via mail à l’un des vous deux qui peut me le faire et me le retourner par après ?

Merci d’avance les mecs

Ce serait tellement plus simple si tu postais ton code ...

Voici et merci du conseil

SELECT First name, Last Name, "bon anniversaire" AS mess
FROM ma1_Tbl_Pilots
WHERE Month([Date of Birth])=Month(Now()) AND Day([Date of Birth]))=Day