Variable tableau module

Version imprimable

Messieurs-dames bonjour,

J'ai un problème qui devient énervant et que je n'ai jamais eu sur Acces, je veux faire quelque chose de très simple : créer une variable tableau qui appairasse dans plusieurs sub de mon formulaire (une variable public donc)

Voilà ce que j'ai créée dans le module :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Type PosJoueur J As Integer 'ID du joueur P As Integer 'Poste du joueur X As Integer 'Position sur le terrain en X Y As Integer 'Position sur le terrain en Y End Type Const Nbrmax = 23 Public JoueurInfo(Nbrmax) As Integer Public NbrJoueur As Integer Public JoueurInfo(Nbrmax) As PosJoueur
ET dans le formulaire il y a sub évènementielle suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub Form_Activate() Dim RSJoueur As DAO.Recordset Dim S As String IndiceJoueur = 0 Liste4.RowSource = "" Set DB = Application.CurrentDb S = "SELECT Presence_selection.IDJoueur, Presence_selection.Poste FROM Presence_selection WHERE Presence_selection.Date_match = #" & IDMatch & "# " Liste4.RowSource = S Set RSJoueur = DB.OpenRecordset(S) Do IndiceJoueur = IndiceJoueur + 1 JoueurInfo(IndiceJoueur).J = RSJoueur!IDjoueur.Value JoueurInfo((IndiceJoueur)).P = RSJoueur!Poste.Value Postejoueur = RSJoueur!Poste.Value Recherche_poste RSJoueur.MoveNext While RSJoueur.EOF End Sub
Quand j'ouvre le formulaire j'ai le message d'erreur suivant : Erreur de fonction Sub ou fonction non définie"

Et le curseur pointe sur : JoueurInfo(IndiceJoueur).J

Y-a-t-il quelque chose de spécial à déclarer pour une variable tableau publique dans un module ? J'avais fait exactement la même chose sur excel y'a quelques mois et ça avait marché niquel !

Cédric

31/10/2012, 08h07
Invité

Bonjour

Essayes en déclarant en Public au lieu de Private pour voir.

Philippe
01/11/2012, 12h15
Aiola

Bonjour Merci de ta réponse,

J'avais déjà essayé, j'avais pensé tout de suite à ça, déclarer la sub évènementielle en Public, mais le message d'erreur est exactement le même !

Cédric
01/11/2012, 18h44
Invité

Pas la sub, ta variable.
02/11/2012, 12h11
Aiola

Alors la c'est intéressant, si je passe ma variable type Posjoueur en public :
- Si la Sub Form_Activate est en Private, je n'ai plus de message d'erreur, mon fomrulaire s'ouvre normalement mais rien dans la procédure ne s’exécute, j'ai placé un espion pour vérifier et la sub ne s'active pas !
- En revanche si je mets la sub en Public, elle se lance mais j'ai de nouveau le même message d'erreur que précédemment (Variable ou sub non définie, avec curseur sur JoueurInfo)

J'ai essayé toutes les combinaisons possible, je vois vraiment pas là...

Cédric
05/11/2012, 07h50
micniv

Bonjour,
en regardant rapidement :

Citation:

Public JoueurInfo(Nbrmax) As Integer
Public NbrJoueur As Integer
Public JoueurInfo(Nbrmax) As PosJoueur

Tu déclares JoueurInfo 2 fois pour des variables différentes ...
Bonne journée
:calim2:
06/11/2012, 19h27
Aiola

Oui je l'avais vu, j'ai supprimé la ligne

Code:

Public JoueurInfo(Nbrmax) As Integer

Rien à faire le souci persiste....
06/11/2012, 20h23
micniv
plusieurs pistes :
es-tu sûr que Id match est chaine représenta une date en format US

il faut tester si le recordset retourne des enregistrements avant de lancer la boucle DO
Code:

1 2 if rsjoueur.recordcount > 0 then ....
3 C'est le contraire pour la condition While :
Code:

1 2 3 DO ... While NOT RSJoueur.EOF
Bonne suite
:)
06/11/2012, 21h55
Aiola

Merci, en effet je n'avais pas vu ces erreurs !

Mais le problème est toujours là et quand le compile le débuger renvoie toujours vers le "JoueurInfo(IndiceJoueur).J"

:cry:
20/11/2012, 18h49
Aiola

Je relance juste ce poste, car à ce jour je suis toujours bloqué et n'ai pas trouvé de solution...
21/11/2012, 03h56
Djim33

Reposte ton code avec toutes les erreurs déjà repérées corrigées svp.:mouarf:

Yes, pas de soucis :

Dans le module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public IDjoueur As String 'variable d'identification des joueurs
Public IDMatch As Date 'variable d'identification des matchs
 
Public Sub Etiquette()
    Dim A As Label
    DoCmd.OpenForm "Formulaire2", acDesign
    Set A = CreateControl("Formulaire2", acLabel, , , "Saison", 1000, 500)
End Sub
 
Public Type PosJoueur
    J As Integer  'ID du joueur
    P As Integer  'Poste du joueur
    X As Integer  'Position sur le terrain en X
    Y As Integer  'Position sur le terrain en Y
End Type
 
 
Const Nbrmax = 23
Public NbrJoueur As Integer
Public JoueurInfo(Nbrmax) As PosJoueur
Public Postejoueur As String
Public IndiceJoueur As Integer

Dans le formulaire que je cherche à ouvrir via un bouton dans un autre form :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Compare Database
 
 
Public Sub Form_Activate()
    Dim RSJoueur As DAO.Recordset
    Dim S As String
    IndiceJoueur = 0
 
   Liste4.RowSource = ""
 
    Set DB = Application.CurrentDb
 
    S = "SELECT Presence_selection.IDJoueur, Presence_selection.Poste FROM Presence_selection WHERE Presence_selection.Date_match =  #" & IDMatch & "# "
   Liste4.RowSource = S
 
    Set RSJoueur = DB.OpenRecordset(S)
 
    If (RSJoueur.RecordCount > 0) Then
    Do
    IndiceJoueur = IndiceJoueur + 1
        JoueurInfo(IndiceJoueur).J = RSJoueur!IDjoueur.Value
        JoueurInfo((IndiceJoueur)).P = RSJoueur!Poste.Value
        Postejoueur = RSJoueur!Poste.Value
        Recherche_poste
        RSJoueur.MoveNext
    While Not RSJoueur.EOF
    End If
 
End Sub
 
Public Sub Recherche_poste()
    Select Case Postejoueur
    Case DC
        JoueurInfo(IndiceJoueur).X = 23
        JoueurInfo(IndiceJoueur).Y = 50
    Case ALD
        JoueurInfo(IndiceJoueur).X = 50
        JoueurInfo(IndiceJoueur).Y = 100
    End Select
End Sub

A savoir que quand la sub Form_Activate est déclarée en private, je n'ai plus de message d'erreur, mon fomrulaire s'ouvre normalement mais rien dans la procédure ne s’exécute, j'ai placé un espion pour vérifier et la sub ne s'active pas !

22/11/2012, 01h50
vodiem

salut Aiola, Djim33, micniv ;) et Philippe ;)

il faut revoir tes classiques:
> dans les modules les déclarations doivent être spécifiées AVANT toutes fonctions pour être prise en compte.
> Do fonctionne avec Loop.
...

;)
22/11/2012, 10h33
Godzestla
Bonjour A tous.

En plus des remarques de Vodiem, je doute que les lignes suivantes donnent le résultat escompté :
Code:

1 2 3 4 Select Case Postejoueur Case DC Case ALD End Select
sauf incompréhension de ma part..:roll:

Bonjour à tous !

Désolé de ma réponse tardive, et merci des vôtres !

Vodiem j'ai pris en compte tes modifs; en effet pour le loop c'est une erreur studpide en revanche je ne savais pas pour la déclaration dans le module j'ai appris quelque chose !

Par contre Godzestla est-tu sure pour le Select case ?

Bon dans tous les cas ça ne marche toujours pas... toujours le même message d'erreur.... :cry: :cry: :cry:

Voici les codes modifiés... :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public IDjoueur As String 'variable d'identification des joueurs
Public IDMatch As Date 'variable d'identification des matchs
 
Public Sub Etiquette()
    Dim A As Label
    DoCmd.OpenForm "Formulaire2", acDesign
    Set A = CreateControl("Formulaire2", acLabel, , , "Saison", 1000, 500)
End Sub
 
Const Nbrmax = 23
Public JoueurInfo(Nbrmax) As PosJoueur
Public NbrJoueur As Integer
Public Postejoueur As String
Public IndiceJoueur As Integer
 
 
Public Type PosJoueur
    J As Integer  'ID du joueur
    P As Integer  'Poste du joueur
    X As Integer  'Position sur le terrain en X
    Y As Integer  'Position sur le terrain en Y
End Type

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Sub Form_Activate()
    Dim RSJoueur As DAO.Recordset
    Dim S As String
    IndiceJoueur = 0
 
   Liste4.RowSource = ""
 
    Set DB = Application.CurrentDb
 
    S = "SELECT Presence_selection.IDJoueur, Presence_selection.Poste FROM Presence_selection WHERE Presence_selection.Date_match =  #" & IDMatch & "# "
   Liste4.RowSource = S
 
    Set RSJoueur = DB.OpenRecordset(S)
 
    If (RSJoueur.RecordCount > 0) Then
    Do
    IndiceJoueur = IndiceJoueur + 1
        JoueurInfo(IndiceJoueur).J = RSJoueur!IDjoueur.Value
        JoueurInfo(IndiceJoueur).P = RSJoueur!Poste.Value
        Postejoueur = RSJoueur!Poste.Value
        Recherche_poste
        RSJoueur.MoveNext
    Loop Until RSJoueur.EOF
    End If
 
End Sub
 
Public Sub Recherche_poste()
 
    Select Case Postejoueur
    Case DC
        JoueurInfo(IndiceJoueur).X = 23
        JoueurInfo(IndiceJoueur).Y = 50
    Case ALD
        JoueurInfo(IndiceJoueur).X = 50
        JoueurInfo(IndiceJoueur).Y = 100
    End Select
End Sub

27/11/2012, 11h31
vodiem

salut Godzestla,

Citation:

Envoyé par Aiola

je ne savais pas pour la déclaration dans le module j'ai appris quelque chose !

he bien maintenant il faut le mettre en application. :mrgreen:

Code:

Public Sub Etiquette()

n'est pas à la bonne place.

Citation:

Envoyé par Aiola

Godzestla est-tu sure pour le Select case

Citation:

Envoyé par Godzestla

sauf incompréhension de ma part..

à moins que DC et ALD soit des strings déclarés qq part ce serait plutôt:

Code:

Case "DC"

et non

Code:

Case DC

je te recommande l'emploi de la déclaration (donc en entête de module) de :

Code:

Option Explicit

;)
27/11/2012, 22h54
Aiola
AAAAAAH ça marche !!!

J'ai trouvé la solution du problème et tu m'y as aidé Vodiem !!

Tout venait de cette SUB :
Code:

1 2 3 4 5 Public Sub Etiquette() Dim A As Label DoCmd.OpenForm "Formulaire2", acDesign Set A = CreateControl("Formulaire2", acLabel, , , "Saison", 1000, 500) End Sub
Je l'utilisais même plus c'était un ancien essai ! En la supprimant tout remarche ! OUUUF

Merci à tous pour votre implication ce forum est génial !

Je vais pouvoir continuer ce projet perso !

Bonne soirée !