Récupérer la valeur d'un champ comme nom d'un formulaire dans VB
Résolu/Fermé
Lasiomata
Messages postés
5
Date d'inscription
mardi 13 décembre 2016
Statut
Membre
Dernière intervention
20 décembre 2016
-
13 déc. 2016 à 16:08
Lasiomata Messages postés 5 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 20 décembre 2016 - 14 déc. 2016 à 17:37
Lasiomata Messages postés 5 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 20 décembre 2016 - 14 déc. 2016 à 17:37
A voir également:
- Récupérer la valeur d'un champ comme nom d'un formulaire dans VB
- Comment récupérer un compte facebook piraté - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Recuperer video youtube - Guide
- Récupérer compte hotmail sans formulaire ✓ - Forum Hotmail / Outlook.com
- Trouver une adresse avec un nom de famille gratuit ✓ - Forum Mobile
3 réponses
yg_be
Messages postés
22707
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
Modifié par yg_be le 13/12/2016 à 19:28
Modifié par yg_be le 13/12/2016 à 19:28
Je suggère de mettre "FX1" dans ton Txt250, et tu ferais :
Je pense à une autre façon de faire. Moi je ferais le requery dans le code VBA du sous-formulaire, au retour du formulaire FF. Et le formulaire FF stockerait dans la base de données la valeur par défaut, utilisée également au retour du formulaire FF.
F1 = Me.TXT250.value Forms(F1).Controls("S"+F1)![LB_EXPERT].Requery Forms(F1).Controls("S"+F1)![LB_EXPERT] = Me.LB_EXPERT.Value
Je pense à une autre façon de faire. Moi je ferais le requery dans le code VBA du sous-formulaire, au retour du formulaire FF. Et le formulaire FF stockerait dans la base de données la valeur par défaut, utilisée également au retour du formulaire FF.
merci yg_be
pour ta suggestion "Forms("FXn").Controls("SFXn"), et changer la valeur des chaines de caractères", j'ai essayé mais c'est la base de mon problème qui reste entier.
je vais donc synthétiser mon problème : dans un formulaire, j'ai un champs avec une valeur indépendante. Cette valeur, je veux l'utiliser dans le module VBA du même formulaire comme nom d'objet (en l’occurrence, un sous-formulaire inclus dans un formulaire qui n'est pas notre formulaire actuel)
pour ta suggestion "Forms("FXn").Controls("SFXn"), et changer la valeur des chaines de caractères", j'ai essayé mais c'est la base de mon problème qui reste entier.
je vais donc synthétiser mon problème : dans un formulaire, j'ai un champs avec une valeur indépendante. Cette valeur, je veux l'utiliser dans le module VBA du même formulaire comme nom d'objet (en l’occurrence, un sous-formulaire inclus dans un formulaire qui n'est pas notre formulaire actuel)
yg_be
Messages postés
22707
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
13 déc. 2016 à 19:29
13 déc. 2016 à 19:29
Je viens de mettre à jour ma réponse précédente, sans doute plus clair ainsi.
Lasiomata
Messages postés
5
Date d'inscription
mardi 13 décembre 2016
Statut
Membre
Dernière intervention
20 décembre 2016
14 déc. 2016 à 10:50
14 déc. 2016 à 10:50
très très TRES cher yg_be
tu as résolu mon problème et je t'en suis infiniment reconnaissant
je n'étais visiblement pas loin, mon script se jouait à une parenthèse en moins et un crochet en trop...
le script final, pour la postérité
tu as résolu mon problème et je t'en suis infiniment reconnaissant
je n'étais visiblement pas loin, mon script se jouait à une parenthèse en moins et un crochet en trop...
le script final, pour la postérité
Dim F1 As String
Dim SF1 As String
F1 = Me.FX.Value
SF1 = Me.SFX.Value
'Met à jour la liste de valeur dans le formualire REG_METIER_EXPERTS
Forms(F1).Controls(SF1)![LB_EXPERT].Requery
'Reporte la valeur SRG dans REG_METIER_EXPERT
Forms(F1).Controls(SF1)![Texte250] = Me.LB_EXPERT.Value
Dim stDocName As String
stDocName = "Saisie_Expert_plus"
DoCmd.Close acForm, "Saisie_Expert_plus"
yg_be
Messages postés
22707
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
14 déc. 2016 à 16:30
14 déc. 2016 à 16:30
Merci alors de marquer la question comme résolue.
Lasiomata
Messages postés
5
Date d'inscription
mardi 13 décembre 2016
Statut
Membre
Dernière intervention
20 décembre 2016
14 déc. 2016 à 17:37
14 déc. 2016 à 17:37
désolé, je suis débutant ici.
c'est fait
et encore merci !!!
c'est fait
et encore merci !!!