Procedur en visual basic 6.0

Question

Salut!

Pour avoir un jeu d'enregistrement de la table "ARticle" de ma base de donnees, j ai cree un objet commande  "comArticle" dans l environnement "deFacture".
Ensuite j ai ecris une la procedure suivante dans un module.
------
Private Sub SUIVANT(Byref parmCommande As Recordset)
   parCommande.Movenext
End Sub
-----

Puis j 'ai appele la procedure "SUIVANT" dans le code du bouton "cmdSuivant" dont le code est:
-----
Private Sub cmdSuivant_Click()
Dim varCommande As Reccordset

   Set varCommande = deFacture.rscomArticle
   SUIVANT(varCommande)
End Sub
-----

Mais a l execution il ya un message d erreur qui dit: "Type incompatible"
Je ne comprend pas cette erreur.
Je demande donc votre aide pour resourdre le probleme.
Merci de me repondre.

Ordinho

L'homme nest rien sans les autres...

cs_Jack · Answer

Salut
Relis attentivement ces deux lignes, tu pourras corriger une erreur. Est-ce elle qui te génère celle dont tu parles, je ne sais pas :
   Private Sub SUIVANT(Byref parmCommande As Recordset)
      parCommande.Movenext

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

PCPT · Answer

salut,

perso ce qui me gêne le plus c'est Dim varCommande As Reccordset ^^
++

PCPT · Answer

mais le m est beau aussi Jack ;)

ordynho · Answer

Excusez moi! comme je ne suis pas actuellement sur mon ordinateur de travail, je n ai pas fait du copier/coller.
Je vous redonne les deux procedures:
----
Private Sub SUIVANT(Byref parCommande As Recordset)
   parCommande.Movenext
End Sub
-----
-----
Private Sub cmdSuivant_Click()
Dim varCommande As Recordset

   Set varCommande = deFacture.rscomArticle
   SUIVANT(varCommande)
End Sub
-----

En faite mon probleme c est comment creer et appeler une procedure parametrée avec un objet "command"
Merci!

Ordinho

L'homme nest rien sans les autres...

PCPT · Answer

beh comme tu l'as fait c'est presque bon...
c'est à dire que si la méthode ou le membre rscomArticle est bien de type Recordset, alors la procédure SUIVANT sera bien acceptée

pourquoi "presque" alors?

parce qu'en VB6, on ne met de parenthèses que quand on attend un retour ou qu'il y a call
donc pas SUIVANT(varCommande)
mais soit
CallSUIVANT(varCommande)
soit
SUIVANT varCommande 'plus de parenthèse

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_MPi · Answer

D'accord avec PCPT pour la syntaxe des parenthèses

Mais aurais-tu des références qui pointent sur ADO ET DAO dans ton projet ?
Si oui, enlève celle qui ne sert pas ou mets devant tes déclarations celui des deux que tu veux utiliser.

ex: 
Dim varCommande As DAO.Recordset

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Procedur en visual basic 6.0

6 réponses

Votre réponse

Discussions similaires