Discussion :

[nemesys971]

salut toi qui li ce message!

Lorsque j'ouvre un formulaire sous access 2000 il y a un message d'erreur qui s'affiche.

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Open(Cancel As Integer)
Me![scrCDate] = DateSerial(Year(Date), Month(Date), 1)
Me![scrMonth] = Format(Date, "mmmm")
Me![scrYear] = Format(Date, "yyyy")
End Sub

Je ne sais pas d'ou ca vient parce que lorsque j'utilise la meme methode pour une autre fenetre ca march nickel chrome.

Le message d'erreur est le suivant :
"L'expression sur ouverture entrée comme parametre de la propriété de type evenment est a l'origine d'une erreur.Incompatibilité de type.

* Le resultat de l'expression n'est pas le nom d'une macro, le nom definie par l'utilisateur ou [event procedure].
* Une erreur a peut etre ete commise lors de l'evaluation d'une fonction, d'un evenement ou d'une macro."

Donc si vous pouviez m'éclairé cela m'arangerait.

Merci

[vplf]

tentes de mettre en commentaire les lignes de ta fonction les unes apres les autres pour voir celle qui créée cette erreur.

vplf

[120]

les controles scrCDate, scrMonth, scrYear existe bien sur ton formulaire?
as tu un champs Date?

[nemesys971]

Meme lors que j'exécute mon code en pas a pas il passe pas. Et j'ai meme essayer en supprimant toutes les lignes a l'intériereur de ma procédure.
En plus au départ ca fonctionnait (le code n'a pas changer)

[120]

l'aide d'Access dit

L'événement Ouverture ne se produit pas lorsque vous activez un formulaire déjà ouvert; par exemple, lorsque vous passez à un formulaire d'une autre fenêtre de Microsoft Access ou lorsque vous utilisez l'action OuvrirFormulaire dans une macro pour ramener au premier plan le formulaire ouvert. Cependant, l'événement Activé (Activate), lui, se produit dans ce type de situation.

essaie peut-être de mettre ton code dans le Activate... ou le load...

[nemesys971]

parcontre sur chargement il me met le meme message sauf qu'apres il le charge sans effectuer de changement

[120]

c'est normal le chargement ne sera réexecuter que si tu fermes et que tu réouvres...
c'est à toi de savoir quand tu veux que ton code soit éxécuté et de le metttre ensuite dans le bon évènement...
Pour savoir quand se déclenche les évennement le mieux c'est

[nemesys971]

mon "code" ne fonctionne pas! comment est ce que je fait?

[120]

As tu utilisé le activate ?
tu n'as tjs pas dit ce que tu cherches à faire exactement....

[Rdesfx]

Tu n'aurais pas par hazard un autre champ ou label que tu aurais appelé "Date" dans ton formulaire

il me semble avoir eu ce type de probléme et cela provenanit de la promiscuité d'un champ nommé Date et de l'emploi de la fonction Date()

A+

[niclalex]

bonsoir,
Essaye comme ça

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Me![scrCDate] = DateSerial(Year(Now()), Month(Now()), 1)
Me![scrMonth] = Format(Now(), "mmmm")
Me![scrYear] = Format(Now(), "yyyy")
End Sub

[nemesys971]

ben en faite je ne sait plus quoi faire parce que j'ai utiliser now
ca passe pas.
Ce matin mon code fonctionnai bien mais d'un coup revirement de situation et la plus rien.
Je cherche a créer un agenda sur le quel je pourrai clicker pour connaitre un certain nombre de chose.