Discussion :

[Moundir]

Bonjour,
J'ai créé un formulaire tout simple qui comprend une liste déroulante de choix et un bouton.

Dans un module VB j'ai une boucle qui parcourt une table de ma base de données.

Je voudrais que lorsque la condition dans ma boucle est remplie:
- La boucle se met en pause
- Une petite fenetre contenant le formulaire apparait
- Une fois que l'utilisateur à choisi un item de la liste et cliqué sur le bouton, la valeur de l'item est stockée dans une variable, le formulaire se ferme et la boucle reprend.

Je met le code de ce que j'ai fait. Actuellement la boucle ne se met pas en pause (pourtant j'ai activé la propriété modal dans le formulaire) et le formulaire ne s'ouvre pas dans une nouvelle fenetre

Merci d'avance

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
'variable globale 
Public LibelleAMUeventuel As String
 
Sub TrouverTypeAMU()
 
    Dim rsFiche As DAO.Recordset
    Dim db As DAO.Database
 
    Dim strRequeteSQL As String
 
    Set db = Application.CurrentDb
    Set rsFiche = db.OpenRecordset("Select * from Fiches")
 
    rsFiche.MoveFirst
 
    Do Until rsFiche.EOF
        If rsFiche("Existence AMU") = True Then
            LibelleAMUeventuel = ""
            DoCmd.OpenForm "frmChoixTypeAMU"
            rsFiche.Edit
            rsFiche!LibelleAMU = LibelleAMUeventuel
            rsFiche.Update
        End If
        rsFiche.MoveNext
    Loop
 
    rsFiche.Close
 
    Set rsFiche = Nothing
    Set db = Nothing
 
End Sub
 
 
 
'code du bouton de mon formulaire
Private Sub ValiderChoixTypeAMU_Click()                
    If Me.listeChoixTypeAMU.Value = "" Then
        MsgBox "Vous n'avez rien selectionné"
    Else
        LibelleAMUeventuel = Me.listeChoixTypeAMU.Value
        Me.Hide
        Unload Me
    End If
End Sub

[jimbolion]

Moundir,

Peux tu essayé ainsi, j'ai modifié l'appel du formulaire et la technique de fermeture (le hide n'étant pas de circonstance)

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
'variable globale 
Public LibelleAMUeventuel As String
 
Sub TrouverTypeAMU()
 
    Dim rsFiche As DAO.Recordset
    Dim db As DAO.Database
 
    Dim strRequeteSQL As String
 
    Set db = Application.CurrentDb
    Set rsFiche = db.OpenRecordset("Select * from Fiches")
 
    rsFiche.MoveFirst
 
    Do Until rsFiche.EOF
        If rsFiche("Existence AMU") = True Then
            LibelleAMUeventuel = ""
            DoCmd.OpenForm "frmChoixTypeAMU",acNormal, , , , acDialog
            rsFiche.Edit
            rsFiche!LibelleAMU = LibelleAMUeventuel
            rsFiche.Update
        End If
        rsFiche.MoveNext
    Loop
 
    rsFiche.Close
 
    Set rsFiche = Nothing
    Set db = Nothing
 
End Sub
 
 
 
'code du bouton de mon formulaire
Private Sub ValiderChoixTypeAMU_Click()                
    If Me.listeChoixTypeAMU.Value = "" Then
        MsgBox "Vous n'avez rien selectionné"
    Else
        LibelleAMUeventuel = Me.listeChoixTypeAMU.Value
        DoCmd.Close
    End If
End Sub

JimBoLion

[Moundir]

Bonjour,

Merci beaucoup, ca fonctionne très bien !

Il me reste un problème:

Code :

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

Me.listeChoixTypeAMU.Value

me retourne le rang de ma sélection dans la liste.

Comment puis-je récuperer le texte que j'ai sélectionné?

Le contenu de la liste provient d'une table qui ressemble a ca:
libelletype | Famille
MU1_______1
MU10______1
MU111_____1
MU45______2
MU46______3
MU47 _____3

L'idéal serait de pouvoir récuperer directement la valeur de Famille quand je selectionne un libellé dans la liste du formulaire.

[jimbolion]

Moundir,

Ta réponse est ici : http://access.developpez.com/faq/?pa...#ListBoxColumn

donc Me.listeChoixTypeAMU.column(0).Value devrait fonctionner

JimBoLion

[Moundir]

Parfait, ca fonctionne nickel !

Merci beaucoup !