Bonjour,

Je travaillle sur une formulaire Access 2007.

Ma listbox contient les enregistrements de la colonne NOM_BANQUE de ma table Banque.

Je souhaite récupérer la sélection sur NOM_BANQUE dans ma variable globale String txt

ex : Si Sélection NOM_BANQUE = BANQUE1 alors txt = BANQUE1

En effet, uen fois le nom de la banque récupérée dans ma variable txt, je souhaite l'utiliser dans une requête qui me permettra de trouver le CODE_BANQUE qui lui est associé dans ma table Banque.

Je ne vois pas en quoi mon code est incorrect :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Sub InfosBanque(TypeAffich As Integer)
 
 Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim mySQL As String
    Dim str_Code_Banque As String  ' variable donnant le CIB d'une banque
 
    Dim i As Integer
 
    On Error GoTo Err_InfosTxt
 
    Set oDb = CurrentDb
 
    'Parcours de la listbox
 
    For i = 0 To Form_Formulaire1.ListBanque.ListCount - 1
 
        'Vérification que l'élement est sélectionné
        If Form_Formulaire1.ListBanque.Selected(i) = True Then
 
 
            'récupération d 'une nom de la banque sélectionnée
            txt = Form_Formulaire1.ListBanque.ItemData(i)
 
    'Nous fermons les connexions
       End If
     Next i
 
 
        mySQL = "SELECT CODE_BANQUE"
        mySQL = mySQL & " FROM BANQUE"
        mySQL = mySQL & " WHERE BANQUE.NOM_BANQUE Like '" & txt & "'"
 
 
Set oRst = oDb.OpenRecordset(mySQL, dbOpenSnapshot)
str_Code_Banque = oRst.Fields(0)
 
 oRst.Close
    oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing
 
 
    'Nous pouvons maintenant attribuer à notre Label ou MsgBox le contenu de notre variable "str_Code_Banque "
     Select Case TypeAffich
            Case Is = -1       'met à jour le Label
 
                  Form_Formulaire1.Txt_Code_Banque.ControlSource = _
                 "=" & """" & str_Code_Banque & """"
 
            Case Is = 0
                   MsgBox str_Code_Banque  'Ouvre la MsgBox avec le même résultat
            End Select
 
 
 
Exit_InfosTxt:
   Exit Sub
 
Err_InfosTxt:
  MsgBox Err.Description
   Resume Exit_InfosTxt
 
End Sub
Je vous remercie pour votre aide.

Cordialement,