[AC-2003] Erreur d'exécution 3061 [Résolu]

[sbouchaibi]

Bonjour,

Je suis entrain de créer une base de données sous access.
J'ai crée un formulaire avec une liste modifiable. Lorsque je sélectionne une valeur dans cette liste, la zone de texte "Px" reçoit automatiquement la valeur correspondante de son enregistrement.

Pour réaliser cette opération, j'ai écris ce code suivant :

- Au niveau de la déclaration générale :

Code :

1
2
3
4
Option Compare Database
Option Explicit
Dim db As Database
Dim rs As Recordset

- Code de la zone de liste modifiable (si modification) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Carburant_Dirty(Cancel As Integer)
Dim ch
Dim sql
ch = carburant.Text
Set db = CurrentDb
sql = "select * from carburant where [carburant]= " & ch
Set rs = CurrentDb.OpenRecordset(sql)
If rs.EOF Then
MsgBox ("Prix introuvable")
Else
rs.MoveFirst
[Px] = rs("Px")
End If
 
End Sub

Une fois j'exécute le formulaire et je clique sur la sone de liste modifiable pour sélectionner un enregistrement, le message d'erreur suivant apparaît :

Erreur d'exécution '3061'
Trop peu de paramètre. 1 attendu

Lorsque je clique su débogage, il me pointe sur la ligne suivante :

Code :

Set rs = CurrentDb.OpenRecordset(sql)

Queluqu'un pourra m'aider SVP.

Merci d'avance

[loufab]

Bonjour,

Requete erronée.

Code :

"select * from carburant where [carburant]= " & ch

Soit ch est vide ou de type texte, soit [carburant] n'est pas un nom de champ de la table carburant.

Nommer un champ comme sa table c'est aller au devant de problèmes. Mais bon ! Rien ne t'empêche de te compliquer la vie.

Cordialement,

[sbouchaibi]

Je vais changer le nom du champ et je vous tiendrez au courant !

[sbouchaibi]

J'ai essayé de rendre ch texte et non pas numérique et j'ai changé le nom de la table :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim ch
Dim ch1
 
ch = Texte38
ch1 = "'" & ch & "'"
Texte36 = ch1
 
Dim sql2
 
Set db2 = CurrentDb
sql2 = "select * from T_Carburant where [Carburant]=" & ch1
Set rs2 = db2.OpenRecordset(sql2)
 
If rs2.EOF Then
    MsgBox ("Code RIB introuvable, vérifiez le Bénéficiare ! !")
Else
    rs2.MoveFirst
    Px = rs2("Px")
    '[lieu] = rs2("lieupaiement")
End If

Ca marche toujours pas

Même problème !

[loufab]

Que vaut ch1 ?
Que vaut Sql2 une fois qu'elle est composée ?

Il y a un tuto pour apprendre à debogger de requete sous VBA. C'est dans tutoriels.

[sbouchaibi]

Bonjour,

J'ai cherché la valeur de sql2, une fois exécuter.

Alors, si je mis texte36 = sql2, la zone de texte texte36 sort ce résultat :

Code :

select * from T_Carburant where [Carburant]='Essence'

[sbouchaibi]

Bon, j'ai rien compris. j'ai crée une nouvelle BD et j'ai importé les tables vers cette nouvelle BD et oups ca marche.

Merci pour votre conseil et à la prochaine.

bye