Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic probleme avec DAO

probleme avec DAO

5 réponses
Avatar
fabrizio-r
Bonjour a tous,

mon code est le suivant :

Select Case label
Case "Installation d'un nouveau PC"
Dim rs As DAO.Recordset
Set rs =3D db.OpenRecordset("SELECT * FROM materiel=20
WHERE valeur =3D TRANS;")
=20
End Select

Mon apli rentre bien dans la boucle mais arriv=E9 au Set rs=20
=3D ....... j ai l erreur suivante :

"Object variable or With Block variable not set"

Si quelqu'un a une idee de o=F9 cela peut il provenir, je=20
suis preneur.

Je vous remercie d'avance,

Fabrice.
Signaler un problème avec ce contenu

5 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
Eric
Bonjour,

As-tu déclaré ta variable db ?
Si ce n'est pas le cas :
Dim db as DAO.Database
Set db =OpenDatabase(...)

A+
Eric

"fabrizio-r" écrivait
news:1762e01c44971$107d8490$:

Bonjour a tous,

mon code est le suivant :

Select Case label
Case "Installation d'un nouveau PC"
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM materiel
WHERE valeur = TRANS;")

End Select

Mon apli rentre bien dans la boucle mais arrivé au Set rs
= ....... j ai l erreur suivante :

"Object variable or With Block variable not set"

Si quelqu'un a une idee de où cela peut il provenir, je
suis preneur.

Je vous remercie d'avance,

Fabrice.




Avatar
fabrizio-r
En declarant comme ceci :

Select Case label
Case "Installation d'un nouveau PC"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DAO.Workspaces(0).OpenDatabase(App.Path
& "" & dbname, False, False)
Set rs = db.OpenRecordset("SELECT * FROM materiel
WHERE valeur = TRANS;")

End Select

Maintenant j'ai l erreur suivante :

"Trop peu de paramètres. 1 attendu"

Que faire?????

Fabrice.

-----Message d'origine-----
Bonjour,

As-tu déclaré ta variable db ?
Si ce n'est pas le cas :
Dim db as DAO.Database
Set db =OpenDatabase(...)

A+
Eric

"fabrizio-r"


écrivait
news:1762e01c44971$107d8490$:

Bonjour a tous,

mon code est le suivant :

Select Case label
Case "Installation d'un nouveau PC"
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM




materiel
WHERE valeur = TRANS;")

End Select

Mon apli rentre bien dans la boucle mais arrivé au Set




rs
= ....... j ai l erreur suivante :

"Object variable or With Block variable not set"

Si quelqu'un a une idee de où cela peut il provenir,




je
suis preneur.

Je vous remercie d'avance,

Fabrice.





.



Avatar
fabrizio-r
Je te remercie bcp, j avai trouvé les côte, oui
effectivement.

Je te remercie de ton aide.

Fabrice.

-----Message d'origine-----
Salut,

Set rs = db.OpenRecordset("SELECT * FROM materiel WHERE


valeur = 'TRANS';")

Pour les requêtes, il faut placer les textes entre


simples quotes: Valeur = 'TRANS'
Sinon TRANS sera interprété que le nom d'un champ.

Pascal


"fabrizio-r" wrote


in message news:17cd301c44973$cd1ea1e0$
En declarant comme ceci :

Select Case label
Case "Installation d'un nouveau PC"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DAO.Workspaces(0).OpenDatabase(App.Path
& "" & dbname, False, False)
Set rs = db.OpenRecordset("SELECT * FROM materiel
WHERE valeur = TRANS;")

End Select

Maintenant j'ai l erreur suivante :

"Trop peu de paramètres. 1 attendu"

Que faire?????

Fabrice.

-----Message d'origine-----
Bonjour,

As-tu déclaré ta variable db ?
Si ce n'est pas le cas :
Dim db as DAO.Database
Set db =OpenDatabase(...)

A+
Eric

"fabrizio-r"


écrivait
news:1762e01c44971$107d8490$:

Bonjour a tous,

mon code est le suivant :

Select Case label
Case "Installation d'un nouveau PC"
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM




materiel
WHERE valeur = TRANS;")

End Select

Mon apli rentre bien dans la boucle mais arrivé au Set




rs
= ....... j ai l erreur suivante :

"Object variable or With Block variable not set"

Si quelqu'un a une idee de où cela peut il provenir,




je
suis preneur.

Je vous remercie d'avance,

Fabrice.





.





.



Avatar
Eric
Bonjour,

Tu as un probleme au niveau de ton sql
Valeur est-il un champ de la table ?
Trans est une valeur d'un controle de ton formulaire ?

Si valeur est ton champ de la table et trans est un controle du
formulaire, ton sql doit ressembler à :
Dim strSQL as String
strSQL ="Select * from materiel where valeur=" & Trans & ";" si Trans
Numérique
si Trans est alphanumérique
strSQL ="Select * from materiel where valeur='" & Trans & "';"

set rs= db.OpenRecordset(strSQL)

A+
Eric




"fabrizio-r" écrivait
news:17cd301c44973$cd1ea1e0$:

En declarant comme ceci :

Select Case label
Case "Installation d'un nouveau PC"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DAO.Workspaces(0).OpenDatabase(App.Path
& "" & dbname, False, False)
Set rs = db.OpenRecordset("SELECT * FROM materiel
WHERE valeur = TRANS;")

End Select

Maintenant j'ai l erreur suivante :

"Trop peu de paramètres. 1 attendu"

Que faire?????

Fabrice.

-----Message d'origine-----
Bonjour,

As-tu déclaré ta variable db ?
Si ce n'est pas le cas :
Dim db as DAO.Database
Set db =OpenDatabase(...)

A+
Eric

"fabrizio-r"


écrivait
news:1762e01c44971$107d8490$:

Bonjour a tous,

mon code est le suivant :

Select Case label
Case "Installation d'un nouveau PC"
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM




materiel
WHERE valeur = TRANS;")

End Select

Mon apli rentre bien dans la boucle mais arrivé au Set




rs
= ....... j ai l erreur suivante :

"Object variable or With Block variable not set"

Si quelqu'un a une idee de où cela peut il provenir,




je
suis preneur.

Je vous remercie d'avance,

Fabrice.





.





Avatar
Pascal B.
Salut,

Set rs = db.OpenRecordset("SELECT * FROM materiel WHERE valeur = 'TRANS';")

Pour les requêtes, il faut placer les textes entre simples quotes: Valeur = 'TRANS'
Sinon TRANS sera interprété que le nom d'un champ.

Pascal


"fabrizio-r" wrote in message news:17cd301c44973$cd1ea1e0$
En declarant comme ceci :

Select Case label
Case "Installation d'un nouveau PC"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DAO.Workspaces(0).OpenDatabase(App.Path
& "" & dbname, False, False)
Set rs = db.OpenRecordset("SELECT * FROM materiel
WHERE valeur = TRANS;")

End Select

Maintenant j'ai l erreur suivante :

"Trop peu de paramètres. 1 attendu"

Que faire?????

Fabrice.

-----Message d'origine-----
Bonjour,

As-tu déclaré ta variable db ?
Si ce n'est pas le cas :
Dim db as DAO.Database
Set db =OpenDatabase(...)

A+
Eric

"fabrizio-r"


écrivait
news:1762e01c44971$107d8490$:

Bonjour a tous,

mon code est le suivant :

Select Case label
Case "Installation d'un nouveau PC"
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM




materiel
WHERE valeur = TRANS;")

End Select

Mon apli rentre bien dans la boucle mais arrivé au Set




rs
= ....... j ai l erreur suivante :

"Object variable or With Block variable not set"

Si quelqu'un a une idee de où cela peut il provenir,




je
suis preneur.

Je vous remercie d'avance,

Fabrice.





.