Ouverture d'une fenêtre avec passage d'une variable [Résolu]

Signaler
Messages postés
335
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
8 mars 2008
-
PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,

sur ma feuille j'ai 5 menus qui doivent tous m'ouvrir la même page mais toujours avec un nom de table Acces différent.
la page que je dois ouvrir doit recevoir le nom de la table à partir du menu afin de changer le nom de la table.
Par exemple:
Menu1 (table = four)
sur ma page je dois affecter le nom "four" à une variable pour que je puisse exporter à excell la table "four"

Merci d'avance!

Le savoir est la lumière de nous tous, partageons le!

2 réponses

Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
30
salut,

tu peux utiliser les propriétés pour passer le nom de ta table

çà donne à peu près çà :

'   FORM1
Option Explicit

'   LES BOUTTONS
1 & 2 représentent le menu de 1 à 5
Private Sub Command1_Click()
    Form2.Table = "table 1"
End Sub

Private Sub Command2_Click()
    Form2.Table = "table 2"
End Sub

'-----------------------------------------------

'   FORM 2
Option Explicit
Private mTable As String

Public Property Get Table() As String
    Table = mTable
End Property
Public Property Let Table(ByVal nValue As String)
    If Not Me.Visible Then
        mTable = nValue
        Call LoadMe
    End If
End Property

Private Sub Form_Load()
    'il ne faut rien dans le LOAD qui va se charger avec le test
Me.Visible
End Sub

Private Sub LoadMe()
'   le code voulu....

'  
affichage source
    Me.Show
    MsgBox Me.Table
End Sub

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
30
affichage source* non, affichage form ^^