Discussion :

[hyperion13]

Salut à tous,

J'ai un léger problème avec l'exécution d'un évènement sur click() pour ouvrir un formulaire

L'évènement sur click() a pour objet d'ouvrir un formulaire, à la seule condition que la valeur d'un champ de son sous-formulaire soit respectée. En clair, si la date système est plus grande que la valeur du champ MaDate du sous-formulaire, alors le formulaire principal s'ouvre, sinon j'affiche un autre formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub MONBOUTON_Click() 
On Error GoTo Err_ MONBOUTON_Click 
If Forms!MONFORMPRINCIPAL!MONSOUSFORM.Form!MADATE < Date() Then 
DoCmd.OpenForm "MONFORMPRINCIPAL", acNormal, "", "", , acNormal 
DoCmd.Close acForm, "MENU GENERAL" 
Else 
DoCmd.OpenForm "UNAUTREFORM", acNormal, "", "", , acNormal 
DoCmd.Close acForm, "MENU GENERAL" 
End If 
Exit_ MONBOUTON_Click: 
Exit Sub 
Err_ MONBOUTON_Click: 
MsgBox Err.Description 
Resume Exit_ MONBOUTON_Click 
End Sub

Le hic, Access transforme Date() par DATE ??? je suis alors obligé d'écrire Now()

Lorsque je clique sur mon btn de commande, un avertissement s'affiche m'indiquant : impossible de trouver le formulaire MONFORMPRINCIPAL auquel il fait référence dans une expression de macro ou de visual basic.

Quelqu'un aurait-il une idée pour résoudre cette problématique ?
Merci d'avance

PS: Office Pro 2003 SP2

[Jean-Philippe André]

bonjour,
il me semble que si tu mets date(now) ca devrait marcher aussi,
sinon autre point, le resume Exit_MONBOUTON_Click ne sert pas à grand chose, vu que tu quittes la sub...

[Invité]

Bonjour

Juste pour faire avancer le Schmilblick

Tu veux ouvrir MONFORMPRINCIPAL alors qu'il est déjà ouvert avant puisque tu l'interroges dans ta boucle If.

Ce ne sera pas plutôt

Code :

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

MENU GENERAL

à mettre dans ton If ?

Starec

[El_Manu]

Je pense que le problème vient du fait que tu interroges une variable contenue dans un sous-formulaire lui-même contenu dans un formulaire qui n'est pas ouvert. Tu ne peux pas faire comme cela.

Pour faire ce que tu souhaites (si j'ai bien compris le problème) il faut que tu ouvres le formulaire sans l'afficher, que tu lances ton contrôle et une fois la condition respectée que tu l'affiches. Sinon, tu le refermes et tu ouvres le second ("MENU GENERAL".)

Code :

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

docmd.OpenForm "MONFORMPRINCIPAL", acNormal, , , , acHidden