Appel de PROCEDURE en VB6

Question

bonjour.

j'ai voulus faire un appel de proc&#233;dure,mais j'ai plein d'&#233;rreurs. je n'arrive pas &#224; les comprendre. pouvez-vous m'aider s'il vous plais ?

merci.

Voici mon appel de procedure:
Private Sub ValidNUm_Click()
Call Stat(MSChart1, Adodc1, TxtNum)
MSChart1.Visible =  True
End Sub

 Voici ma proc&#233;dure: (  * = enplacement des fautes)
Public Sub Stat(ms As MSChart, ad As Adodc, Txt As String)
' Initialisation de l'acc&#232;s aux donn&#233;es
Dim MaBD As String
Dim i As Integer
    
MaBD =  "F:\Taxation	axation.mdb"
With ad
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & ";Persist Security Info=False"
    .RecordSource = "SELECT [TicketCompTelBis].[destination de l'appel],count([TicketCompTelBis].[destination de l'appel]) FROM TicketCompTelBis,[Autocom ENS bis] where [Autocom ENS bis].Poste=TicketCompTelBis.[D&#233;tail poste appelant] and [Autocom ENS bis].UC='" & Txt & "' GROUP BY [destination de l'appel]"
 End With
ad.Refresh    * Incoh&#233;rence de type de donn&#233;e 
ad.Recordset.MoveFirst  * Variable Objet ou variable Block with non definie


 ' Initialisation du graphique simple
ms.AllowSelections  = False    ' Interdit la s&#233;lection dans le graphe
With ms
    .chartType = VtChChartType2dCombination   ' type de graphe
    .ColumnCount = 1                   ' nombre de barre
    .RowCount = 8                    ' nombre de type d'appel
    ' lecture du nom des types de destinations et des nombres d'appels dans la BD
    For i = 1 To 8
        .Row = i
        .Column = 1
     ' le nom de chaque type de destination
     .RowLabel = ad.Recordset.Fields(0)   * Variable Objet ou variable Block with non definie
         ' la valeur du nombre d'appel maximale
         .Data = ad.Recordset.Fields(1).Value * Variable Objet ou variable Block with non definie
       ' MoyMax = MoyMax + Ad.Recordset.Fields(1) ' cumul des valeurs pour calculer la moyenne
       ad.Recordset.MoveNext                    ' le mois suivant
    Next i
End With

the_emperor · Answer

C'est juste un probl&#232;me de type.
De quel type est d&#233;clar&#233; [Autocom ENS bis].UC dans la bd?

cs_kimou75 · Answer

c'est du texte

the_emperor · Answer

[Autocom ENS bis].Poste   et   TicketCompTelBis.[D&#233;tail poste appelant]   sont d&#233;clar&#233;s de la m&#234;me fa&#231;on?

cs_kimou75 · Answer

oui biensur.

crenaud76 · Answer

faudrait pas un AD.open au lieu du AD.Refresh ??

Christophe R

cs_kimou75 · Answer

non non
 car ce code fonctionne tres bien quand je ne passe pas par un appel 
de procedure, mais quand je le lance directement.

je voudrais comprendre &#224; quel type de faute correspond ce message d'erreur:
Variable Objet ou variable Block with non definie

the_emperor · Answer

Etant donn&#233; que tu as un probl&#232;me de type dans ton recordset, celui-ci n'a pas pu s'ex&#233;cuter et c'est pour &#231;a que tu ne peux pas naviguer dedans(.movefirst, .fields(0) d'o&#249; message d'erreur Variable Objet ou variable Block with non definie 

Tu n'aurais donc, pour moi, qu'une erreur de typage dans ton recordset(mais ce n'est qu'un avis...)

cs_kimou75 · Answer

je pense que tu as raison, &#224; mon avis ca doit etre ma requete qui est mal &#233;crite.

je t'en remerci

Appel de PROCEDURE en VB6

8 réponses

Discussions similaires