Discussion :

[kinine]

bonjour à tous,

je suis en panne de bonne idée pour mon problème :

j'ai une base de données avec 7 formulaires qui contiennent entre autre chacun 5 champs de listes de choix servant d'identifiant principal et secondaire.

form A : id | id_princip |id_secondaire1 |id_secondaire2 |id_secondaire3 | id_secondaire4 |
form B : id | id_princip |id_secondaire1 |id_secondaire2 |id_secondaire3 | id_secondaire4 |
et ainsi de suite jusqu'au 7me

Est ce qu'il existe un moyen de coder une fonction recherchant successivement dans ces 7 formulaires si chacun des champs est null ou non et si non null renvoit la donnée du champ du formulaire scanné ?

merci d'avance
kinine

[loufab]

Bonjour,

Parcourir les formulaires ouverts.
Et les contrôles de chaque formulaire.

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
 
Dim frm As Form
Dim ctrl As Control
Dim i As Long
Dim j As Long
 
For Each frm In Forms
     Debug.Print frm.Name
     For Each ctrl In frm.Controls
         Debug.Print ctrl.Name
         If TypeOf ctrl Is TextBox Then 'a étoffer suivant les types de controles à scanner
           Debug.Print ctrl.Value
         End If
     Next
Next

On peut également gérer les sous-formulaires.

Cordialement

[kinine]

parfait merci