Stop dans boucle While en attente evenement click [Résolu]

[meud007]

Bonjour à tous,

Je cherche, je cherche mais je ne trouve pas.

J'ai créé une base de données sur Excel qui gère des produits, des lots de produits, des protocole de réactifs (mélange de plusieur produits et/ou réactifs) et des lots de réactifs (fabriqués selon les protocoles mentionnés plus haut) que je souhaite maintenant transposer sur Access.

Grosso modo, j'y arrive sauf un point qui me pose problème:

Pour créer un lot de réactif, je récupère le protocole par une requete. Puis, pour chaque composant du protocole, je voudrais afficher un formulaire permettant de choisir le lot correspondant. Sur Excel, je masquais et réaffichais le UserForm à l'interieur d'une boucle For Each:

Code :

1
2
3
4
For each Composant in Protocole.composition
 Boite.Hide
 Boite.Show
next

Le code attendait alors la selection d'un ComboBox et la Validation par Click sur un bouton OK.

Sur Access, je n'y arrive pas...
La boucle est comme suit:

Code :

1
2
3
4
5
6
set r=currentdb.openrecordset("Select * From TabProtocoleComposition Where nProtocole=" & nProtocole )
 
while not r.EOF
 'Là, je voudrais bien reprendre la main sur le formulaire
 r.movenext
Wend

Un petit coup de main pour un grand merci ???

Dim

[loufab]

Bonjour,

Regarde la fonction inputbox.

Cordialement,

[meud007]

Merci pour ta réponse, loufab, mais le remplissage du combo est basé sur une requête qui elle même dépend du type de composant de la boucle While, c'est à dire :

Composant 1: Méthanol (=Produit): Recherche des lots en cours dans la table TabLotProduit
Composant 2: Tampon Phosphate (=Réactif Maison): Recherche des lots en cours dans la table TabLotReactif

Il faut, pour aider l'utilisateur à choisir, afficher des infos complémentaires comme la date de réception, le lieu de stockage, etc...

Bref, il me faut un formulaire.

J'ai beaucoup cherché, j'ai vu des trucs comme la propriété Modal du Formualaire, ou la Fonction ShowModal qui ne semble pas exister dans Access, encore DoEvents, mais rien ne marche.

Une autre idée peut être ???? Je prends tout et j'essaye.

D'avance merci

[loufab]

Ouvre ton formulaire en mode acDialog. C'est le 2ème paramètre de la commande

Code :

docmd.openform

Il va attendre la fermeture pour continuer. Il te faut stocker, lors de la fermeture, la valeur sélectionnée dans une variable globale.

Cordialement,

[meud007]

Un grand merci, ça progresse !

Chez moi, c'est le 6e argument de la commande Docmd, mais il semble y avoir encore un problème.

Apparemment, le code s'arrête à l'ouverture du formulaire (j'ai un formulaire test avec un seul bouton de commande).

Mais quand je clique sur OK pour fermer le formulaire test (DoCmd.Close), la base de donnée se ferme avec le formulaire, au lieu de revenir à la suite du code appelant (suite de la boucle). Je ne comprends pas.....

[meud007]

Super, ça marche !!!!

Impeccable et encore merci