Discussion :

[lerico]

Bonjour,

J'ai un formulaire qui contient deux sous-formulaires.
Je sais récupérer le nom du formulaire mais comment récupére-t-on les noms et les sources des sous formulaires.

J'ai essayé un début de code mais cela ne marche pas :

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
Function Quitter_Pointage()
 
    Dim strFormName, ssFormName1, ssFormName2 As String
    Dim frmCurrentForm As Form
    Dim ssCurrentForm As SubForm
 
    Set frmCurrentForm = Screen.ActiveForm
    Set ssCurrentForm = Screen.ActiveForm
 
    strFormName = frmCurrentForm.Name
    ssFormName1 = ssCurrentForm.Name
 
    MsgBox "" & strFormName & " - " & ssFormName1 & ""
 
End Function

Merci pour votre aide,

LeRico

[marot_r]

Une piste :

Les sous forms sont des 'control' donc le code ci-dessous devrait t'aider à trouver.

Code :

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

1
2
3
4
5
6
7
 
dim c as control
for each c in frmCurrentForm.controls
   if c.ControlType = mettre ici le nombre correspondant à type Sous-Form
     debug.print c.name
   end if
next c

A+

[lerico]

Merci pour ton code.

Mais je n'arrive pas à trouver le moyen de ressortir les noms et sources des sous formualires.

Que veux tu dire par

mettre ici le nombre correspondant à type Sous-Form

Est-le nombre de sous formulaires dans le formulaire ?

LeRico

[marot_r]

Chaque controle à un Type (ex : Texte, Liste déroulante, etc...) et ce type est identifié par un code numérique (ex : 10) mais je ne sais pas le code qui représente un controle de type Sous-Formulaire.

Le plus simple est de faire le test suivant (lance la code avec un bouton que tu ajoute à ton form)

Code :

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

1
2
3
4
5
6
 
dim c as control.
debug.print me.name:'Nom du form courrant
for each c in me.control
   debug.print c.name, c.controltype
next c

avec le nom tu vas savoir quel est le sous-form et tu connaitra le code du type.

Il y a des constantes VBA du genre dbText qui sont plus parlante qu'un nombre mais je ne les connait pas.

A+

[CAMIC]

Salut tout le monde,

La valeur du type subform est acSubform

voici un extrait d'un de mes codes:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim oControl As Control
For Each oControl In Me.Controls
    With oControl
        If .ControlType = acSubform Then
            debug.print .Form.name
        End If
    End With
Next oControl

Que veut-tu dire par source des sous formulaires ?

A+

[lerico]

Merci pour vos réponses.
Je vais tester les codes ce matin.

Pour répondre, à la question de CAMIC

Que veut-tu dire par source des sous formulaires ?

Par sourcen j'entend le nom de la table ou de la requète rattaché au sous formulaire.

A+

LeRico

[lerico]

C'est parfait. J'ai réussit à me débloquer.

Je met mon code ci-dessous :

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
 'Récupère les noms des sous-formulaires
    Set frmCurrentForm = Screen.ActiveForm
 
    strFormName = frmCurrentForm.Name
 
    For Each c In frmCurrentForm.Controls
 
        If c.ControlType = acSubform Then
 
            Set rst = CurrentDb.OpenRecordset("Parametres_Multi")
 
                rst.AddNew
                rst!Formulaire = strFormName
                rst!Sous_Formulaire = c.SourceObject
                rst.Update
 
        End If
 
    Next c

Je stocke les noms des sous-formulaires dans une table pour recherche les sources.

Merci.

LeRico