Salut,
Tout d'abord un grand merci à PGZ pour son aide précieuse sur l'écriture du code permettant d'importer la valeur d'un contrôle depuis un formulaire vers un autre contrôle d'un second formulaire.
Dans un second temps, si cela intéresse quelqu'un, sachez qu'il est possible d'insérer cette partie du code dans le code d'un bouton de commande :
Et pour finir, j'ai une question de débutant ...
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
16
17
18
19
20
21
22
23
24
25
26 Private Sub Commande45_Click() On Error GoTo Err_Commande45_Click Dim stDocName As String stDocName = "FormA" DoCmd.OpenForm stDocName, acNormal, acEdit If Application.CurrentProject.AllForms("FormA").IsLoaded Then Forms!FormA.Champs1.Value = Me.Champs1.Value Forms!FormA.Champs2.Value = Me.Champs2.Value Forms! ... End If Exit_Commande45_Click: Err_Commande45_Click: MsgBox err.Description Exit Sub Resume Exit_Commande45_Click End Sub![]()
Je souhaiterais inclure dans le code ci-dessus une instruction de fermeture du formulaire en cours, en l'occurence le formulaire depuis lequel les informations sont exportées (FormB). Pour cela, après "End if" j'ai écris :
Or Access me répond ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 DoCmd.Close [acForm, "FormB"]
"Impossible de trouver le champ "l" auquel il est fait référence dans votre expression"
... et n'applique donc pas la commande de fermeture du formulaire !
J'ai eu beau relire le code, je ne comprends absolu rien de ce que veut dire Access en désignant cette lettre "l".
Voyez-vous quelque chose dans ces lignes qui pourrait expliquer cela ?
Partager