[Moi Mich]

Bonjour besoin d'ide.
J'ai fait une base de données clients, avec plusieurs champs.
J'ai un champ nommé DDN date de naissance, je voudrais être
avisé 10 jours avant la date inscrite par une alarme, genre courrier
envoyé à mon adresse à moi. Bien attendu l'envoie devra aussi me donné le nom
de la personne à qui correspond la date.

ATTENTION, nouveau dans l'utilisation de Access, donc peu de connaissance.
Donc la patience vous es demandé dans votre aide.

Merci de votre aide si précieuse.

Mich

[francishop]

Bonjour,

ATTENTION, nouveau dans l'utilisation de Access, donc peu de connaissance.
Donc la patience vous es demandé dans votre aide.

D'accord pour de l'aide.

J'ai fait une base de données clients, avec plusieurs champs.

Trés bien. Quels sont ces champs?
L'idéal serait de faire voir une requête. A défaut les champs de table.

Cordialement.

[Moi Mich]

Merci de ton suivie, j'apprécie beaucoup.

Ma base de données clients a plusieurs champs (nom famille,prénom,date de naissance,adresse,ville,code postal, cellulaire,no de téléphone,fax,courrier@, prêteurs,terme,amortissement,assureur,renouvelleement,nom famille1,prénom1,cellulaire1,courrier@1)

sur le champ DDN , je voudrais avoir une alarme 10 jours avant la date inscrite.
alarme par courrier, le mien @ ou autre manière.

Merci de ton aide, tu sais je suis un peu perdu et en manque de connaissance.
Donc j'ai besoin d'exemple.

Michel

[francishop]

Bonsoir, (2 h 27 Paris)

Merci de ton aide, tu sais je suis un peu perdu et en manque de connaissance.
Donc j'ai besoin d'exemple.

Exemple? Peut-être. Travailler? Certainement.

Remis dans une présentation <>"Acceptable" voici ton apport :
nom famille,
prénom,
date de naissance,
adresse,
ville,
code postal,
cellulaire,
no de téléphone,
fax,
courrier@,
prêteurs,
terme,
amortissement,
assureur,
renouvelleement,
nom famille1,
prénom1,
cellulaire1,
courrier@1

Ceci est un peu léger. Lorsqu'on propose d'aider, il faut que le bénéficiaire s'investisse.
En effet, notre aide ne consiste pas à faire le travail. Autant proposer des bases toutes faites.
Le sujet est d'aider chacun à progresser. Il aurait été souhaitable que tu indiques le type et longueur des champs.

Pour revenir au sujet.
Il est préférable de ne pas laisser d'espace dans les noms de champs en employant des tirets(Pas trait d'union) Utiliser des noms courts, suffisament explicites. Ne pas utiliser de mots réservés, exemple Date. On écrira pour un champ-->Dte et lors de besoin on employera-->Date ce qui équivaut à Date du jour.

En premier épisode on va aller jusqu'au calcul d'age.

La table : tblMich
....Nom.................Type
N°.......................Compteur
Civilité.................Texte.....(50)
Nom....................Texte.....(50)
Prénom................Texte.....(50)
Dte_Naissance......Date.....[Short Date]
Adresse...............Texte.....(50)
Ville.....................Texte.....(50)
CP........................Texte......(7)
Cellulaire..............Texte.....(15)
Telephon...............Texte.....(15)
fax........................Texte.....(15)
Courrier@..............Texte.....(50)
Prêteurs................Texte.....(50)
Terme...................Texte.....(50)
Amortissement.......Texte.....(50)
Assureur................Texte.....(50)
Renouvelleement....Texte.....(50) (Avec 2 ee?)
Civilité1..................Texte.....(50)
Nom1......................Texte.....(50)
Prénom1.................Texte.....(50)
Cellulaire1...............Texte.....(15)
Courrier@1..............Texte.....(15)

Pour Civilité et Civilité1
Zone de liste déroulante
Liste valeurs
Contenu :"Mr";"Monsieur";"Mme";"Madame";"Mlle";"Mademoiselle";"Mme et Mr";"Madame et Monsieur";"Mrs";"Messieurs"
Largeur colonnes : 1,9cm;3,403cm

Dans un module tout neuf on colle :

CODE

Function CalculAge(dateNaissance As Date, Optional dateReference As Date)
If dateReference = 0 Then dateReference = Date
CalculAge = Year(dateReference) - Year(dateNaissance) + _
(Format(dateNaissance, "mmdd") > Format(dateReference, "mmdd"))
If CalculAge > 1 Then
CalculAge = CalculAge & " ans"
Else
CalculAge = CalculAge & " an"
End If

End Function

'***************************************************************
Function CalculAge1(dateNaissance As Date, Optional dateReference As Date)
If dateReference = 0 Then dateReference = Date
CalculAge1 = Year(dateReference) - Year(dateNaissance) + _
(Format(dateNaissance, "mmdd") > Format(dateReference, "mmdd"))
End Function

'***************************************************************
Function DernierJourDuMois(Optional dteDate As Date) As Date
' Cette fonction calcule le dernier jour du mois d'après une date donnée.
' Si aucune date n'est transmise, elle utilise la date du jour.
    If CLng(dteDate) = 0 Then
        dteDate = Date
    End If
    ' Recherche le premier jour du mois suivant, puis soustrait un jour.
    DernierJourDuMois = DateSerial(Year(dteDate), Month(dteDate) + 1, 1) - 1
End Function
'****************************************************************
'De notre ami PHILBEN
'****************************************************************
Public Function RoundUp(vValeur As Variant, Optional byNbDec As Byte) As Variant
   RoundUp = -Int(-vValeur * 10 ^ byNbDec) / 10 ^ byNbDec
End Function
'***************************************************************
'Toujours de notre ami PHILBEN
'****************************************************************
Public Function RoundDown(vValeur As Variant, Optional byNbDec As Byte) As Variant
   RoundDown = Int(vValeur * 10 ^ byNbDec) / 10 ^ byNbDec
End Function

Une requête :

CODE

SELECT N°, Civilité, Nom, Prénom,
[Civilité] & " " & [Nom] & " " & [Prénom] AS NP,
Dte_Naissance, CalculAge([Dte_Naissance]) AS Age,
CalculAge1([Dte_Naissance]) AS Compteur,
IIf(Day(DernierJourDuMois([Dte_Naissance]))=29,
RoundDown([Compteur]/4),[Compteur]) AS Anniversaires,
Adresse,Ville, CP, Cellulaire, Telephon, fax,[Courrier@],
Prêteurs,Terme,Amortissement,Assureur,Renouvelleement,
Nom1, Prénom1,Cellulaire1,[Courrier@1], Civilité1
FROM tblMich;

On doit obtenir quelque chose dans le genre :

..........NP.....................Age............Compteur....Anniversaires....
Mr Lamy Claude.........49 ans...............49.................49................21/12/1958
Mr Francis Hop...........60 ans...............60.................15................29/02/1948
Mme Romanof Anne...43 ans...............43.................43.................20/06/1965
Mlle Tradition Noémie.37 ans...............37.................37.................08/08/1970

Bonsoir. Je vais me coucher.

Cordialement

[Moi Mich]

Bonsoir, (2 h 27 Paris)

Exemple? Peut-être. Travailler? Certainement.

Remis dans une présentation <>"Acceptable" voici ton apport :
nom famille,
prénom,
date de naissance,
adresse,
ville,
code postal,
cellulaire,
no de téléphone,
fax,
courrier@,
prêteurs,
terme,
amortissement,
assureur,
renouvelleement,
nom famille1,
prénom1,
cellulaire1,
courrier@1

Ceci est un peu léger. Lorsqu'on propose d'aider, il faut que le bénéficiaire s'investisse.
En effet, notre aide ne consiste pas à faire le travail. Autant proposer des bases toutes faites.
Le sujet est d'aider chacun à progresser. Il aurait été souhaitable que tu indiques le type et longueur des champs.

Pour revenir au sujet.
Il est préférable de ne pas laisser d'espace dans les noms de champs en employant des tirets(Pas trait d'union) Utiliser des noms courts, suffisament explicites. Ne pas utiliser de mots réservés, exemple Date. On écrira pour un champ-->Dte et lors de besoin on employera-->Date ce qui équivaut à Date du jour.

En premier épisode on va aller jusqu'au calcul d'age.

La table : tblMich
....Nom.................Type
N°.......................Compteur
Civilité.................Texte.....(50)
Nom....................Texte.....(50)
Prénom................Texte.....(50)
Dte_Naissance......Date.....[Short Date]
Adresse...............Texte.....(50)
Ville.....................Texte.....(50)
CP........................Texte......(7)
Cellulaire..............Texte.....(15)
Telephon...............Texte.....(15)
fax........................Texte.....(15)
Courrier@..............Texte.....(50)
Prêteurs................Texte.....(50)
Terme...................Texte.....(50)
Amortissement.......Texte.....(50)
Assureur................Texte.....(50)
Renouvelleement....Texte.....(50) (Avec 2 ee?)
Civilité1..................Texte.....(50)
Nom1......................Texte.....(50)
Prénom1.................Texte.....(50)
Cellulaire1...............Texte.....(15)
Courrier@1..............Texte.....(15)

Pour Civilité et Civilité1
Zone de liste déroulante
Liste valeurs
Contenu :"Mr";"Monsieur";"Mme";"Madame";"Mlle";"Mademoiselle";"Mme et Mr";"Madame et Monsieur";"Mrs";"Messieurs"
Largeur colonnes : 1,9cm;3,403cm

Dans un module tout neuf on colle :

CODE

Function CalculAge(dateNaissance As Date, Optional dateReference As Date)
If dateReference = 0 Then dateReference = Date
CalculAge = Year(dateReference) - Year(dateNaissance) + _
(Format(dateNaissance, "mmdd") > Format(dateReference, "mmdd"))
If CalculAge > 1 Then
CalculAge = CalculAge & " ans"
Else
CalculAge = CalculAge & " an"
End If

End Function

'***************************************************************
Function CalculAge1(dateNaissance As Date, Optional dateReference As Date)
If dateReference = 0 Then dateReference = Date
CalculAge1 = Year(dateReference) - Year(dateNaissance) + _
(Format(dateNaissance, "mmdd") > Format(dateReference, "mmdd"))
End Function

'***************************************************************
Function DernierJourDuMois(Optional dteDate As Date) As Date
' Cette fonction calcule le dernier jour du mois d'après une date donnée.
' Si aucune date n'est transmise, elle utilise la date du jour.
    If CLng(dteDate) = 0 Then
        dteDate = Date
    End If
    ' Recherche le premier jour du mois suivant, puis soustrait un jour.
    DernierJourDuMois = DateSerial(Year(dteDate), Month(dteDate) + 1, 1) - 1
End Function
'****************************************************************
'De notre ami PHILBEN
'****************************************************************
Public Function RoundUp(vValeur As Variant, Optional byNbDec As Byte) As Variant
   RoundUp = -Int(-vValeur * 10 ^ byNbDec) / 10 ^ byNbDec
End Function
'***************************************************************
'Toujours de notre ami PHILBEN
'****************************************************************
Public Function RoundDown(vValeur As Variant, Optional byNbDec As Byte) As Variant
   RoundDown = Int(vValeur * 10 ^ byNbDec) / 10 ^ byNbDec
End Function

Une requête :

CODE

SELECT N°, Civilité, Nom, Prénom,
[Civilité] & " " & [Nom] & " " & [Prénom] AS NP,
Dte_Naissance, CalculAge([Dte_Naissance]) AS Age,
CalculAge1([Dte_Naissance]) AS Compteur,
IIf(Day(DernierJourDuMois([Dte_Naissance]))=29,
RoundDown([Compteur]/4),[Compteur]) AS Anniversaires,
Adresse,Ville, CP, Cellulaire, Telephon, fax,[Courrier@],
Prêteurs,Terme,Amortissement,Assureur,Renouvelleement,
Nom1, Prénom1,Cellulaire1,[Courrier@1], Civilité1
FROM tblMich;

On doit obtenir quelque chose dans le genre :

..........NP.....................Age............Compteur....Anniversaires....
Mr Lamy Claude.........49 ans...............49.................49................21/12/1958
Mr Francis Hop...........60 ans...............60.................15................29/02/1948
Mme Romanof Anne...43 ans...............43.................43.................20/06/1965
Mlle Tradition Noémie.37 ans...............37.................37.................08/08/1970

Bonsoir. Je vais me coucher.

Cordialement

[Moi Mich]

Merci àtoi mon ami de si loin.

Regarde ma base de données est faite avec tous les champs. Ce que je demandais ces de l'aide pour avoir une alarme sur le champ date de daissance, être avisé 10 jours avant la date inscrite, alrme par courrier ou autre moyen.

Je vais essauer ce que tu ma laissé comme code, je te redonne un suivie.

Merci
Michel

[Moi Mich]

Merci àtoi mon ami de si loin.

Regarde ma base de données est faite avec tous les champs. Ce que je demandais ces de l'aide pour avoir une alarme sur le champ date de daissance, être avisé 10 jours avant la date inscrite, alrme par courrier ou autre moyen.

Je vais essauer ce que tu ma laissé comme code, je te redonne un suivie.

Merci
Michel

[Moi Mich]

Bonsoir à toi

Encore une fois merci pour ton aide.
comme je te disais ma base de données est faite.
Dans ton suivie, tu me dis:
Dans le module tout neuf on colle:
Module veut dire quoi.........................
(j'ai pas besoin du champ civilité)

Le requête, je la fait en mode construction. Besoin plus d'explication.Voir avec exemple.

Merci de ta patience et de ton aide.

Michel

[francishop]

Bonjour, (Paris 9 h)

Il est inutile de reprendre l'intégralité du post de chacun si ce n'est pour en extraire ce qu'on veut commenter. Exemple :

Regarde ma base de données est faite avec tous les champs.

Une "méchante" table et la base est faite?

Ce que je demandais ces de l'aide pour avoir une alarme sur le champ date de daissance, être avisé 10 jours avant la date inscrite, alrme par courrier ou autre moyen.

Ho Ho! Ceci ressemble fort à une demande d'utilisateur.
_ " Je veux être avisé 10 jours chaque anniversaire"

L'utilisateur se moque royalement du comment et pourquoi ça fonctionne. Seul le résultat compte.
Si c'est le cas, je t'invite à faire une demande de devis. Il y a l'embarras du choix pour trouver un prestataire.

Par contre une demande concepteur est : " Comment peut-on faire pour avoir une alarme , être avisé 10 jours avant la date inscrite, alarme par courrier ou autre moyen."

Là je veux bien intervenir. Le sens même de ce Forum.

Dans ton suivie, tu me dis:
Dans le module tout neuf on colle:
Module veut dire quoi.........................
(j'ai pas besoin du champ civilité)

Le requête, je la fait en mode construction. Besoin plus d'explication.Voir avec exemple.

Exactement ce que je soupçonnais.... Il faut faire du ba-->BA

Si j'ai ajouté le champ civilité, ce n'est pas innocent.
D'une part, on est en programmation. Tout ce qui a un caractère répétitif, on a le devoir de le faciliter.(Plus tard on est appellé à voir ceci pour CP<-->Ville : On rentre l'un, l'autre s'affiche automatiquement. Et vice versa.)
Je veux te faire voir comment inclure une liste déroulante autrement qu'en allant chercher les données dans une table.
Tu vas inclure ce champ civilité. Je "travaille" pour essayer de te guider. Ce n'est pas que "marrant" d'imaginer comment le faire afin que ceci te soit accessible. J'irai plus vite en faisant directement une petite base.
Mais il faut que je fasse de mon côté exactement ce que je vais te proposer.

Bon, je n'ai pas tellement le temps ce matin, on verra pour les requêtes ce soir.

Pour les modules : Objets-->Modules-->Nouveau et on colle mon envoi juste en dessous de :

CODE

Option Compare Database

Courage!

Cordialement.

[Moi Mich]

Bonjour, (Paris 9 h)

Il est inutile de reprendre l'intégralité du post de chacun si ce n'est pour en extraire ce qu'on veut commenter. Exemple :

Une "méchante" table et la base est faite?



Ho Ho! Ceci ressemble fort à une demande d'utilisateur.
_ " Je veux être avisé 10 jours chaque anniversaire"

L'utilisateur se moque royalement du comment et pourquoi ça fonctionne. Seul le résultat compte.
Si c'est le cas, je t'invite à faire une demande de devis. Il y a l'embarras du choix pour trouver un prestataire.

Par contre une demande concepteur est : " Comment peut-on faire pour avoir une alarme , être avisé 10 jours avant la date inscrite, alarme par courrier ou autre moyen."

Là je veux bien intervenir. Le sens même de ce Forum.


Exactement ce que je soupçonnais.... Il faut faire du ba-->BA

Si j'ai ajouté le champ civilité, ce n'est pas innocent.
D'une part, on est en programmation. Tout ce qui a un caractère répétitif, on a le devoir de le faciliter.(Plus tard on est appellé à voir ceci pour CP<-->Ville : On rentre l'un, l'autre s'affiche automatiquement. Et vice versa.)
Je veux te faire voir comment inclure une liste déroulante autrement qu'en allant chercher les données dans une table.
Tu vas inclure ce champ civilité. Je "travaille" pour essayer de te guider. Ce n'est pas que "marrant" d'imaginer comment le faire afin que ceci te soit accessible. J'irai plus vite en faisant directement une petite base.
Mais il faut que je fasse de mon côté exactement ce que je vais te proposer.

Bon, je n'ai pas tellement le temps ce matin, on verra pour les requêtes ce soir.

Pour les modules : Objets-->Modules-->Nouveau et on colle mon envoi juste en dessous de :

CODE

Option Compare Database

Courage!

Cordialement.

[Moi Mich]

Bon matin à toi, 5h.50 am ici Ville de Terrebonne

Regarde, je me suis surement mal exprimé dans ma demande. Tu sais je travaille fort dans cette réalisation, j'essaie, sans résultat positif.

Dis moi, voudrais-tu que je refasse une nouvelle base de données avec les champs
que tu ma envoyé dans un de tes messages (avec civilité).

Ca parait si simple pour toi, mais moi qui es débutant, alors la je me perds facilement.

Merci de ton aide que j'apprécie beaucoup.J'attend ton suivier ce soir comme tu la souligné.

[Moi Mich]

Bon matin à toi, 5h.50 am ici Ville de Terrebonne

Regarde, je me suis surement mal exprimé dans ma demande. Tu sais je travaille fort dans cette réalisation, j'essaie, sans résultat positif.

Dis moi, voudrais-tu que je refasse une nouvelle base de données avec les champs
que tu ma envoyé dans un de tes messages (avec civilité).

Ca parait si simple pour toi, mais moi qui es débutant, alors la je me perds facilement.

Merci de ton aide que j'apprécie beaucoup.J'attend ton suivie ce soir comme tu la souligné.

Je viens de faire ce que tu m'avais demandé :
Une nouvelle table enrg tblMich, j'ai copié le code dans le module sous module 1,
(note dans ma base j'ai modifié telephon en ajoutant un e, et la taille de certain champ, tu avais oublié un champ Dte_Naissance1)
J'ai copié le code requète dans une nouvelle requete, enrg :requeteMich
On me donne un message d'erreur :
Nom Ambigu dans l'expression 'calculAge([Dte_Naissance])'

Encore merci de ton aide.

Ce message a été modifié par Moi Mich - 07 août 2008 - 05:54 .

[francishop]

Bonsoir, (20 h)

j'ai copié le code dans le module sous module 1

Donne des noms explicites. Pour ce module par exemple-->mdl_Temps
Et dedans il faudra entreposer toutes les fonctions concenant les dates, heures, soit d'une façon générale ce qui a rapport au temps.
Ensuite viendra un module pour les calculs, un pour les conversions, etc..

tu avais oublié un champ Dte_Naissance1
J'ai copié le code requète dans une nouvelle requete, enrg :requeteMich

A ce sujet : Ta table concerne une personne-->OK
Une deuxième personne sur le même enregistrement-->Quelle est cette personne?
Le "max" accolé à la personne principale ne peut jamais être supérieur à 1?
Pas d'enfants?

Ce point est à voir de suite. Si plusieurs personnes peuvent être accolées au principal, autant faire de suite une table "enfants". Et si c'est le cas nous ferons une troisième table-->Dte_Naissance
Idem pour le téléphone. Pourquoi en limiter le nombre. Il serait normal de créer une table à cette fin.
Tout ceci serait nettement plus "sain" au point de vue conception. Ta table actuelle semble nous promettre quelque difficultés futur.

Nom Ambigu dans l'expression 'calculAge([Dte_Naissance])'

Le code a été enregistré deux fois. Il faut en effacer un.

Une nouvelle table enrg tblMich, enrg :requeteMich

Non non. Enregistre avec des noms explicites.(tblMich était un exemple.) Je copierais tes noms d'objets. Mais en contrepartie préfixe les objets. Exemple :
tbl_Client
qry_Client
frm_Client
fsub_Client
rpt_Client
rsub_Client

Et pour les modules la norme est-->bas_Client
Je me permets quelque extravagance par -->mdl_Client

Cordialement.

[Moi Mich]

Bonsoir, (20 h)


Donne des noms explicites. Pour ce module par exemple-->mdl_Temps
Et dedans il faudra entreposer toutes les fonctions concenant les dates, heures, soit d'une façon générale ce qui a rapport au temps.
Ensuite viendra un module pour les calculs, un pour les conversions, etc..


A ce sujet : Ta table concerne une personne-->OK
Une deuxième personne sur le même enregistrement-->Quelle est cette personne?
Le "max" accolé à la personne principale ne peut jamais être supérieur à 1?
Pas d'enfants?

Ce point est à voir de suite. Si plusieurs personnes peuvent être accolées au principal, autant faire de suite une table "enfants". Et si c'est le cas nous ferons une troisième table-->Dte_Naissance
Idem pour le téléphone. Pourquoi en limiter le nombre. Il serait normal de créer une table à cette fin.
Tout ceci serait nettement plus "sain" au point de vue conception. Ta table actuelle semble nous promettre quelque difficultés futur.



Le code a été enregistré deux fois. Il faut en effacer un.


Non non. Enregistre avec des noms explicites.(tblMich était un exemple.) Je copierais tes noms d'objets. Mais en contrepartie préfixe les objets. Exemple :
tbl_Client
qry_Client
frm_Client
fsub_Client
rpt_Client
rsub_Client

Et pour les modules la norme est-->bas_Client
Je me permets quelque extravagance par -->mdl_Client

Cordialement.

[Moi Mich]

Bonjour à toi l'ami de si loin.
Merci de ta patience.

Comme je te disais, je cherche et je travaille pour trouver.

Requète avec message d'erreur : Non la table na pas été enrg. 2 fois.

J'ai enrg. ma table de donnés, tblMich à ce nom car dans l'instruction ou code que
tu mas envoyé et bien ça finissait par ce nom.Mon formulaire est enrg. formulaire complet (car pour moi il contient tous les champs que je veux, donc complet)

Requète, pour moi elle dépend de ma table et du formulaire.
dans mon cas j'ai plusieurs clients, chacun a sa date de naissance .

Je vais refaire une nouvelle table avec les champs que tu me suggère.Je vais faire un nouveau module et la requète en collant les codes que tu ma envoyés et je vais voir.

INFO : Comment je fais pour supprimer un message ici.....dommage que nous soyons si éloigné, car tu pourrais voir ou j'en suis rendu de façon plus précise.

Bonne soirée, encore une fois merci.