Discussion :

[Guignon]

Bonjour !

Voilà quetion basic et rere,rereposé certain diront mais je début en VBA et ce n'est pas chose aisé. Donc j'aimerais juste récupérer des données dans une BDD Access et les afficher dans une zone de texte.

Sur l'IHM il y a une zone de saisi, ou l'on doit renseigner un chiffre. Ce chiffre va ensuite être utilisé dans la requête. Le chiffre est envoyé via un boutton, ou est appellé l'événement Clik qui va envoyer le chiffre à la requête et je voudrais que les résultats soit affiché dans une zone de texte.

J'ai pas mal chercher sur le site, je me suis inspiré d'un bout de code déjà donnée, le voici :

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
 
Private Sub Button_Recup_PP_Click()
    Dim ID_RECUPERE As Integer
    ID_RECUPERE = Label_ID_RECUPERE.Value
    MsgBox ID_RECUPERE 
 
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim StrResult As String
    Set oDb = CurrentDb
    Set La_Requete = "SELECT CHAMP1, CHAMP2 FROM TABLE1 WHERE CHAMP2 = " & ID_RECUPERE 
    Set oRst = oDb.OpenRecordset(La_Requete)
If oRst.EOF Then   'si pas d'enregistrements
Me.Liste_ZoneTe.ControlSource = "=" & """Pas d'enregistrements"""
Else  'crée une boucle sur les enregistrements de la colonne 1
StrResult = ""
While Not oRst.EOF
    StrResult = StrResult & " -  " & oRst.Fields(0) & "." & vbCrLf
    oRst.MoveNext
Wend
  ' affiche les résultats en colonne
   Me.Liste_PointsPrelev.ControlSource = "=" & """ Les résultats de ta requête sont:" & vbCrLf & StrResult & """"
 
End If
 
oRst.Close
oDb.Close
Set oDb = Nothing
Set oRst = Nothing
 
Exit_Button_Recup_PP_Click:
    Exit Sub
 
Err_Button_Recup_PP_Click:
    MsgBox err.Description
    Resume Exit_Button_Recup_PP_Click
End Sub

Le code se trouve dans un formulaire.

Merci d'avoir lu.

[Guignon]

Bon enfaite je fais tous par requête prédéfini par Access du coup...