MVP Office Access 2003, 2004, 2005 et 2006
Base de données Base de données Administrateur Administrateur Table Table Requête Requête Formulaire Formulaire Dates & Heures Dates & Heures Nombre Nombre Math Math Fichier Fichier Commandes externes Commandes externes Automation Automation Equivalence Equivalence
Base de données Base de données
|
Formulaire - Absence dans liste
| | 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. | | | | | | | |
| | Add_NotInList (strTable, strQuery, fldGroup)
La synthaxe de la fonction Add_NotInList comprend les éléments suivants : Eléments | Description | strTbl | Expression de chaîne correspondant au nom de la table source de la zone de liste modifiable. | strFld | Expression de chaîne correspondant au nom du champ qui contient la données | NewData | Expression de chaîne correspondant à la donnée qui a été saisie dans la zone de liste modifiable. | Response | Expression numérique permettant de déterminer comment doit être traitée l'absence dans la liste. |
| | | | | | | |
| | 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
| | | | | | | |
| |
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
Imprimer la page
Personne n'a encore laissé de commentaire. Soyez donc le premier ! |
|
79 Membres
les 10 derniers :
Membre en ligne :
( personne ) Anonymes en ligne : 3
Total visites : 174472
Affluence record: 102
le 17/06/2007 @ 07:36
|