Bonjour,

J'ai une fonction de gestion de saisie dynamique.

Je veux que si aucun champ n'est saisie qu'on est le message suivant :

Vous devez remplir les champs suivants pour pouvoir continuer :
- Nom ou Marque et Couleur.
- Client
- Longueur
- Largeur

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
 
 If dr("Vide") = True Then
                NomLabel = Nothing
                Controls = FrmRef.Controls.Find(DRRead(dr, "NomLabel"), True)
                If Controls.Length > 0 Then
                    NomLabel = Controls(0)
                End If
 
                If NomLabel IsNot Nothing Then
 
                    vLabel = CType(NomLabel, Label).Text
                    vIndex = vLabel.LastIndexOf(":")
 
                    If vIndex > 0 Then
 
                        vMessage = vMessage & "- " & vLabel.Substring(0, vIndex - 1) & vbCrLf
                    Else
                        vMessage = vMessage & "- " & vLabel & vbCrLf
                    End If
                End If
 
 
            End If
Comment faire ?

Merci