J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le login de
la personne qui se connecte ainsi que la date de sa connexion dans une
table.
Merci d'avance pour votre aide.
J'essaye depuis bientôt 3h d'utiliser le code du lien que tu m'a donné et je
n'arrive pas à le faire fonctionner. A l'exécution, il ne me reconnait pas :
strUsager et je ne vois pas comment je peux lui faire connaître ou par quoi
le remplacer.
Je ne vois pas strUsager dans ton code ? Quel message d'erreur met il exactement, et quelle ligne est surlignée ?
Fred Pasc
Bonjour,
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une bonne part qui est due au fait que je m'y connaisse très mal en programmation et encore plus en VBA. Du coup, je ne sais pas corrigé la moindre erreur malgrès le débogueur. S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais fait). Et je crois que mon problème vient de l'appel de mon module et pas du module en lui même. Comment fait-on pour appeller un module? Moi j'utilise une macro avec exécuter code mais j'ai du mal pour les entrées et sorties, comment les définir?
Merci d'avance pour une aide. A+ Fred "Gafish" a écrit dans le message de news: uU2eWC#
J'essaye depuis bientôt 3h d'utiliser le code du lien que tu m'a donné et
je
n'arrive pas à le faire fonctionner. A l'exécution, il ne me reconnait pas
:
strUsager et je ne vois pas comment je peux lui faire connaître ou par quoi
le remplacer.
Je ne vois pas strUsager dans ton code ? Quel message d'erreur met il exactement, et quelle ligne est surlignée ?
Bonjour,
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une bonne part
qui est due au fait que je m'y connaisse très mal en programmation et encore
plus en VBA. Du coup, je ne sais pas corrigé la moindre erreur malgrès le
débogueur.
S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je l'avais
remplacé par CurrentUser (et j'avais oublié que je l'avais fait).
Et je crois que mon problème vient de l'appel de mon module et pas du module
en lui même. Comment fait-on pour appeller un module? Moi j'utilise une
macro avec exécuter code mais j'ai du mal pour les entrées et sorties,
comment les définir?
Merci d'avance pour une aide.
A+
Fred
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
uU2eWC#VFHA.3076@TK2MSFTNGP12.phx.gbl...
J'essaye depuis bientôt 3h d'utiliser le code du lien que tu m'a donné
et
je
n'arrive pas à le faire fonctionner. A l'exécution, il ne me reconnait
pas
:
strUsager et je ne vois pas comment je peux lui faire connaître ou par
quoi
le remplacer.
Je ne vois pas strUsager dans ton code ?
Quel message d'erreur met il exactement, et quelle ligne est surlignée ?
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une bonne part qui est due au fait que je m'y connaisse très mal en programmation et encore plus en VBA. Du coup, je ne sais pas corrigé la moindre erreur malgrès le débogueur. S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais fait). Et je crois que mon problème vient de l'appel de mon module et pas du module en lui même. Comment fait-on pour appeller un module? Moi j'utilise une macro avec exécuter code mais j'ai du mal pour les entrées et sorties, comment les définir?
Merci d'avance pour une aide. A+ Fred "Gafish" a écrit dans le message de news: uU2eWC#
J'essaye depuis bientôt 3h d'utiliser le code du lien que tu m'a donné et
je
n'arrive pas à le faire fonctionner. A l'exécution, il ne me reconnait pas
:
strUsager et je ne vois pas comment je peux lui faire connaître ou par quoi
le remplacer.
Je ne vois pas strUsager dans ton code ? Quel message d'erreur met il exactement, et quelle ligne est surlignée ?
Gafish
Fred Pasc wrote:
Bonjour,
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une bonne part qui est due au fait que je m'y connaisse très mal en programmation et encore plus en VBA. Du coup, je ne sais pas corrigé la moindre erreur malgrès le débogueur. S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais fait).
Ok, remets tout comme c'était avec les strUsager dans un premier temps
Et je crois que mon problème vient de l'appel de mon module et pas du module en lui même. Comment fait-on pour appeller un module? Moi j'utilise une macro avec exécuter code mais j'ai du mal pour les entrées et sorties, comment les définir?
Effectivement ton problème doit venir de l'appel de la fonction car strUsager est un paramètre d'entrée. Quand tu as la ligne suivante : Function AjouterJournalUsagers(strUsager As String, dtMaintenant As Date) As String cela veut dire que la fonction attend deux paramètres lors de son appel, strUsager, et dtMaintenant.
Ton but c'est toujours j'imagine de logger l'usager à la connexion à la base. As-tu un formulaire qui s'ouvre à l'ouverture ? car dans l'exemple que je t'ai donné, c'est avec un formulaire à l'ouverture. Et dans l'evenement open (ouverture) du formulaire, il y a l'appel de la fonction citée plus haut avec ses deux paramètres, ici :
Private Sub Form_Open(Cancel As Integer) gstrGUID = AjouterJournalUsagers(CurrentUser, Now()) Call AjouterJournalEvenements(gstrGUID, "Connecté") End Sub
Mets donc ce code dans ton formulaire qui s'ouvre à l'ouverture., et ton strUsager sera ainsi transmis.
Arnaud
Fred Pasc wrote:
Bonjour,
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une
bonne part qui est due au fait que je m'y connaisse très mal en
programmation et encore plus en VBA. Du coup, je ne sais pas corrigé
la moindre erreur malgrès le débogueur.
S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je
l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais
fait).
Ok, remets tout comme c'était avec les strUsager dans un premier temps
Et je crois que mon problème vient de l'appel de mon module et pas du
module en lui même. Comment fait-on pour appeller un module? Moi
j'utilise une macro avec exécuter code mais j'ai du mal pour les
entrées et sorties, comment les définir?
Effectivement ton problème doit venir de l'appel de la fonction car
strUsager est un paramètre d'entrée. Quand tu as la ligne suivante :
Function AjouterJournalUsagers(strUsager As String, dtMaintenant As Date) As
String
cela veut dire que la fonction attend deux paramètres lors de son appel,
strUsager, et dtMaintenant.
Ton but c'est toujours j'imagine de logger l'usager à la connexion à la
base. As-tu un formulaire qui s'ouvre à l'ouverture ? car dans l'exemple que
je t'ai donné, c'est avec un formulaire à l'ouverture. Et dans l'evenement
open (ouverture) du formulaire, il y a l'appel de la fonction citée plus
haut avec ses deux paramètres, ici :
Private Sub Form_Open(Cancel As Integer)
gstrGUID = AjouterJournalUsagers(CurrentUser, Now())
Call AjouterJournalEvenements(gstrGUID, "Connecté")
End Sub
Mets donc ce code dans ton formulaire qui s'ouvre à l'ouverture., et ton
strUsager sera ainsi transmis.
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une bonne part qui est due au fait que je m'y connaisse très mal en programmation et encore plus en VBA. Du coup, je ne sais pas corrigé la moindre erreur malgrès le débogueur. S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais fait).
Ok, remets tout comme c'était avec les strUsager dans un premier temps
Et je crois que mon problème vient de l'appel de mon module et pas du module en lui même. Comment fait-on pour appeller un module? Moi j'utilise une macro avec exécuter code mais j'ai du mal pour les entrées et sorties, comment les définir?
Effectivement ton problème doit venir de l'appel de la fonction car strUsager est un paramètre d'entrée. Quand tu as la ligne suivante : Function AjouterJournalUsagers(strUsager As String, dtMaintenant As Date) As String cela veut dire que la fonction attend deux paramètres lors de son appel, strUsager, et dtMaintenant.
Ton but c'est toujours j'imagine de logger l'usager à la connexion à la base. As-tu un formulaire qui s'ouvre à l'ouverture ? car dans l'exemple que je t'ai donné, c'est avec un formulaire à l'ouverture. Et dans l'evenement open (ouverture) du formulaire, il y a l'appel de la fonction citée plus haut avec ses deux paramètres, ici :
Private Sub Form_Open(Cancel As Integer) gstrGUID = AjouterJournalUsagers(CurrentUser, Now()) Call AjouterJournalEvenements(gstrGUID, "Connecté") End Sub
Mets donc ce code dans ton formulaire qui s'ouvre à l'ouverture., et ton strUsager sera ainsi transmis.
Arnaud
Fred Pasc
Re-bonjour et merci,
J'ai respecté toutes tes consignes et celles du site. Lors de l'ouverture de ma base, j'ai désormais cette erreur: "erreur d'exécution 13, Incompatibilité de type". Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Je comprends pas. rs est bien de type Recordset. Merci de m'aider ... encore
A+ Fred
"Gafish" a écrit dans le message de news:
Fred Pasc wrote:
Bonjour,
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une bonne part qui est due au fait que je m'y connaisse très mal en programmation et encore plus en VBA. Du coup, je ne sais pas corrigé la moindre erreur malgrès le débogueur. S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais fait).
Ok, remets tout comme c'était avec les strUsager dans un premier temps
Et je crois que mon problème vient de l'appel de mon module et pas du module en lui même. Comment fait-on pour appeller un module? Moi j'utilise une macro avec exécuter code mais j'ai du mal pour les entrées et sorties, comment les définir?
Effectivement ton problème doit venir de l'appel de la fonction car strUsager est un paramètre d'entrée. Quand tu as la ligne suivante : Function AjouterJournalUsagers(strUsager As String, dtMaintenant As Date) As
String cela veut dire que la fonction attend deux paramètres lors de son appel, strUsager, et dtMaintenant.
Ton but c'est toujours j'imagine de logger l'usager à la connexion à la base. As-tu un formulaire qui s'ouvre à l'ouverture ? car dans l'exemple que
je t'ai donné, c'est avec un formulaire à l'ouverture. Et dans l'evenement open (ouverture) du formulaire, il y a l'appel de la fonction citée plus haut avec ses deux paramètres, ici :
Private Sub Form_Open(Cancel As Integer) gstrGUID = AjouterJournalUsagers(CurrentUser, Now()) Call AjouterJournalEvenements(gstrGUID, "Connecté") End Sub
Mets donc ce code dans ton formulaire qui s'ouvre à l'ouverture., et ton strUsager sera ainsi transmis.
Arnaud
Re-bonjour et merci,
J'ai respecté toutes tes consignes et celles du site. Lors de l'ouverture de
ma base, j'ai désormais cette erreur:
"erreur d'exécution 13, Incompatibilité de type".
Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Je comprends pas. rs est bien de type Recordset.
Merci de m'aider ... encore
A+
Fred
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
uphizPrWFHA.1468@tk2msftngp13.phx.gbl...
Fred Pasc wrote:
Bonjour,
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une
bonne part qui est due au fait que je m'y connaisse très mal en
programmation et encore plus en VBA. Du coup, je ne sais pas corrigé
la moindre erreur malgrès le débogueur.
S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je
l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais
fait).
Ok, remets tout comme c'était avec les strUsager dans un premier temps
Et je crois que mon problème vient de l'appel de mon module et pas du
module en lui même. Comment fait-on pour appeller un module? Moi
j'utilise une macro avec exécuter code mais j'ai du mal pour les
entrées et sorties, comment les définir?
Effectivement ton problème doit venir de l'appel de la fonction car
strUsager est un paramètre d'entrée. Quand tu as la ligne suivante :
Function AjouterJournalUsagers(strUsager As String, dtMaintenant As Date)
As
String
cela veut dire que la fonction attend deux paramètres lors de son appel,
strUsager, et dtMaintenant.
Ton but c'est toujours j'imagine de logger l'usager à la connexion à la
base. As-tu un formulaire qui s'ouvre à l'ouverture ? car dans l'exemple
que
je t'ai donné, c'est avec un formulaire à l'ouverture. Et dans l'evenement
open (ouverture) du formulaire, il y a l'appel de la fonction citée plus
haut avec ses deux paramètres, ici :
Private Sub Form_Open(Cancel As Integer)
gstrGUID = AjouterJournalUsagers(CurrentUser, Now())
Call AjouterJournalEvenements(gstrGUID, "Connecté")
End Sub
Mets donc ce code dans ton formulaire qui s'ouvre à l'ouverture., et ton
strUsager sera ainsi transmis.
J'ai respecté toutes tes consignes et celles du site. Lors de l'ouverture de ma base, j'ai désormais cette erreur: "erreur d'exécution 13, Incompatibilité de type". Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Je comprends pas. rs est bien de type Recordset. Merci de m'aider ... encore
A+ Fred
"Gafish" a écrit dans le message de news:
Fred Pasc wrote:
Bonjour,
En fait, ça ne fonctionne pas du tout et je suppose qu'il y a une bonne part qui est due au fait que je m'y connaisse très mal en programmation et encore plus en VBA. Du coup, je ne sais pas corrigé la moindre erreur malgrès le débogueur. S'il ny avait plus strUsager dans mon code c'est parce qu'en fait je l'avais remplacé par CurrentUser (et j'avais oublié que je l'avais fait).
Ok, remets tout comme c'était avec les strUsager dans un premier temps
Et je crois que mon problème vient de l'appel de mon module et pas du module en lui même. Comment fait-on pour appeller un module? Moi j'utilise une macro avec exécuter code mais j'ai du mal pour les entrées et sorties, comment les définir?
Effectivement ton problème doit venir de l'appel de la fonction car strUsager est un paramètre d'entrée. Quand tu as la ligne suivante : Function AjouterJournalUsagers(strUsager As String, dtMaintenant As Date) As
String cela veut dire que la fonction attend deux paramètres lors de son appel, strUsager, et dtMaintenant.
Ton but c'est toujours j'imagine de logger l'usager à la connexion à la base. As-tu un formulaire qui s'ouvre à l'ouverture ? car dans l'exemple que
je t'ai donné, c'est avec un formulaire à l'ouverture. Et dans l'evenement open (ouverture) du formulaire, il y a l'appel de la fonction citée plus haut avec ses deux paramètres, ici :
Private Sub Form_Open(Cancel As Integer) gstrGUID = AjouterJournalUsagers(CurrentUser, Now()) Call AjouterJournalEvenements(gstrGUID, "Connecté") End Sub
Mets donc ce code dans ton formulaire qui s'ouvre à l'ouverture., et ton strUsager sera ainsi transmis.
Arnaud
Gafish
J'ai respecté toutes tes consignes et celles du site. Lors de l'ouverture de ma base, j'ai désormais cette erreur: "erreur d'exécution 13, Incompatibilité de type". Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Dans ton module, vas dans outils...references et vérifie que la réference DAO x.x soit cochée (avec x.x des nombres variant selon ta version)
J'ai respecté toutes tes consignes et celles du site. Lors de
l'ouverture de ma base, j'ai désormais cette erreur:
"erreur d'exécution 13, Incompatibilité de type".
Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Dans ton module, vas dans outils...references et vérifie que la réference
DAO x.x soit cochée (avec x.x des nombres variant selon ta version)
J'ai respecté toutes tes consignes et celles du site. Lors de l'ouverture de ma base, j'ai désormais cette erreur: "erreur d'exécution 13, Incompatibilité de type". Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Dans ton module, vas dans outils...references et vérifie que la réference DAO x.x soit cochée (avec x.x des nombres variant selon ta version)
Fred Pasc
J'ai coché la référence DAO ainsi que plusieurs références mais cela ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13. ...
"Gafish" a écrit dans le message de news:
J'ai respecté toutes tes consignes et celles du site. Lors de l'ouverture de ma base, j'ai désormais cette erreur: "erreur d'exécution 13, Incompatibilité de type". Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Dans ton module, vas dans outils...references et vérifie que la réference DAO x.x soit cochée (avec x.x des nombres variant selon ta version)
J'ai coché la référence DAO ainsi que plusieurs références mais cela ne
change rien. Ca ne marche toujours pas et j'ai l'erreur 13.
...
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
uKSib5rWFHA.616@TK2MSFTNGP12.phx.gbl...
J'ai respecté toutes tes consignes et celles du site. Lors de
l'ouverture de ma base, j'ai désormais cette erreur:
"erreur d'exécution 13, Incompatibilité de type".
Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Dans ton module, vas dans outils...references et vérifie que la réference
DAO x.x soit cochée (avec x.x des nombres variant selon ta version)
J'ai coché la référence DAO ainsi que plusieurs références mais cela ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13. ...
"Gafish" a écrit dans le message de news:
J'ai respecté toutes tes consignes et celles du site. Lors de l'ouverture de ma base, j'ai désormais cette erreur: "erreur d'exécution 13, Incompatibilité de type". Ca me souligne ensuite cette ligne:
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
Dans ton module, vas dans outils...references et vérifie que la réference DAO x.x soit cochée (avec x.x des nombres variant selon ta version)
Gafish
Fred Pasc wrote:
J'ai coché la référence DAO ainsi que plusieurs références mais cela ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13. ...
Essaie de faire remonter au maximum ta référence DAO dans la liste. Et si ca ne marche pas, liste toutes les références que tu as, fais attention en cochant de bien cocher des références utiles.
Fred Pasc wrote:
J'ai coché la référence DAO ainsi que plusieurs références mais cela
ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13.
...
Essaie de faire remonter au maximum ta référence DAO dans la liste.
Et si ca ne marche pas, liste toutes les références que tu as, fais
attention en cochant de bien cocher des références utiles.
J'ai coché la référence DAO ainsi que plusieurs références mais cela ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13. ...
Essaie de faire remonter au maximum ta référence DAO dans la liste. Et si ca ne marche pas, liste toutes les références que tu as, fais attention en cochant de bien cocher des références utiles.
Fred Pasc
Bien vu ... Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Merci de ton aide et de ta patience
"Gafish" a écrit dans le message de news: #
Fred Pasc wrote:
J'ai coché la référence DAO ainsi que plusieurs références mais cela ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13. ...
Essaie de faire remonter au maximum ta référence DAO dans la liste. Et si ca ne marche pas, liste toutes les références que tu as, fais attention en cochant de bien cocher des références utiles.
Bien vu ...
Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Merci de ton aide et de ta patience
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
#V0L4EsWFHA.3188@TK2MSFTNGP09.phx.gbl...
Fred Pasc wrote:
J'ai coché la référence DAO ainsi que plusieurs références mais cela
ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13.
...
Essaie de faire remonter au maximum ta référence DAO dans la liste.
Et si ca ne marche pas, liste toutes les références que tu as, fais
attention en cochant de bien cocher des références utiles.
Bien vu ... Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Merci de ton aide et de ta patience
"Gafish" a écrit dans le message de news: #
Fred Pasc wrote:
J'ai coché la référence DAO ainsi que plusieurs références mais cela ne change rien. Ca ne marche toujours pas et j'ai l'erreur 13. ...
Essaie de faire remonter au maximum ta référence DAO dans la liste. Et si ca ne marche pas, liste toutes les références que tu as, fais attention en cochant de bien cocher des références utiles.
Gafish
Fred Pasc wrote:
Bien vu ... Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Element non trouvé cela veut dire qu'il ne trouve pas le champ Evenement dans la table spécifiée. Es-tu sur de l'orthographe ? Tu as peut etre mis des accents à evenement ?
Merci de ton aide et de ta patience
Fred Pasc wrote:
Bien vu ...
Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Element non trouvé cela veut dire qu'il ne trouve pas le champ Evenement
dans la table spécifiée.
Es-tu sur de l'orthographe ? Tu as peut etre mis des accents à evenement ?
Bien vu ... Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Element non trouvé cela veut dire qu'il ne trouve pas le champ Evenement dans la table spécifiée. Es-tu sur de l'orthographe ? Tu as peut etre mis des accents à evenement ?
Merci de ton aide et de ta patience
Gafish
Gafish wrote:
Fred Pasc wrote:
Bien vu ... Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Element non trouvé cela veut dire qu'il ne trouve pas le champ Evenement dans la table spécifiée. Es-tu sur de l'orthographe ? Tu as peut etre mis des accents à evenement ?
Je viens de regarder de plus près, il y a une erreur sur la page, il faut remplacer dans la desciption de la table tblJournalEvenements le nom de champ "Usager" par le nom de champ "Evenement".
Arnaud
Gafish wrote:
Fred Pasc wrote:
Bien vu ...
Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Element non trouvé cela veut dire qu'il ne trouve pas le champ
Evenement dans la table spécifiée.
Es-tu sur de l'orthographe ? Tu as peut etre mis des accents à
evenement ?
Je viens de regarder de plus près, il y a une erreur sur la page, il faut
remplacer dans la desciption de la table tblJournalEvenements le nom de
champ "Usager" par le nom de champ "Evenement".
Bien vu ... Maintenant, ça marche mais ça bloque plus loin dans le code:
.Fields("Evenement") = strEvenement
Ca me dit : "élément non trouvé dans cette collection"
Element non trouvé cela veut dire qu'il ne trouve pas le champ Evenement dans la table spécifiée. Es-tu sur de l'orthographe ? Tu as peut etre mis des accents à evenement ?
Je viens de regarder de plus près, il y a une erreur sur la page, il faut remplacer dans la desciption de la table tblJournalEvenements le nom de champ "Usager" par le nom de champ "Evenement".
