Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Lister les controles d'un formulaire

4 réponses
Avatar
Zeusz198
bonjour,

je souhaiterais verifier l'existence de sous formulaire dans un formulaire
donné.

j'ai déjà créer ce code :

Public Function test(nomform As String)
Dim ctl As Control

For Each ctl In Forms(nomform).Controls
If (ctl.ControlType = acSubform) Then
MsgBox "Formulaire: " & nomform & " - SS Form: " & ctl.Name
End If
Next

End Function

mais j'ai un message d'erreur qui me dit que le nom de mon formulaire
n'existe pas.

pourriez vous m'aider a resoudre mon pb...

merci d'avance pour votre aide

4 réponses

Avatar
Gilbert
Bonjour,

J'ai testé ton code. Je n'ai pas eu de message d'erreur et j'ai bien eu la
liste des sous-formulaires.
A part vérifier l'orthographe de ton formulaire, je ne sais pas...

--
Cordialement,

Gilbert


"Zeusz198" a écrit dans le message de news:

bonjour,

je souhaiterais verifier l'existence de sous formulaire dans un formulaire
donné.

j'ai déjà créer ce code :

Public Function test(nomform As String)
Dim ctl As Control

For Each ctl In Forms(nomform).Controls
If (ctl.ControlType = acSubform) Then
MsgBox "Formulaire: " & nomform & " - SS Form: " & ctl.Name
End If
Next

End Function

mais j'ai un message d'erreur qui me dit que le nom de mon formulaire
n'existe pas.

pourriez vous m'aider a resoudre mon pb...

merci d'avance pour votre aide




Avatar
Zeusz198
j'ai verifier le nom de mon formulaire. j'ai meme essayer avec d'autres et
rien a faire

il me dit "Impossible de trouver le formulaire xxxxx auquel il fait
reference dans une expression de macro ou de Visual Basic"

je l'ai meme importer dans une autre base access...


Je ne comprends pas mon problème !!

"Gilbert" a écrit dans le message de news:

Bonjour,

J'ai testé ton code. Je n'ai pas eu de message d'erreur et j'ai bien eu la
liste des sous-formulaires.
A part vérifier l'orthographe de ton formulaire, je ne sais pas...

--
Cordialement,

Gilbert


"Zeusz198" a écrit dans le message de news:

bonjour,

je souhaiterais verifier l'existence de sous formulaire dans un
formulaire donné.

j'ai déjà créer ce code :

Public Function test(nomform As String)
Dim ctl As Control

For Each ctl In Forms(nomform).Controls
If (ctl.ControlType = acSubform) Then
MsgBox "Formulaire: " & nomform & " - SS Form: " & ctl.Name
End If
Next

End Function

mais j'ai un message d'erreur qui me dit que le nom de mon formulaire
n'existe pas.

pourriez vous m'aider a resoudre mon pb...

merci d'avance pour votre aide








Avatar
Gilbert
Dans le message qui s'affiche, as-tu bien le nom du formulaire à la place de
xxxxx ?

--
Cordialement,

Gilbert


"Zeusz198" a écrit dans le message de news:

j'ai verifier le nom de mon formulaire. j'ai meme essayer avec d'autres et
rien a faire

il me dit "Impossible de trouver le formulaire xxxxx auquel il fait
reference dans une expression de macro ou de Visual Basic"

je l'ai meme importer dans une autre base access...


Je ne comprends pas mon problème !!

"Gilbert" a écrit dans le message de news:

Bonjour,

J'ai testé ton code. Je n'ai pas eu de message d'erreur et j'ai bien eu
la liste des sous-formulaires.
A part vérifier l'orthographe de ton formulaire, je ne sais pas...

--
Cordialement,

Gilbert


"Zeusz198" a écrit dans le message de news:

bonjour,

je souhaiterais verifier l'existence de sous formulaire dans un
formulaire donné.

j'ai déjà créer ce code :

Public Function test(nomform As String)
Dim ctl As Control

For Each ctl In Forms(nomform).Controls
If (ctl.ControlType = acSubform) Then
MsgBox "Formulaire: " & nomform & " - SS Form: " & ctl.Name
End If
Next

End Function

mais j'ai un message d'erreur qui me dit que le nom de mon formulaire
n'existe pas.

pourriez vous m'aider a resoudre mon pb...

merci d'avance pour votre aide













Avatar
Gilbert
Précision importante: il faut que le formulaire soit ouvert!

--
Cordialement,

Gilbert


"Zeusz198" a écrit dans le message de news:

j'ai verifier le nom de mon formulaire. j'ai meme essayer avec d'autres et
rien a faire

il me dit "Impossible de trouver le formulaire xxxxx auquel il fait
reference dans une expression de macro ou de Visual Basic"

je l'ai meme importer dans une autre base access...


Je ne comprends pas mon problème !!

"Gilbert" a écrit dans le message de news:

Bonjour,

J'ai testé ton code. Je n'ai pas eu de message d'erreur et j'ai bien eu
la liste des sous-formulaires.
A part vérifier l'orthographe de ton formulaire, je ne sais pas...

--
Cordialement,

Gilbert


"Zeusz198" a écrit dans le message de news:

bonjour,

je souhaiterais verifier l'existence de sous formulaire dans un
formulaire donné.

j'ai déjà créer ce code :

Public Function test(nomform As String)
Dim ctl As Control

For Each ctl In Forms(nomform).Controls
If (ctl.ControlType = acSubform) Then
MsgBox "Formulaire: " & nomform & " - SS Form: " & ctl.Name
End If
Next

End Function

mais j'ai un message d'erreur qui me dit que le nom de mon formulaire
n'existe pas.

pourriez vous m'aider a resoudre mon pb...

merci d'avance pour votre aide