Discussion :

[ff441]

Bonjour, je tourne en rond depuis un bon moment donc je m'en remet à vous.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ListeBoitier_AfterUpdate() 'Le texte de listebox est chargé'
 
Dim odb as DAO.Database
Dim oRst as DAO.Recordset
 
Dim description as string
description = ListeBoitier.Text 'Valeur 125 par défault
 
Set odb = CurrentDb<div style="margin-left:40px">Set oRst = odb.recordset("SELECT des_boitier,pn_boitier FROM boitier_electrique WHERE pn_boitier=" & description
msgbox(oRst.Fields(0))</div>end sub

J'obtiens le message (Erreur d'exécution, (opérateur absent) dans l'expression "pn_boitier=125"

Si j'écris ceci, pas de problème, la requête me renvoit la description souhaitée du boitier.

Code :

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

Set oRst = odb.recordset("SELECT des_boitier,pn_boitier FROM boitier_electrique WHERE pn_boitier='125'"

Pouvez-vous m'indiquer ce que je dois modifier pour mettre une variable dans ma requete.

Merci de votre aide;

[Merryvor]

As-tu inséré un

Code vb :

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

1
2
 
Debug.Print ListeBoitier.Text

avant la ligne d'erreur pour vérifier la valeur exacte de ce que tu passes en argument?

Si ta liste boitier est une liste et non une liste déroulante, il faut préciser quelle ligne tu veux prendre en compte (j'ai déjà eu le cas, listBox.Text ne retourne rien, mais listbox.ItemData(0).Text retourne bien la première valeur).

Si c'est une liste déroulante, Me.ListeBoitier (sans.Text) suffit aussi.

Que te retourne le Debug.Print?

[ff441]

Salut et merci de ton aide.

Bon effectivement j'ai pensé à un problème de variable retournée par ma liste déroulante.

Elle me retourne la valeur 125, ce qui est bon.

J'ai même tenté ceci :

Code :

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

1
2
3
4
5
Dim description as string
description=125
 
Set odb = CurrentDb<blockquote>Set oRst = odb.recordset("SELECT des_boitier,pn_boitier FROM boitier_electrique WHERE pn_boitier=" & description
msgbox(oRst.Fields(0))

J'obtiens la même erreur.

[Merryvor]

il est vrai que par cette méthode, j'ai souvent eu des soucis aussi, vis-à-vis de la requête SQL, j'ai donc opté pour une autre solution, où la requête est créé dans la base, puis le code VBA va la chercher:

Code vb :

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
 
Sub MergeBM()
'Définitions
    Dim sql As String
    Dim database As DAO.database
    Dim qry As DAO.QueryDef
    Dim rs As DAO.Recordset
'Implémentations
    Set database = Application.CurrentDb
    Set qry = database.QueryDefs("RequêteTypePassage")
    qry.Parameters("PARAM_NUM").Value = Forms!CréationConvention!Modifiable27
    Set rs = qry.OpenRecordset
'Conditions
    Select Case rs.Fields(0)
        Case "façade"
            Call MergeFacade
        Case "surplomb"
            Call MergeSurplomb
    Case Else
        MsgBox ("Pas de trame type définie pour ce type de passage : " & Chr(34) & Forms!CréationConvention!SubChercheFiche!TypePassage & Chr(34))
    End Select
End Sub

avec un paramètre dans la requête:

Code SQL :

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

1
2
3
4
5
 
PARAMETERS PARAM_NUM Long;
SELECT Convention.TypePassage
FROM Convention INNER JOIN Signature ON Convention.N°Convention=Signature.N°Convention
WHERE Signature.N°Propriétaire=PARAM_NUM;

ça change ta manière de faire, mais de mon point de vue, c'est plus simple à gérer, je peux tester le code d'un côté, et la requête de l'autre.

[ff441]

Merci, vu que je débute, j'aurais pas de soucis à changer les habitudes

Je teste de suite cette manière.

[f-leb]

Bonjour,

Code :

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

Set oRst = odb.recordset("SELECT des_boitier,pn_boitier FROM boitier_electrique WHERE pn_boitier=" & description

Problème de méthode non ?

Code :

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

Set oRst = odb.OpenRecordset(…)

[ff441]

Problème résolu.

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
Public Sub ListeBoitier_AfterUpdate()
ListePeigne.Requery


'Définitions
    Dim sql As String
    Dim database As DAO.database
    Dim qry As DAO.QueryDef
    Dim rs As DAO.Recordset
    'Implémentations
    Set database = Application.CurrentDb
    Set qry = database.QueryDefs("desboitiersurboitier") 'Nom de la requête
    qry.Parameters("PARAM").Value = ListeBoitier 'Nom du paramètre de la requête
    Set rs = qry.OpenRecordset
    
    MsgBox (rs.Fields(1))

Code Sql

Code :

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

1
2
3
4
 
SELECT boitier_electrique.pn_boitier,boitier_electrique.des_boitier
FROM boitier_electrique
WHERE (((boitier_electrique.pn_boitier)=[PARAM]));

[ff441]

Bonjour,

Code :

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

Set oRst = odb.recordset("SELECT des_boitier,pn_boitier FROM boitier_electrique WHERE pn_boitier=" & description

Problème de méthode non ?

Code :

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

Set oRst = odb.OpenRecordset(…)

Oui j'avais mal écrit mais j'avais bien noté openrecordset dans mon appli.

Pour autant çà ne marchait pas