Discussion :

[PrincessGirl]

Bonjour,

J'essaie de passer une requête en paramètre d'une fonction et de récupérer le résultat dans un textbox qui est également passé en paramètre. Tout fonctionne correctement sauf lors de lorsque je tente d'affecter à la textbox le résultat de la requête.

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
 
Private Sub Listview_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Dim req As String
    Dim TextBox5 As TextBox 'ce textbox existe déjà sur la fenêtre ma si ne le déclare pas j'ai une erreur
 
 
    req = "SELECT NOM FROM PERSONNE WHERE ID_PERS = '" _
& Listview.ListItems(Item.Index).Text & "'"
 
    Call Module.Requete(TextBox5, req)
End Sub
 
Public Sub Requete(myTxt As TextBox, _
                               myQuery As String)
 
    Dim rs As New ADODB.Recordset 
 
    'Déclaration de la variable de connexion
    Dim cnx As ADODB.Connection
    Set cnx = New ADODB.Connection
 
    'Définition du pilote de connexion
    cnx.Provider = "Microsoft.Jet.Oledb.4.0"
    'Définition de la bdd
    cnx.ConnectionString = "bdd.mdb"
    'Ouverture de la base de données
    cnx.Open
 
    '
    '-----------------------------------------------------
    ' Exécution de la requête
    '-----------------------------------------------------
    On Error Resume Next
        Err.Clear
        rs.Open myQuery, cnx, adOpenStatic, adLockReadOnly
 
        If Err.Number <> 0 Then
            MsgBox "Code Erreur : " & Err.Number & vbCrLf & vbCrLf _
                 & "Description : " & Err.Description & vbCrLf
            GoTo Fin
        End If
    On Error GoTo 0
    MsgBox Trim(rs.Fields("NOM").value)
 
    '
    '-----------------------------------------------------
    ' LE PROBLÈME EST ICI
    ' Erreur : Variable objet ou variable bloc With non définie
    '-----------------------------------------------------
    With myTxt
       .Text = Trim(rs.Fields("NOM").value)
    End With
 
Fin:
    rs.Close
    Set rs = Nothing
End Sub

[Theze]

Bonjour,

Ce ne serait pas plus judicieux d'utiliser une fonction plutôt qu'une Sub pour retourner le résultat ? Ou alors, utilise une variable String que tu affecte ensuite au TextBox plutôt que de passer l'objet lui même.

Hervé.

[Invité]

Bonjour

Je pense que tu dois avoir une erreur sur l'open du recordset et que tu ne peux voir car tu la shunte avec On Error Resume Next
, ce qui n'est pas bon du tout comme gestion d'erreur.

De plus ici :

Code :

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

cnx.ConnectionString = "bdd.mdb"

Je pense qu'il faudrait le chemin en entier de la base de données.

Philippe

[PrincessGirl]

Bonjour,

Ce ne serait pas plus judicieux d'utiliser une fonction plutôt qu'une Sub pour retourner le résultat ? Ou alors, utilise une variable String que tu affecte ensuite au TextBox plutôt que de passer l'objet lui même.

Hervé.

Pourquoi faire compliquer quand on peut faire simple ?
C'est simple et opérationnel. Il fallait juste y penser. Merci beaucoup !
Merci également à Philippe.