Discussion :

[julio02200]

Bonjour,
voilà j'ai 2 formulaires sur lesquels il y a chacun 1 zone de liste.
Form1 -> Zone de liste 1
Form2 -> Zone de liste 2
Le form2 s'ouvre après avoir choisi une valeur dans la zone de liste1 du Form1.
dans ZL1 il y a des données comme ceci:a,b,c,d ...
dans ZL2 il y a des données comme ceci:aa,b,cc,d

Mon but est que si la valeur de la ZL1 est égale à la valeur de la ZL2 un formulaire Form3 s'ouvre et Form2 se ferme.

Ceci me génère une erreur car j'utilise un test sur la ZL un peu plus bas sur la ZL2.

Comment effectuer ceci? Merci d'avance

[guigui5931]

J'ai pas tout compris mais ce qui est sur c'est que tu ne peut pas aller chercher une valeur sur un formualire qui est fermé, alors soit tu ferme le formulaire plus tard, ou alors tu sauvegarde la valeur que tu veux tester dans une variable avant de fermer

[julio02200]

si je le ferme plus tard, le form3 se met en arrière plan alors que j'ai mis les propriétés pour qu'il aille en 1er plan...

[guigui5931]

Tu peut ne pas le fermer mais le rendre invisible

Code :

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

1
2
 
Formulaire.Visible=False

[julio02200]

Celà ne fonctionne toujours pas...je vous fais voir un bout de code et si quelqu'un peut me dire ce qu'il en pense?Merci
Ceci est le code du Form2

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
 
Private Sub Form_Load()
Liste2.Visible=true
Me.caption=Form_Form1.Liste1.value
Texte2.value=Form_Form1!Liste1.value
Me.Refresh
Me.Liste2.Requery
 
If(Me.Liste22.recordser(0)=Texte2.value) then
docmd.openform "Form3"
Form.Visible=false
end if
 
if (texte2.value="d") then
docmd.beep
end if
 
end sub

Après ceci, il y a un code pour récupérer la valeur qui sera choisie dans la Liste 2.

Code :

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

1
2
3
 
Myvariable=Liste2.value
Docmd.openform ("Form4")

[pafi76]

Code :

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

If(Me.Liste22.recordser(0)=Texte2.value) then

Ca veux dire quoi ca ? ca existe ?
Bref a part ca, access te génére t-il une erreur ? ou tu n'obtiens simplement pas le bon résultat visuel ?

[julio02200]

Erreur de frappe c'est

Code :

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

1
2
 
if(Me.Liste22.Recordset(0)=Texte2.value) then

Celà me sert à comparer la 1ère valeur de la liste2 à la valeur cliquée sur la liste 1 ...

Celà me fait que la Form ne se ferme pas ..

[pafi76]

Bon alors...
Ton formulaire a forcément un nom n'est-ce pas ?
Admettons qu'il s'appelle monFormulaire...

As-tu essayé :

Code :

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

 [Forms]![monFormulaire].visible = False

ou

Code :

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

 [Forms]![monFormulaire].close

[julio02200]

Mon formulaire à cacher s'appelle Form2

[pafi76]

Mon formulaire à cacher s'appelle Form2

Donc a tu essayé avec ce code :

Code :

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

[Forms]![Form2].close

???

[julio02200]

oui ceci ne fonctionne pas non plus

[pafi76]

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
 
Private Sub Form_Load()
Liste2.Visible=true
Me.caption=Form_Form1.Liste1.value
Texte2.value=Form_Form1!Liste1.value
Me.Refresh
Me.Liste2.Requery
 
If(Me.Liste22.recordser(0)=Texte2.value) then
docmd.openform "Form3"
Form.Visible=false
end if
 
if (texte2.value="d") then
docmd.beep
end if
 
end sub

Dans ce code, je vois que tu essaye de rendre invisible Form alors que ce code est dans le OnLoad de Form c'est bizarre...
Pourquoi ne pas ouvrir Form3 comme tu le fait, et fermer Form dans le OnLoad de Form3 ?