Discussion :

[Tilous]

Bonjour,

Dans les faits Bonsoir et même bonne nuit!

Bon je me lance, car mon cerveau est null...

J'essaie simplement via du code VBA Indiqué le nom du champ qui recevra la donnée dans un formulaire.

J'ai fais plusieurs tentatives et la je suis définitivement bloquée, fatiguée sur le bord de tout lancer par la fenêtre!!! À boute quoi, je cherche, je cherche... probablement que je n'y voit plus rien!

C'est pour cela que je viens vous demander de l'aide!

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub etampe()
Dim strActiveCtl As String
Dim compteur
 
strActiveCtl = Screen.ActiveControl.Name
compteur = Mid(strActiveCtl, 2)
 
 ?=[Form_frm_Menu principal].Usager.Column (4)
 ? = Now()
End Sub

En faite c'est que j'ai plusieurs champs comportant tous le même début et le nombre à la fin change ex: A_1, A_2, A3, ..., ainsi de suite.

J'ai trouvé comment éliminer la lettre pour récupérer le nombre, mais la je suis coincée sur comment les regrouper pour affecter le champ "A_" & compteur dans le formulaire...

Aidez moi SVP!

Bonne soirée et un gros merci!

Louise

[Tilous]

Merci M. JOCHMANS,

Désolée pour les balises, J'étais pas très attentive..

Louise

[Tilous]

OK, je vous souhaite une bonne nuit et espérons qu'à mon réveille la lumière ce fasse!

J'en doute vraiment, alors si vous avez la réponse à mon problème et surtout SVP ne me dite pas que la réponse est sur le forum... j'ai essayer de chercher avec mes mots clés et disons qu'ils sont probablement pas très bons...

merci de votre attention et bonne nuit.

Louise

[Tilous]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Initialisation des variables
Dim strActiveCtl As String
Dim compteur
Dim ControlName As String
    'Insertion du nom du controle appelant
    strActiveCtl = Screen.ActiveControl.Name
    'Extraction des nombres seulement dans le nom
    compteur = Mid(strActiveCtl, 2)
    'Affectation du nom du contrôle
    ControlName = "A_" & compteur
    'Ajout de l'enregistrement dans les bons contrôles
    Me.Controls(ControlName) = [Form_frm_Menu principal].Usager.Column(4)
    ControlName = "AH_" & compteur
    Me.Controls(ControlName) = Now()
    Me.Recalc

Comme quoi une bonne nuit de sommeil fait de miracle!

Bonne journée