Discussion :

[JDev_]

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,

[Mr.Mof]

Bonjour,

Dans ta requête SQL qui te permet d'ouvrir ton recordset, il faut que tu précise le nom de la table dans lequel se trouve le champ à récupérer :

Code :

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

"SELECT MaTable.MonChamp FROM MaTable WHERE MaTable.MonChamp like 'test'

De plus, tu peux utiliser la fonction Dlookup si tu cherches à ne récupérer qu'un seul enregistrements à la place d'utiliser un recordset:

http://office.microsoft.com/en-us/ac...001228825.aspx

Cordialement.

[nico84]

Bonjour,

Une listbox peut avoir plusieurs colonnes, par exemple le nom de la banque et son code. Une fois que l'utilisateur a fait un choix :
listbanque.column(0) (ou listbanque) contient le nom de la banque choisie
listbanque.column(1) contient son code

Ainsi pas de vba donc pas de bug

[Invité]

Bonjour

Le Like ne servira à rien sans caractère générique * : http://loufab.developpez.com/tutorie...operateurlike/

Et de toute façon un = serait mieux qu'un Like, non ? Tu recherches plusieurs banques ?

De plus il y a un tuto sur les fonctions de domaines en Français pour la fonction DLookup : http://starec.developpez.com/tuto/fonctionsdomaines/

Philippe

[Taylorised]

Bonjour,

Comme le dit Philippe, utilise "=" plutôt que LIKE. Sinon quelle erreur rencontres-tu ? Met un point d'arrêt quelque part et regarde les valeurs prisent par tes variables. Tient nous au courrant

[JDev_]

Bonjour,

Désolée pour ma réponse tardive...

Je vous rermercie pour vos réponses Taylorised, Philippe JOCHMANS, nico84 et Mr.Mof !

Comme ont pu le dire Taylorised, Philippe JOCHMANS et Mr. Mof, il fallait remplacer le 'LIKE' par un "=".

nico84, ta solution avec "listbanque.column(n)" m'a été utile pour résoudre un autre problème.


Cordialement,