Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access code erreur 3061

code erreur 3061

3 réponses
Avatar
bonjour à tous,

j'ai le code suivant:



*************************
Option Compare Database
Option Explicit

Private Sub Commande5_Click()
Dim myusine As DAO.Recordset
Dim VarUsine As String

VarUsine = Me.lboxusine.Value

Set myusine = CurrentDb.OpenRecordset("Select * from tblUsines where
nomusine =" & VarUsine)

myusine.MoveFirst
MsgBox myusine.Fields(1).Value


myusine.Close
Set myusine = Nothing
End Sub
*************************

Systématiquement il me renvoie l'erreur 3061 lors de l'exécution, je cherche
en vain.

Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gafish
Bonjour,

VarUsine = Me.lboxusine.Value

Set myusine = CurrentDb.OpenRecordset("Select * from tblUsines where
nomusine =" & VarUsine)

Systématiquement il me renvoie l'erreur 3061 lors de l'exécution, je
cherche en vain.


Qu'as tu dans ta zone Me.lboxusine.Value. Si c'est null ca peut expliquer le
souci. A la limite, entre les deux lignes ci-dessus, fais un
Msgbox VarUsine
voir ce qu'il a dans le ventre :)
Sinon de quel type est nomusine ? S'il s'agit de type texte, il faut que tu
modifies comme suit ta requête :

Set myusine = CurrentDb.OpenRecordset("Select * from tblUsines where
nomusine ='" & VarUsine & "';")

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Merci beaucoup,
Ma variable est effectivement de type string.

Ah ces "" et '' .


"Gafish" a écrit dans le message de news:

Bonjour,

VarUsine = Me.lboxusine.Value

Set myusine = CurrentDb.OpenRecordset("Select * from tblUsines where
nomusine =" & VarUsine)

Systématiquement il me renvoie l'erreur 3061 lors de l'exécution, je
cherche en vain.


Qu'as tu dans ta zone Me.lboxusine.Value. Si c'est null ca peut expliquer
le
souci. A la limite, entre les deux lignes ci-dessus, fais un
Msgbox VarUsine
voir ce qu'il a dans le ventre :)
Sinon de quel type est nomusine ? S'il s'agit de type texte, il faut que
tu
modifies comme suit ta requête :

Set myusine = CurrentDb.OpenRecordset("Select * from tblUsines where
nomusine ='" & VarUsine & "';")

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
Gafish
wrote:
Merci beaucoup,
Ma variable est effectivement de type string.

Ah ces "" et '' .


En l'occurence ici, il s'agissait surtout des ' :)

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr