Data Environnement pour les craques

kaiemma Messages postés 22 Date d'inscription mercredi 19 août 2009 Statut Membre Dernière intervention 5 mars 2012 - 30 sept. 2009 à 11:28
cs_Ayr Messages postés 221 Date d'inscription mercredi 9 avril 2003 Statut Membre Dernière intervention 13 décembre 2009 - 1 oct. 2009 à 11:07
slt,
j'ai écrit un programme , et j'utilise un data environnement pour l'impression.le problème est que depuis que j'ai écrit ce code que voici:
Private Sub Command5_Click()
Dim SQL As sting
SQL = "select * from Commandes"
Set Rec = SQL
With DE.Commandds("Command1")
.CommandText = SQL
End With
DE.rsRecherche.Open
End Sub
à chaque fois que je veux ouvrir un form j'ai ce message d'erreur:"object variable or with block variable not set".je ne comprends vraiment rien,aidez moi à relier le numéro de commande sur mon form à mon data report.merci

3 réponses

cs_Ayr Messages postés 221 Date d'inscription mercredi 9 avril 2003 Statut Membre Dernière intervention 13 décembre 2009 2
30 sept. 2009 à 12:29
Salut,

j'aurai juste une question...

Set Rec = SQL ??!!
0
kaiemma Messages postés 22 Date d'inscription mercredi 19 août 2009 Statut Membre Dernière intervention 5 mars 2012
30 sept. 2009 à 12:35
sorry, set rec c'est une requete sql, effectivement dans mon boutton j'ai changé j'ai pluto mi:
Private Sub Command5_Click()
Dim SQL As String
SQL = "select * from Commandes"
With DE.Commandds("Command1")
.CommandText = SQL
End With
DE.rsRecherche.Open
End Sub
j'avais mi le premier en espérant que sa change quelques choses au résultat, mais la bonne syntaxe c'est celle là
0
cs_Ayr Messages postés 221 Date d'inscription mercredi 9 avril 2003 Statut Membre Dernière intervention 13 décembre 2009 2
1 oct. 2009 à 11:07
Désolé de ne pas avoir répondu plus tôt.

Tu as sur cette ligne:
With DE.Commandds("Command1")

Est-ce bien ça que tu as voulu écrire ? Commandds ? N'est-ce pas :
With DE.Commands("Command1")


d'où le "with block variable not set" Peut être.

De plus, si tu n'as qu'une seule ligne dans ton bloc With tu ferai tout aussi bien d'écrire:

DE.Commands("Command1").CommandText = SQL


A+
0
Rejoignez-nous