Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Tableau publique ?

Tableau publique ?

2 réponses
Avatar
Stéphane Lavergne
Bonjour,

J'ai à l'ouverture d'1 formulaire 1 tableau qui s'initialise

Private Sub Form_Open(Cancel As Integer)

...
Dim indice As Byte
Dim nom_champs(1 To 255) As String
Dim largeur_champs(1 To 255) As Byte
Dim alias_champs(1 To 255) As String
...
indice = 1
nom_champs(indice) = "nom1"
largeur_champs(indice) = 3
alias_champs(indice) = "alias1
...
indice = indice + 1
nom_champs(indice) = "blablabla"
largeur_champs(indice) = 1
alias_champs(indice) = nom_champs(indice)
...
indice = indice + 1
nom_champs(indice) = "nom227"
largeur_champs(indice) = 2
alias_champs(indice) = "alias134"
...
End Sub

J'aimerais utiliser ces 3 tableaux dans d'autres procédures.

Apparement, il me semble que je n'ai pas d'autres solutions que de passer
les 3 tableaux dans 3 variants déclarés au niveau module (ou peut-être dans
1 autre module indépendant)
Mais si tel est le cas, je n'arrrive pas à voir comment remplir le variant
avec la fonction Array


Merci d'avance pour votre aide

--
Cordialement,

Stéphane Lavergne
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond
Bonsoir.

pour les rendre utilisables ailleurs, tu les passes public dans un module
standard module1 par exemple:
Public indice As Byte
Public nom_champs(1 To 255) As String
Public largeur_champs(1 To 255) As Byte
Public alias_champs(1 To 255) As String

dans ton formulaire, ou n'importe où, tu peux utiliser tes tableaux sans
rien changer:
Private Sub Form_Open(Cancel As Integer)
indice = 1
nom_champs(indice) = "nom1"
largeur_champs(indice) = 3
alias_champs(indice) = "alias1"


la fonction Array, à ma connaissance, fonctionne normalement que tu sois
public, variant ......
Public indice As Byte
Public nom_champs() As Variant
Public largeur_champs(1 To 255) As Byte
Public alias_champs(1 To 255) As String

nom_champs = Array("nom1", "nom2", "Nom3")


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le message de
news:
Bonjour,

J'ai à l'ouverture d'1 formulaire 1 tableau qui s'initialise

Private Sub Form_Open(Cancel As Integer)

...
Dim indice As Byte
Dim nom_champs(1 To 255) As String
Dim largeur_champs(1 To 255) As Byte
Dim alias_champs(1 To 255) As String
...
indice = 1
nom_champs(indice) = "nom1"
largeur_champs(indice) = 3
alias_champs(indice) = "alias1
...
indice = indice + 1
nom_champs(indice) = "blablabla"
largeur_champs(indice) = 1
alias_champs(indice) = nom_champs(indice)
...
indice = indice + 1
nom_champs(indice) = "nom227"
largeur_champs(indice) = 2
alias_champs(indice) = "alias134"
...
End Sub

J'aimerais utiliser ces 3 tableaux dans d'autres procédures.

Apparement, il me semble que je n'ai pas d'autres solutions que de passer
les 3 tableaux dans 3 variants déclarés au niveau module (ou peut-être
dans

1 autre module indépendant)
Mais si tel est le cas, je n'arrrive pas à voir comment remplir le variant
avec la fonction Array


Merci d'avance pour votre aide

--
Cordialement,

Stéphane Lavergne




Avatar
Stéphane Lavergne
Merci Raymond

Je coupe / colle en publique ma déclaration dans 1 nouveau module
indépendant
Je ne devrais donc pas à passer le tableau dans 1 variant... ouf :)

Stéphane

"Raymond" a écrit dans le message de
news:eJDEG$
Bonsoir.

pour les rendre utilisables ailleurs, tu les passes public dans un module
standard module1 par exemple:
Public indice As Byte
Public nom_champs(1 To 255) As String
Public largeur_champs(1 To 255) As Byte
Public alias_champs(1 To 255) As String

dans ton formulaire, ou n'importe où, tu peux utiliser tes tableaux sans
rien changer:
Private Sub Form_Open(Cancel As Integer)
indice = 1
nom_champs(indice) = "nom1"
largeur_champs(indice) = 3
alias_champs(indice) = "alias1"


la fonction Array, à ma connaissance, fonctionne normalement que tu sois
public, variant ......
Public indice As Byte
Public nom_champs() As Variant
Public largeur_champs(1 To 255) As Byte
Public alias_champs(1 To 255) As String

nom_champs = Array("nom1", "nom2", "Nom3")


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le message de
news:
Bonjour,

J'ai à l'ouverture d'1 formulaire 1 tableau qui s'initialise

Private Sub Form_Open(Cancel As Integer)

...
Dim indice As Byte
Dim nom_champs(1 To 255) As String
Dim largeur_champs(1 To 255) As Byte
Dim alias_champs(1 To 255) As String
...
indice = 1
nom_champs(indice) = "nom1"
largeur_champs(indice) = 3
alias_champs(indice) = "alias1
...
indice = indice + 1
nom_champs(indice) = "blablabla"
largeur_champs(indice) = 1
alias_champs(indice) = nom_champs(indice)
...
indice = indice + 1
nom_champs(indice) = "nom227"
largeur_champs(indice) = 2
alias_champs(indice) = "alias134"
...
End Sub

J'aimerais utiliser ces 3 tableaux dans d'autres procédures.

Apparement, il me semble que je n'ai pas d'autres solutions que de
passer


les 3 tableaux dans 3 variants déclarés au niveau module (ou peut-être
dans

1 autre module indépendant)
Mais si tel est le cas, je n'arrrive pas à voir comment remplir le
variant


avec la fonction Array


Merci d'avance pour votre aide

--
Cordialement,

Stéphane Lavergne