Les syntaxes d'appel Interaction des formulaires et des états.

Qu'il s'agisse de formulaires ou d'états, la structure de la syntaxe d'appel est identique. Seuls les mots clefs différenciant formulaires et états changent. En effet, pour les formulaires, nous utiliserons Forms et pour les états Reports.

Tableau des mots clefs disponibles dans un contexte.

Ci-dessous quelques exemples d'appels valides :

Lorsque la propriété d'un contrôle est modifiable, nous pouvons agir sur celle-ci de la manière suivante :

Forms.monform.moncontrole.nom_de_propriété = Variable

Pour le contenu d'un contrôle, procédez de la même manière.

La récupération des valeurs des propriétés ou de contenus se fait de la manière suivante :

Variable = Forms.monform.moncontrole.nom_de_propriété

On peut communiquer entre formulaires, états, états et formulaires et vice-versa.

La syntaxe est : Récepteur = Émetteur

' 2 formulaires différents
Forms.monform1.moncontrole.nom_de_propriété = Forms.monform2.moncontrole.nom_de_propriété
' dans le même formulaire
Forms.monform1.moncontrole.nom_de_propriété = Forms.monform1.moncontrole.nom_de_propriété

Notez que le premier exemple peut être appliqué aux suivants :

Reports.monreport.moncontrole.nom_de_propriété = Reports.monreport.moncontrole.nom_de_propriété

' le formulaire reçoit la valeur de l'état
Forms.monform.moncontrole.nom_de_propriété = Reports.monreport.moncontrole.nom_de_propriété

' l'état reçoit la valeur du formulaire.
Reports.monreport.moncontrole.nom_de_propriété = Forms.monform.moncontrole.nom_de_propriété

Pour les tests de valeurs, la syntaxe est strictement identique.

If Forms.monform.moncontrole.nom_de_propriété = Forms.monreport.moncontrole.nom_de_propriété then

Le module de classe est le module attaché à un formulaire ou à un état. Lorsque vous faites référence à l'un de ces deux objets ou à leurs contrôles à l'intérieur de leur module respectif, vous pouvez utiliser l'objet Me. Celui-ci est équivalent à la syntaxe vue précédemment Forms.nom_formulaire ou Reports.nom_état.

Lorsque vous tapez le point après Me, vous pouvez apercevoir qu'une liste très fournie apparait.

Cette liste contient les contrôles utilisateur, les méthodes et les propriétés disponibles pour le formulaire ou l'état courant.

Au contraire, la liste qui apparait pour Forms ou Reports est beaucoup moins riche.

Dans un module classique, inutile d'utiliser Me. Il ne peut exister puisqu'il fait référence à un formulaire ou un état propriétaire.
Vous devez utiliser Forms ou Reports.

III-C-1. Pour une référence à un autre formulaire ou état▲

=forms.nom_form.name
' est automatiquement traduit en
=[Formulaires].[nom_form].[nom]

III-C-2. Dans le même formulaire ou état▲

=name
' est également traduit en
=[nom]

Dans les requêtes, vous pouvez également faire référence à un formulaire ou un état. Comme pour l'expression, utilisez Forms et Reports.

SELECT Table.Champ, [forms].[nom_form].[nom_controle1] AS etiq
FROM Table
WHERE (((Table.Champ)=[forms].[nom_form].[nom_controle2]))
ORDER BY [forms].[nom_form].[nom_controle1];

On peut observer dans la requête précédente que les références à un formulaire peuvent se faire pour un champ, une condition ou un tri.

Il existe deux syntaxes que nous n'avons pas abordées. Il s'agit de ActiveForm et ActiveReport. Celles-ci appartiennent à Application.Screen et désignent l'objet formulaire ou état actif à l'écran au moment de l'appel. Vous ne devez pas spécifier de nom de formulaire ou d'état.

' pour un formulaire
Application.Screen.ActiveForm
' pour un état
Application.Screen.ActiveReport

La richesse et la souplesse du langage VBA n'étant plus à démontrer, nous allons inventorier les différentes variations de Forms et Reports.

III-F-1. La pile et son fonctionnement▲

Sub ListeFormsOuvert()
Dim i As Integer
On Error Resume Next                 ' intercepte l'erreur
For i = 0 To Forms.Count -1          ' count est le nombre de formulaires ouverts
            'Reports.Count -1      ' pour les reports        
    Debug.Print Forms(i).Name     ' pour les formulaires
    ' Debug.Print Reports(i).Name ' pour les reports
Next
End Sub

Après les listes de formulaires ou états ouverts, VBA met à notre disposition la collection AllForms et AllReports de l'objet CurrentProject. Ces deux collections contiennent tous les formulaires (AllForms) et tous les états (AllReports) du projet courant (CurrentProject).

Sub AllForms()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Recherche les objets AccessObject ouverts 
    ' dans la collection AllForms.
    For Each obj In dbs.AllForms
        If obj.IsLoaded = TRUE then
            ' Affiche le nom de l'objet.
            Debug.Print obj.Name
        End If
    Next obj
End Sub

Comme pour Forms, la collection AllForms dispose d'un éventail de syntaxes.

À partir de la syntaxe précédente, nous pouvons descendre de plusieurs niveaux dans les sous-formulaires ou sous-états.

En prenant l'exemple ci-dessus, nous allons développer une série de syntaxes pour accéder à chaque contrôle de texte.

' syntaxe module et module de classe
Forms.frm_principal.frm_sfrm1.Form.texte0
' syntaxe de module de classe
Me.frm_sfrm1.Form.texte0

Forms.frm_principal.frm_sfrm1.Form.frm_sfrm2.Form.texte0

On peut descendre dans les sous-formulaires jusqu'à la limite fixée par ACCESS. Cette limite est généralement indiquée dans l'aide ACCESS. Utilisez la recherche sur le mot Limitation pour avoir accès aux descriptifs des limitations de votre version.

Suivant le contexte, remonter dans les niveaux se pratique de plusieurs manières. Dans un module, on peut utiliser la méthode pour descendre dans les niveaux.
Dans les modules de classe, il existe le pendant de Form et Report pour remonter dans la structure. Il s'agit du mot clef Parent dont l'utilisation est plus simple.

' descente d'un niveau
Me.Parent.texte0
' descente de deux niveaux
Me.Parent.Parent.texte0

Totalement inutile, la syntaxe suivante consiste à descendre dans le deuxième sous-formulaire pour remonter dans le premier sous-formulaire.

Forms.frm_principal.frm_sfrm1.Form.frm_sfrm2.Parent.texte0

Cette syntaxe fait référence au contrôle Texte0 de frm_sfrm1. Elle est équivalente à la suivante.

Forms.frm_principal.frm_sfrm1.Form.texte0

VBA Access permet également d'affecter un formulaire ou un état à une variable objet. Nous avons accès à l'ensemble de ses propriétés et contrôles, sous-formulaires ou sous-états.
Pour les formulaires et états du plus haut niveau, les avantages ne sont pas flagrants.

Function Appel_frm()
Dim frm As Form    ' ou Object
Set frm = Forms.frm_principal
    Debug.Print frm.Name                  ' le nom du sous-formulaire    
    Debug.Print frm.frm_sfrm1.Form.Name   ' le nom du sous-formulaire     
End Function

Plus intéressant, l'utilisation de l'objet pour y affecter un sous-formulaire ou sous-état en faisant abstraction de son ou ses parents. En effet, qui vous empêche d'utiliser un sous-formulaire dans plusieurs formulaires ? Dans ce cas, nommer explicitement le sous-formulaire dans un processus implique une redondance de procédures et de fonctions.
Dans l'exemple suivant, nous affectons un sous-formulaire à une variable objet.

Function appelssf()
Dim sfrm As Form    ' ou Object
Set sfrm = Form_frm_sfrm3
MsgBox sfrm.Name
End Function

Retrouvez les préfixes disponibles dans le tableau suivant :

Certaines versions d'ACCESS (constaté avec la version 2000 SP3) provoque une erreur lors d'appels complexes (sous-formulaire de 2e niveau par exemple) :
Erreur d'exécution '-214650094 (800f000e)':
La méthode 'Form' de l'objet '_SubForm' a échoué

Après une recherche, c'est chez Allen Browne (Microsoft MVP. Perth, Western Australia) que j'ai trouvé la parade. Voici sa solution dont je vous livre la traduction.

1. Créer une nouvelle base vierge.
2. Décocher la case Outils/Options/Général/Effectuer correction automatique de nom.
3. Importer l'intégralité des objets Fichier/Données Externes…/Importer…

Il ajoute notamment que cette option est la source de nombreux problèmes.