Discussion :

[jevany]

Bonjour,
je suis en train de créer un questionnaire sur Access
j'ai une base access (2003) qui contient
une "tableQuestion "
Champ1 :QuestionOuverte
Champ2 : question2
Champ3 : question3
Champ4 : question3
Champ5 : question4
plus des champs de réponse.......
et un champ : Champformulaire (qui contient la valeur F_1 ou F_2 ou F_3)
j'ai créé 3 formulaires
F_1_QuestionOuverte (champQuestionOuverte er ReponseOuverte)
F_2_1question1reponse
F_3_XquestionsXreponse

je suis dans le formulaire F_1 et je voudrais atteindre l'enregistrement suivant en appuyant sur un bouton :
Le bouton créé contient le procedure evenementielle suivante :
docmd.gotorecord, ,acNext
Tout va bien
mais je voudrais atteindre l'enregistrement suivant en pouvant choisir un des 3 formulaire.
Ex : je suis dans l'enregistrement 1 et l'enregistrement 2 contient plusieurs (x)questions. je voudrais donc afficher l'enregistrement 2 MAIS dans le formulaire F_3 (F_3_XquestionsXreponse)

Je ne sais pas comment faire pour récupérer la valeur du champ : Champformulaire et en fonction de cette valeur afficher le formulaire 1 2 ou 3
j'espere avoir été suffisament clair.
PS : je ne suis vraiment pas un pro d'Acces

Merci à ceux qui vont répondre

[stigma]

Pour accéder à un autre formulaire :

Code :

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

Forms!Formulaire2!Text1

[willcartley]

Ou sinon teste çà si le formulaire est encore ouvert :

Code :

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

Form!NomduFormulaire.NomDuChamp.Value

si le formulaire que t'essayes de joindre est fermé, tu peux toujours essayer de garder cette valeur dans une variable plublic à sa fermeture et y accéder quand bon te semble.

[jevany]

j'avais plutot pensé à quelque chose comme ça

Private Sub Question_Suivante
DoCmd.GoToRecord, ,acnext
If Me.recordset.champFormulaire = "F2" then
Docmd.openForm "F2"
else
DoCmd.openForm "F1"
End If

End Sub

ou champFormulaire est le champ d'un enregistrement qui contient le formulaire a choisir

mais le """"" If Me.recordset.champFormulaire = "F2" then """" bugge

donc si vous avez une idée

[jevany]

j'ai fini par trouver et ça marche

Désolé pour le bruit et merci pour les réponses qui m'ont orienté

Private Sub Question_Suivante
DoCmd.GoToRecord, ,acnext
If Me!champFormulaire = "F2" then
Docmd.openForm "F2"
else
DoCmd.openForm "F1"
End If

End Sub

[stigma]

Comment détecter si un formulaire est chargé

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
16
17
18
19
Sub Test()
 
      ‘--------------------  Permet les MAJ, que le formulaire soit ouvert ou fermé
      If IsLoaded("F_Fiches_Ajout_Traitement") Then Forms!F_Fiches_Ajout_Traitement.Refresh
 
End Sub
 
 
Public Function IsLoaded(ByVal chNomForm As String) As Boolean
 
    '---------------------------  Renvoie Vrai si le formulaire spécifié est chargé.
    Const conModeCréation = 0
    Const conEtatObjFermé = 0
    IsLoaded = False
    If SysCmd(acSysCmdGetObjectState, acForm, chNomForm) <> conEtatObjFermé Then
        If Forms(chNomForm).CurrentView <> conModeCréation Then IsLoaded = True
    End If
 
End Function

PS : il y a un un truc avant le ; que je ne peux pas virer ?!