Discussion :

[SangZug]

Bonjour,

Comment puis-je passer une variable d'un formulaire à l'autre sans utiliser cette façon?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "my_form1", acNormal, , , , acDialog, my_var

J'ai lu dans ici dans un autre article, une façon avec le Public, mais je n'ai rien compris ou c'était pas assez prècis pour moi.

Merci d'avance

[Invité]

Bonsoir
Un peu de lecture ici:
http://mhubiche.developpez.com/Access/variables/

Tu comprendras ainsi mieux le principe de portée des variables.

[SangZug]

Merci! Je vais lire !

[SangZug]

Tout d'abord, merci Gayot!

Le principe, je l'ai bien compris ce que je n'arrive pas à faire, c'est à passer une variable d'un formulaire à un autre sans passer par la commande précédente.

Je sais qu'on peut la passer passer comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Public Function Log() As String
    Log = "ON"
End Function
 
Private Sub btnXXXX_Enter()
    MsgBox Log()
End Sub

Le problème est que je n'arrive pas à la récupérer, mais le "ON" s'affiche bel et bien sur mon prenier formulaire avec la messageBox

Merci d'avance pour l'aide.

[chrtophe]

Il te faut une variable globale.

Tu crée un module, dedans tu déclare ta varible comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Public variable As string

Dans cet exemple ma variable se nomme variable et est de type string, elle sera accessible depuis tous les formulaires.

[SangZug]

Dans mon form 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public strLog As String
 
Public Sub btnXXXX_Enter()
    strLog = "ON"
    MsgBox strLog
End Sub

Dans mon form 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Sub Form_Load()
    If strLog <> "ON" Then
        ...
    End If
End Sub

[SangZug]

Sur le formulaire 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Public strLog As String
 
Public Function Log() As String
     Log = strLog
End Function
 
Public Sub btnXXX_Enter()
    strLog = "ON"
End Sub

Sur le formulaire 2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Public Sub Form_Load()
    Dim strLog As String
    Dim f As Form_frmMembre
    Set f = Forms("frmMembre")
    strLog = f.strLog
End Sub

Oui, c'est probable que je me suis compliqué la vie, mais le plus important, c'est que j'ai trouvé une solution.

Merci à tous !