Discussion :

[tets88]

Bonjour,

j'ai un petit problème avec une ligne de mon code. Ce que j'aimerai c'est passé la valeur d'un champ du formulaire courant à un champ indépandant d'un autre formulaire. Le code que j'utilise pour celà est le suivant :

Code :

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

Form_nomformulaire.champ2 = Me.champ1

Quand j'utilise le débuggeur pour connaitre la valeur que possède mes champs il me vient le bon numéro pour le champ1 et Null pour le champ2.

[Lou Pitchoun]

Salut,
Ce que tu dis est ce que contiennent les variables au moment ou la ligne en question est surligné en jaune.
Mais qu'en est-il après, à la ligne suivante ?
Tes formulaires sont ils ouverts lors de l'éxecution de ce code ??
Si non : pourquoi ne pas te servir d'une variable ?

[tets88]

Après la ligne ci-dessus, j'ouvre justement mon formulaire (dans l'exemple Form_dessin) et après j'aimerai pouvoir utilisé la valeur de la variable champ2 (pkrec) dans tous les évenements du formulaire. Si je créer une variable public au formulaire, comment je peut y insérer un valeur depuis un autre formulaire ?

Ma solution provisoire (c'est un peu du magouillage mais ca fonctionne) c'est de créer deux fonction dans un module. Ma premier fonction va insérer la valeur entrée en paramètre dans un variable temporaire publique (cette fonction sera appelée depuis le formulaire courant). La second fonction va retourner la valeur de la variable publique (cette fonction sera appelée depuis le formulaire Form_dessin)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
Option Explicit
Dim tmp As Integer
 
Function stokValeur(valeur As Double)
   tmp = valeur
End Function
 
Function retourneValeur() As Double
    retourneValeur = test
End Function

[Lou Pitchoun]

Tu t'embêtes un peu avec la fonction sauf si tu en as l'utilité plus tard dans ta base...
Sinon tu peux faire ceci :
Formulaire1

Code :

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

1
2
3
MaVariable = Me.MonChamp
....
Docmd.OpenForm "nomForm", , , , , , MaVariable

Fomulaire2

Code :

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

Me.MonChamp = Me.OpenArgs

[tets88]

OK merci

Salutation