Message d'erreur génant ( Methodes et fonctions )

Question

Bonjour

Je suis en train de realiser les requête de recherche de recherche pour mon programme.

3 types de recherches :  client, entreprise et courtier

Pour les 2 premiers, aucun soucis, ca marche, mais le 3 eme ( courtier ) ca ne marche pas. 

Ca me dit : Membre de méthode ou de données introuvable


Pourtant c'est strictement la même structure que pour Cleint et entreprise.


En rouge, le passage indiqué ou cela ne marche pas :

Option Explicit

Public Function RechercherCourtier(ByVal pCode As String) As Boolean

' requetes

   Dim sRequete As String
    Dim rstLigneTable As ADODB.Recordset
    Dim l_courtier As Courtier
    Dim l_compteur As Integer

' ecran sortie
 Procedures.initialiserResultats

  ' Affectation var
  RechercherCourtier = False
  Set l_courtier = New Courtier
  l_courtier.initialiserTableauRechercherTitre
  Range("D13").Value = " Recherche sur le code courtier : " & pCode

  ' Methodes

  sRequete = "select * from courtier WHERE crt_code like '%" & pCode & "%'"
  Set rstLigneTable = New ADODB.Recordset

  ' Ouverture DB
  BDD.Open

  ' Enregistrement

  Set rstLigneTable = New ADODB.Recordset
  rstLigneTable.Open (sRequete), BDD

Call Procedures.presenterTitre(l_tableauRechercheTitre, 11)

' Boucle

    l_compteur = 0

While Not rstLigneTable.EOF
    RechercherCourtier = True

' Récup de données
Set l_courtier = New Courtier
l_compteur = l_compteur + 1

' Methode d'initialisation objet

Call l_courtier.constructorCrt(rstLigneTable("crt_code"), rstLigneTable("crt_nomdiri"), rstLigneTable("crt_prenomdiri"), rstLigneTable("crt_adresse"), rstLigneTable("crt_adresse_suite"), rstLigneTable("crt_cp"), rstLigneTable("crt_ville"), rstLigneTable("crt_telephone"), rstLigneTable("crt_portable"), rstLigneTable("crt_mail"), rstLigneTable("crt_siren"), rstLigneTable("crt_retrocession"))

' Affichage resultats

Procedures.presenterDonnees l_courtier.initialiserTableauRechercherValeur, 12, l_compteur

' Enregistrement suivant
rstLigneTable.MoveNext

Wend

' Fermeture BDD
rstLigneTable.Close
BDD.Close
End Function

Private Sub bc_rechcourt_Click()

'Recherche un courtier

    Connexion.form_load
    RechercherCourtier (t_rechcourt.Text)
    End

End Sub


Le module ou est declaré la méthode : 

 
 
'Méthode initialiserResultats()
'-> Permet d'initialiser l'écran pour l'affichage des résultats
 
Sub initialiserResultats()
    Range("D13").Value = ""
 
    Rows("15:100").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp

    Range("B16:O16").Select
    Selection.Font.Bold = True
    Selection.Font.ColorIndex = 0
    Selection.Font.ColorIndex = 2
    Selection.Interior.ColorIndex = 1
 

EndSub
 
Sub presenterTitre(ByRef tableauLibelle()AsString, ByVal p_nbEnregistement AsInteger)
 
'Déclarations variables
Dim l_indiceColonne AsInteger
Dim l_indiceLigne AsInteger
Dim l_compteurColonne AsInteger
Dim l_compteurLigne AsInteger

'INitialisation variable
    l_indiceColonne = 66'Colonne B
    l_indiceLigne = 16' Ligne 16
    l_compteurLigne = 1

For l_compteurColonne = l_indiceColonne To(l_indiceColonne + p_nbEnregistement - 1)
        Range(Chr(l_compteurColonne) & l_indiceLigne).Value = tableauLibelle(l_compteurLigne)
        l_compteurLigne = l_compteurLigne + 1
Next
 
EndSub
 
Sub presenterDonnees(ByRef tableauValeurs()AsString, ByVal p_nbEnregistement AsInteger, ByVal p_numLigne AsInteger)
 
'Déclarations variables
Dim l_indiceColonne AsInteger
Dim l_indiceLigne AsInteger

'INitialisation variable
    l_indiceColonne = 66'Colonne B
    l_indiceLigne = 16 + p_numLigne
    l_compteurLigne = 1

For l_compteurColonne = l_indiceColonne To(l_indiceColonne + p_nbEnregistement - 1)
        Range(Chr(l_compteurColonne) & l_indiceLigne).Value = tableauValeurs(l_compteurLigne)
        l_compteurLigne = l_compteurLigne + 1
Next
 
EndSub


et la classe de module courtier contient bien :

 
PublicSub init()
 
initialiserTableauRechercherTitre
initialiserTableauRechercherValeur
 

une idée du probleme ?

merci

cs_Exploreur · Answer

Salut,

Et comme cela défois...

Call Procedures.presenterDonnees (l_courtier.initialiserTableauRechercherValeur, 12, l_compteur)

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Nicko11 · Answer

Salut,

en effet, c'est pas tout a faire pareil puisqu'il manque le call et les parentheses ??????

Message d'erreur génant ( Methodes et fonctions )

2 réponses

Votre réponse

Discussions similaires