Discussion :

[ludovicparis]

Bonjour,

J'aimerais contrôler la saisie dans une zone de liste modifiable, je connais la méthode NotInList mais j'aimerais que si cette référence n'est pas dans la liste elle y soit incorporée une fois la saisie terminée et que si elle est déjà présente qu'un message d'erreur soit affiché
Pour le moment quand je saisie la référence j'ai le message d'erreur comme quoi la référence n'est pas dans la liste.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub RefHarnais_NotInList(NewData As String, Response As Integer) 
 
Response = acDataErrAdded
 
MsgBox "Vous avez créer une nouvelle référence."
 
 
End Sub

Si quelqu'un a une idée, je suis tout ouie.

[jawed]

salut
j'ai eu de l'aide de developeur ici
j'espaire que ca t'aidera
A+

[ludovicparis]

j'ai regardé ton lien merci, le problème est que j'ai toujours le message : "le texte entré n'est pas un élément de la liste"

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
Private Sub RefHarnais_NotInList(NewData As String, Response As Integer)
 
Dim entDemande As Integer
 
Dim bds As Database, rst As Recordset
entDemande = MsgBox("Ajouter une nouvelle référence ?", vbQuestion + vbYesNo)
If entDemande = vbYes Then
    Set bds = CurrentDb
    Set rst = bds.OpenRecordset("Harnais")
    rst.AddNew
    rst.Update
    Response = acDataErrAdded
Else
    Response = acDataErrDisplay
    Exit Sub
End If
rst.Close
End Sub

J'ai donc toujours ce problème, je ne peux pas entrer une nouvelle reférence. Access voit que cette référence n'existe pas (logique elle n'est pas encore créer) donc il ne veux pas "l'enregistrer".

[Invité]

Bonjour

Tu as mal vu le code que t'a fourni jawed, il te manque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst!Nom = NewData

entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.AddNew

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.Update

en remplaçant Nom par ton champ de table, car là tu n'inscris rien dans ta table

Starec

[ludovicparis]

Merci starec

Effectivement j'avais oublié cette ligne, maintenant je n'ai plus le message d'erreur mais le problème est que, quand je rentre une référence qui existe déjà, je n'ai pas de message d'erreur qui apparaît comme je le souhaite.

[Invité]

Bonjour

C'est normal, car l'événement NotInList est comme son nom l'indique : signal ce qui n'est pas dans la liste.

Pourquoi veux-tu détecter si un élément est bien dans la liste ?

Starec

[ludovicparis]

En faite j'ai une table composé des champs suivants :

Contact 1
Contact 2
Cable

Reference

Par exemple la référence 0125 me donne comme composition Contact1 : RSC, Contact2: RMA et Cable 3311125934

Seulement d'autres référence vont être créées dans les prochains mois, j'ai donc créé un formulaire pour entrer ces nouvelles références dans la table. Seulement pour qu'il n'y ai pas 2 fois la même référence (erreur de saisie de l'utilisateur) et donc une même référence avec des compositions différentes je veux qu'après avoir entré la reférence dans la liste modifiable de mon formulaire, un message d'erreur apparaisse au cas où cette référence existe déjà.

J'espère être compréhensible.

[Invité]

Re

Ce qu'il faut que tu fasses sur l'événement After_Update de ta liste, c'est de faire une recherche, pour cela utilise la fonction DLookup, je te laisse le soin d'aller voir dans l'aide.

Et fais une recherche sur le forum avec DLookup, il y'a de nombreux exemples.

Starec

[kgb1917]

Tiré de l'aide d'access sur BeforeUpdate :

L'exemple suivant montre comment utiliser une procédure événementielle BeforeUpdate pour contrôler si un nom de produit a déjà été entré dans la base de données. Après que l'utilisateur a tapé un nom de produit dans la zone ProductName (Nom du produit), la valeur est comparée avec le champ ProductName (Nom du produit) de la table Products (Products). Si cette table contient une valeur correspondante, un message avertit l'utilisateur que le produit a déjà été entré.

Pour essayer l'exemple, ajoutez la procédure événementielle suivante à un formulaire nommé Products contenant une zone de texte appelée ProductName.

Private Sub ProductName_BeforeUpdate(Cancel As Integer)
If(Not IsNull(DLookup("[ProductName]", _
"Products", "[ProductName] ='" _
& Me!ProductName & "'"))) Then
MsgBox "Product has already been entered in the database."
Cancel = True
Me!ProductName.Undo
End If
End Sub

[ludovicparis]

Merci avec le before Update ça fonctionne parfaitement.