Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
 -  Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
115 Abonnés
 
 

Formulaire - Données non saisies

Description 

Cette fonction permet de retourner une chaîne contenant le nom des contrôles de type :

  • zone de texte,
  • zone de liste,
  • zone de liste modifiable.

qui n'ont pas été renseignés dans un formulaire.

 
Synthaxe 

expression = DataNull ()

 
Exemple 

Pour utiliser cette fonction, il suffit de mettre ce code sur l'évènement "Sur libération" :

Private Sub Form_UnLoad (Cancel As Integer)

Dim strMsg As String

strMsg = DataNull
If strMsg <> "" Then
        Cancel = True
        MsgBox strMsg, vbCritical
End If

End Sub

Ce code aura pour effet d'annuler la fermeture du formulaire et d'informer avec un message, des zones qui n'ont pas été saisies.

 
Code de la fonction 


Public Function DataNull() As String

    Dim frm As Form
    Dim ctl As Control
    Dim strMsg As String

    Set frm = Screen.ActiveForm

    For Each ctl In frm.Controls
        If ctl.ControlType = acTextBox _
        Or ctl.ControlType = acListBox _
        Or ctl.ControlType = acComboBox Then
            If IsNull(ctl.Value) Or ctl.Value = "" Then _
                strMsg = strMsg & vbCrLf & vbTab & "- " & ctl.Name
        End If
    Next

    If strMsg <> "" Then DataNull = "Vous devez saisir : " & vbCrLf & strMsg

End Function

 


Date de création : 19/02/2007 @ 09:28
Dernière modification : 19/02/2007 @ 09:31
Catégorie : Formulaire
Page lue 1797 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 76 Membres

membres les 10 derniers :
jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   fatima   foubay   feever   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 2

Total visites : Total visites : 121647  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.1 seconde