Bonjour

J'ai crée un formulaire en mode tabulaire qui me permet d'acceder à d'autre formulaire en cliquant sur le numero de chrono.j'ai 2 type de formulaire ( F1, F2) au quels je peux acceder peuvent avoir le meme identifiant dans ce cas j'ai fait de sorte que quand ca se produit j'accede au formulaire F2 .

le code que j'ai ecris à bien marché pour les 3 premier enregistrement,et pour le reste j'accede tjs au formulaire type F1 .

ci- apres le code

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
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Chrono_solicitation_Click()
 
DoCmd.OpenForm "Accueil Entreprise"
DoCmd.OpenForm "Accueil_labo"
DoCmd.OpenForm "Accueil_Independant"
 
If Forms![Accueil Entreprise]!id.Value = Me![Chrono solicitation].Value Then
DoCmd.Close acForm, "Accueil Entreprise", acSaveNo
DoCmd.Close acForm, "Accueil_labo", acSaveNo
DoCmd.Close acForm, "Accueil_Independant", acSaveNo
DoCmd.OpenForm "Accueil Entreprise", acNormal, , "[id] =" & Me.[chrono]
 
ElseIf Forms![Accueil_labo]!id.Value = Me![Chrono solicitation].Value Then
DoCmd.Close acForm, "Accueil_labo", acSaveNo
DoCmd.Close acForm, "Accueil Entreprise", acSaveNo
DoCmd.Close acForm, "Accueil_Independant", acSaveNo
 
DoCmd.OpenForm "Accueil_labo", acNormal, , "[id] =" & Me.[chrono]
 
ElseIf Forms![Accueil_Independant]!id.Value = Me![Chrono solicitation].Value Then
DoCmd.Close acForm, "Accueil_labo", acSaveNo
DoCmd.Close acForm, "Accueil Entreprise", acSaveNo
DoCmd.Close acForm, "Accueil_Independant", acSaveNo
 
DoCmd.OpenForm "Accueil_Independant", acNormal, , "[id] =" & Me.[chrono]
Else: DoCmd.OpenForm "Accueil MI", acNormal, , "[chrono] =" & Me.[chrono]
DoCmd.Close acForm, "Accueil_labo", acSaveNo
DoCmd.Close acForm, "Accueil Entreprise", acSaveNo
DoCmd.Close acForm, "Accueil_Independant", acSaveNo
 
End If