Impossible 'activer les cases à cocher [Résolu]

[riri2938]

Bonjour,
sur le projet joint, j'ai utilisé un bout de code pour ajuster le formulaire à la hauteur de texte en fonction des réponses pour ce quizz (4 réponses possibles). ce formualire, un quizz, permet d'afficher la question et le choix des réponse. une case à cocher permet ensuite de choisir le texte choisi. malheureusement, je n'arrive pas à cocher les cases sur les choix de réponse 2, 3 et 4. Quelqu'un pourrait il jeter un coup d'oeil pour m'aider à trouver la solution
mais je pense que le mieux est que vous regardiez le projet pour mieux comprendre
Nota : Je travaille sous Access 2000

[loufab]

Bonjour,

Sur le Form_current (sur Activation) tu fais un déplacement d'enregistrement.

Code :

1
2
3
4
5
    If abc < cba Then
    DoCmd.GoToRecord acDataForm, "frmApis", acNext
    ElseIf abc = cba Then
    DoCmd.GoToRecord acDataForm, "frmApis", acGoTo, 1
    End If

C'est cela qui empêche la prise en compte de la modification de l'enregistrement.

Cet événement se produit à chaque changement d'enregistrement.

Cordialement,

[riri2938]

merci Loufab pour ta réponse.
J'ai essayé d'effectuer la modification proposée mais ensuite, le formulaire ne se dimensionne plus en fonction de la taille et du nombre de réponses
Peut-être qu'il ne faut pas mettre cette routine dans Form_Current mais plutôt dans Form_Load pour l'ouverture et ensuite comme procédure lors du clic sur les boutons Next ou Preview
Je vais essayer cela, mais si tu as d'autres idées, n'hésites pas.
J'en profite pour féliciter tous les acteurs de ce forum qui est vraiment un support exceptionnel car bien soubent on se sent seul face à nos routines VBA

[riri2938]

effectivement en déplaçant ma procédure vers Form_Load et vers les boutons Next et Previous sur l'événement OnClick, cela fonction et permet donc d'avoir un formulaire AutoExtensible et AutoReductible en mode continu, voir même sur un mode Form et subForm.