Discussion :

[jazzybluesy]

Bonjour a tous,
la question semble peut etre simple mais je n ai pas trouve de reponse satisfaisante.
Mon souhait est simple : je veux creer un formulaire pour que l utilisateur rentre des parametres que je reprend ensuite pour faire fonctionner mon programme vba. (un userform excel en fait)

Dans Access bizarrement je suis confronte a deux pbs :
1) Quand j ecris dans mon module, DoCmd.OpenForm NomdeMonForm, le module ne s arrete pas pour attendre que l utilisateur rentre une valeur. Du coup ca plante.

2)Comment je peux recuperer une valeur de mon formulaire pour l integrer dans mon programme ?

J ai trouve en fait une solution mais elle ne me parait pas du tout satisfaisante :

Code :

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

1
2
3
4
 
Private Sub Form_Close()
Call Maprocedure(parametres entree par l utilisateur)
End Sub

Je veux pas passer par la. je veux faire comme avec excel, tout simplement !

[ClaudeLELOUP]

Bonjour,


1° avec :

Code :

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

DoCmd.OpenForm NomdeMonForm

tu ouvres le formulaire ;

2° l'utilisateur prend tout le temps qu'il veut pour compléter les champs ;

3° tu devrais te rendre capable de détecter que l'utilisateur a terminé, par exemple, il clique sur un bouton ;

4° à la suite de cet événement, tu reprends la main ;

5° tu accèdes au contenu des différents contrôles avec la syntaxe :

Code :

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

forms!LeNomDuFormulaire!LeNomDuContrôle

ou simplement :

Code :

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

Me.LeNomDuContrôle

si ton code est inclus dans le module du formulaire.

[jazzybluesy]

Mon probleme c est que apres l ouverture de mon form j ai mon code qui continue ! Imaginons cette situation :

Code :

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

1
2
3
4
 
 
DoCmd.OpenForm "frm_Input"
MsgBox Forms!frm_Input!strInputYear

Ce que je veux, c est que mon form s ouvre et que mon code s arrete pour laisser le temps a l utilisateur de mettre la valeur qu il souhaite dans le controle strInputYear.
Or pour l instant j ai une erreur parceque le form s ouvre et la msgbox veut tout de suite s ouvrir aussi : du coup evidemment strInputYear est vide !

Dans Excel quand on ecrit le meme code, ce n est qu une fois que l utilisateur a rentre qc et ferme le userform que la msgbox s affiche.

Comment je dois faire ?

[ClaudeLELOUP]

C'est ce que j'ai essayé de t'expliquer plus haut.
Il y a plusieurs étapes :

- avec du code, tu ouvres le formulaire, c'est mon 1° ;

- quand tu apprends que l'utilisateur a terminé son job, tu exécutes un autre code qui récupère les données du formulaire (ou de sa source) et tu en fais ce que tu dois. C'est le point 4° et suivant.

[jazzybluesy]

Si je comprends ce que tu dis ca veut dire qu il faut que je segmente mon projet en autant de parti qu il y a de formulaire ??

Code :

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

1
2
3
4
5
6
 
'Plein de code ... (Partie 1)
 
'A un moment j ai besoin d une valeur rentre par l utilisateur
 
'Plein de code (Partie 2)

Faut il que je fasse :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Partie1()
'Plein de Code (Partie 1)
DoCmd.OpenForm "Monform"
 
End Sub ' ???
 
Private Sub Form_Close
Call Partie2()
End Sub
 
Sub Partie2()
'Plein de code - la suite
End Sub

Ca me parait etre une pietre solution !!

[ClaudeLELOUP]

Désolé d'avoir perdu ton temps.

[jazzybluesy]

?? ca veut dire qu il n y a que cette solution ?