Pas dans la liste

Bonjour à tous et toutes,

Dans un formulaire, j'ai inséré cette procédure proposée par Raymond :

Private Sub Prénom_NotInList(NouvelleValeur As String, Response As
Integer)

If AjoutValeur(NouvelleValeur) Then
Suite = acDataErrAdded
Else
Suite = acDataErrContinue
End If

End Sub
__________________________________________
Private Function AjoutValeur(NouvelleValeur As String) As Boolean
On Error Resume Next
AjoutValeur = False
If Me.ActiveControl.RowSourceType <> "Value List" Then
Exit Function
End If
If MsgBox("Cette valeur ne figure pas dans la liste." & vbCrLf & _
"Voulez-vous l'ajouter ?", vbYesNo, NouvelleValeur & ":
Valeur

inconnue") _
= vbYes Then
Me.ActiveControl.RowSource = Me.ActiveControl.RowSource & ";" _
& NouvelleValeur
AjoutValeur = True
Else
Me.ActiveControl.Undo
End If
End Function
_____________________________________________
J'ai pris la précaution de mettre "Limiter la liste" à "oui" pour cette
liste déroulante "Prénom"

Aurais-je l'esprit embrumé ? Access (2000) me dit que l'élément ajouté
n'appartient pas à la liste et ne l'ajoute donc à la liste ni à la source.

Merci de votre aide

A+

C15

Bonjour à tous et toutes,

Dans un formulaire, j'ai inséré cette procédure proposée par Raymond :

Private Sub Prénom_NotInList(NouvelleValeur As String, Response As
Integer)

If AjoutValeur(NouvelleValeur) Then
Suite = acDataErrAdded
Else
Suite = acDataErrContinue
End If

End Sub
__________________________________________
Private Function AjoutValeur(NouvelleValeur As String) As Boolean
On Error Resume Next
AjoutValeur = False
If Me.ActiveControl.RowSourceType <> "Value List" Then
Exit Function
End If
If MsgBox("Cette valeur ne figure pas dans la liste." & vbCrLf & _
"Voulez-vous l'ajouter ?", vbYesNo, NouvelleValeur & ":
Valeur

inconnue") _
= vbYes Then
Me.ActiveControl.RowSource = Me.ActiveControl.RowSource & ";" _
& NouvelleValeur
AjoutValeur = True
Else
Me.ActiveControl.Undo
End If
End Function
_____________________________________________
J'ai pris la précaution de mettre "Limiter la liste" à "oui" pour cette
liste déroulante "Prénom"

Aurais-je l'esprit embrumé ? Access (2000) me dit que l'élément ajouté
n'appartient pas à la liste et ne l'ajoute donc à la liste ni à la source.

Merci de votre aide

A+

C15

Bonjour,
L'esprit est embrumé, cette proc fonctionne bien.
Question bête il y a bien [Procédure événementielle] dans les événements
en

face de sur absence dans liste?
Et au fait pourquoi en Liste de valeur et pas en Table ça mettrait les
prénoms par ordre alpha et une liste de valeur c'est limité en taille.
Mais de quoi je m'occupe.
Bon bien courage.
@+
Denis

"C15" <MéfiezVousDesSpams@club-internet.fr> a écrit dans le message de
news:3ff913b3$0$6974$7a628cd7@news.club-internet.fr...

Bonjour à tous et toutes,

Dans un formulaire, j'ai inséré cette procédure proposée par Raymond :

Private Sub Prénom_NotInList(NouvelleValeur As String, Response As
Integer)

If AjoutValeur(NouvelleValeur) Then
Suite = acDataErrAdded
Else
Suite = acDataErrContinue
End If

End Sub
__________________________________________
Private Function AjoutValeur(NouvelleValeur As String) As Boolean
On Error Resume Next
AjoutValeur = False
If Me.ActiveControl.RowSourceType <> "Value List" Then
Exit Function
End If
If MsgBox("Cette valeur ne figure pas dans la liste." & vbCrLf & _
"Voulez-vous l'ajouter ?", vbYesNo, NouvelleValeur & ":
Valeur

inconnue") _
= vbYes Then
Me.ActiveControl.RowSource = Me.ActiveControl.RowSource & ";" _
& NouvelleValeur
AjoutValeur = True
Else
Me.ActiveControl.Undo
End If
End Function
_____________________________________________
J'ai pris la précaution de mettre "Limiter la liste" à "oui" pour cette
liste déroulante "Prénom"

Aurais-je l'esprit embrumé ? Access (2000) me dit que l'élément ajouté
n'appartient pas à la liste et ne l'ajoute donc à la liste ni à la
source.

Merci de votre aide

A+

C15

Bonjour C15 et bonne année.

c'est normal c'est un exemple simple pour le type valeurs et non
requête/table.
j'évite de faire des doublons avec les amis.
regarde http://www.mvps.org/accessfr/forms/frm0015.htm
(il va falloir que je la mette sur mon site)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"C15" <MéfiezVousDesSpams@club-internet.fr> a écrit dans le message de
news:3ff913b3$0$6974$7a628cd7@news.club-internet.fr...

Bonjour à tous et toutes,

Dans un formulaire, j'ai inséré cette procédure proposée par Raymond :

Private Sub Prénom_NotInList(NouvelleValeur As String, Response As
Integer)

If AjoutValeur(NouvelleValeur) Then
Suite = acDataErrAdded
Else
Suite = acDataErrContinue
End If

End Sub
__________________________________________
Private Function AjoutValeur(NouvelleValeur As String) As Boolean
On Error Resume Next
AjoutValeur = False
If Me.ActiveControl.RowSourceType <> "Value List" Then
Exit Function
End If
If MsgBox("Cette valeur ne figure pas dans la liste." & vbCrLf & _
"Voulez-vous l'ajouter ?", vbYesNo, NouvelleValeur & ":
Valeur

inconnue") _
= vbYes Then
Me.ActiveControl.RowSource = Me.ActiveControl.RowSource & ";" _
& NouvelleValeur
AjoutValeur = True
Else
Me.ActiveControl.Undo
End If
End Function
_____________________________________________
J'ai pris la précaution de mettre "Limiter la liste" à "oui" pour cette
liste déroulante "Prénom"

Aurais-je l'esprit embrumé ? Access (2000) me dit que l'élément ajouté
n'appartient pas à la liste et ne l'ajoute donc à la liste ni à la
source.

Merci de votre aide

A+

C15