Bouton de commande et fermeture de formulaire

**KEROZEN** · 28/06/2006, 14h07

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 :

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

Et pour finir, j'ai une question de débutant ...

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 :

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

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 ?