enregistrement automatique

Bonjour,

Tu peux créer un formulaire indépendant (sans controle) frmVersement
avec sur l'évènement Ouverture le code suivant (Adapter les noms de
table et champs):
Private Sub Form_Open(Cancel As Integer)
If Date = DateSerial(Year(Date), Month(Date), 1) Then
CurrentDb.Execute "Insert into Versement(LeJour,LeMontant)
Values(" _
& Format(Date, "#mm/dd/yyyy#") & ",150)"
End If
End Sub

Puis créer une macro nommée Autoexec qui contient les actions suivantes:
1-OuvrirFormulaire avec les arguments
Nom Formulaire: frmVersement
Mode Fenêtre: Masquée
2-Fermer
Type objet: Formulaire
NomObjet: frmVersement
Enregistrer: Non

A chaque démarrage de ta bd, cela verifiera si on est le 1er du mois et
si c'est le cas, ajoute une ligne à la table Versement pour le montant
de 150. (Je suppose la table Versement créée)

Bonjour
Peut on créer automatiquement un enregistrement a partir d'une date

Oui je souhaiterais que tous les 1 de chaque mois un enregistrement d'une
somme (exemple 150 €) se fasse automatiquement dans une de mes tables

Si quelqu'un a une idée merci d'avance

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

Salut Eric

Et si le 1er tombe un dimanche (par exemple), et que la base n'est pas ouverte ? :-)

Il faudrait contrôler, à chaque ouverture de la base, que la ligne pour le mois en cours a bien été créée dans la table.....

Pour JM, ça veut dire mettre un test Du style DlookUp ou Dsum (bref, indentifier la ligne) plutôt qu'un test sur la date.

J-Pierre

PS: JM, tu peux aussi écrire une routine qui transfère tous les jours 150 euros sur le compte d'Eric et le mien. On te fera le
code :-)

"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news: ObEkmF%23eGHA.4900@TK2MSFTNGP02.phx.gbl...

Bonjour,

Tu peux créer un formulaire indépendant (sans controle) frmVersement avec sur l'évènement Ouverture le code suivant (Adapter
les noms de table et champs):
Private Sub Form_Open(Cancel As Integer)
If Date = DateSerial(Year(Date), Month(Date), 1) Then
CurrentDb.Execute "Insert into Versement(LeJour,LeMontant) Values(" _
& Format(Date, "#mm/dd/yyyy#") & ",150)"
End If
End Sub

Puis créer une macro nommée Autoexec qui contient les actions suivantes:
1-OuvrirFormulaire avec les arguments
Nom Formulaire: frmVersement
Mode Fenêtre: Masquée
2-Fermer
Type objet: Formulaire
NomObjet: frmVersement
Enregistrer: Non

A chaque démarrage de ta bd, cela verifiera si on est le 1er du mois et si c'est le cas, ajoute une ligne à la table
Versement pour le montant de 150. (Je suppose la table Versement créée)

Bonjour
Peut on créer automatiquement un enregistrement a partir d'une date

Oui je souhaiterais que tous les 1 de chaque mois un enregistrement d'une somme (exemple 150 ?) se fasse automatiquement
dans une de mes tables

Si quelqu'un a une idée merci d'avance

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