Discussion :

[meandreux]

Bonjour,

j'ai un premier formulaire Form1 qui possède un bouton de commande Cmd1.

Ce bouton de commande Cmd1 ouvre un formulaire Form2.

Tant que l'utilisateur n'a pas saisi OK dans Form2, ou n'a pas fermé Form2 (par la petite croix en haut à droite), je veux que le code qui est sous cmd1 ne se poursuive pas.

Je ne sais pas comment coder ça sous access et malgré toutes mes recherches, je n'ai rien trouvé.

Merci pour votre aide

[FreeAccess]

Bonjour,

.....je veux que le code qui est sous cmd1 ne se poursuive pas.

...alors si tu ne veux pas que ce code se poursuive tant qu'une condition n'est pas rempli, pourquoi le mettre sur ton Form1...

-Le bouton [cmd1] du Form1 ouvre le Form2...(et c'est tout....)
-Sous Form2, quand ta condition est remplie (saisie de OK ou sur la propriété "Sur fermeture"...).tu exécute le code que tu souhaite.

Maintenant, comme tu ne nous dis pas ce que tu souhaite réaliser après la réalisation de ta contition.....il est difficile de t'apporter une aide précise.

[EDIT] Tu peux également en fonction de ce que tu souhaite réaliser, utiliser une InputBox pour saisir une valeur....puis en fonction de la valeur saisie, exécuter la suite de ton code du Form1. (Boucle If.....Next....ou Select Case......End Select).....regarde l'aide pour plus de précision.....

[Siguillaume]

Bonjour!
Je pense que tu devrais dans le code du bouton cmd1, mettre un if pour la valeur OK, qui sera saisi dans form2. Si ce if n'est pas verifié, le reste du code ne s'exécute pas. Ok, doit pouvoir "passer la main" à cmd1...
Mais, je serais encore plus clair, si tu pouvais poster les codes de ces deux boutons.

[meandreux]

Eh non c'est une astuce différente que j'utilise et bien précieuse à mon goût.

Dans un module , il faut créer la fonction suivante :

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
 
Public Function FormulaireActif(Recherche As String) As Boolean
 
Dim DBCourante As Database
Dim Formulaire As Form
 
Set DBCourante = CurrentDb()
FormulaireActif = False
For Each Formulaire In Forms
If (Formulaire.Name = Recherche) Then
FormulaireActif = True
End If
Next
 
End Function

sous le bouton de commande de Form1, il faut mettre le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Commande12_Click()
'début des instructions
DoCmd.OpenForm "form2", acNormal
While FormulaireActif("form2")
DoEvents
Wend
'fin des instructions
End Sub

ACCESS vérifie si le formulaire est actif.
Ne pas oublier Doevents sinon vous êtes bon pour planter votre base ACCESS.


@+