Bouton de commande et fermeture de formulaire
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 :
Code:
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 |
Et pour finir, j'ai une question de débutant ... :oops:
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 :
Code:
1
2
|
DoCmd.Close [acForm, "FormB"] |
Or Access me répond ...
"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 ?
