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
117 Abonnés
 
 

Formulaire - Absence dans liste

Description 

Cette fonction permet de d'aouter une valeur dans la table servant de source de donnée à une zone de liste modifiable lorsque cette valeur n'existe pas encore.

Pour fonctionner, il faut mettre la propriété "Limiter à liste" de la zone de liste modifiable à Oui.

 
Synthaxe 

Add_NotInList (strTable, strQuery, fldGroup)

La synthaxe de la fonction Add_NotInList comprend les éléments suivants :

ElémentsDescription

strTbl

Expression de chaîne correspondant au nom de la table source de la zone de liste modifiable.
strFldExpression de chaîne correspondant au nom du champ qui contient la données
NewDataExpression de chaîne correspondant à la donnée qui a été saisie dans la zone de liste modifiable.
ResponseExpression numérique permettant de déterminer comment doit être traitée l'absence dans la liste.
 
Exemple 

Pour utiliser cette fonction, voilà le code à mettre sur l'évènement "Sur absence dans la liste" :

Private Sub LaZoneDeListe_NotInList(NewData As String, _
Response As Integer)

Add_NotInList "TableSource", "ChampSource", _
        NewData, Response

End Sub

 
Code de la fonction 


Public Function Add_NotInList(strTbl As String, strFld As String, _
    NewData As String, Response As Integer) As Boolean

Dim Msg As Long

Msg = MsgBox("L'élément [" & NewData & "] ne figure pas " _
        & "dans la liste. Voulez-vous l'ajouter ?", _
         vbQuestion + vbYesNo)
         
If Msg = vbYes Then
        CurrentDb.Execute "INSERT INTO [" & strTbl & "] ([" & strFld & "]) " _
            & "SELECT """ & NewData & """ ;"
        Response = acDataErrAdded
        Add_NotInList = True
Else
        Response = acDataErrContinue
        Add_NotInList = False
End If

End Function

 


Date de création : 13/11/2006 @ 16:06
Dernière modification : 13/11/2006 @ 16:48
Catégorie : Formulaire
Page lue 2466 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 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 3

Total visites : Total visites : 174472  
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.12 seconde