Comment récupérer la valeur saisie dans une zone de liste déroulante dans l'inputBox d'ajout d'élément?

Bonjour les developpezien(ne)s,

Voici mon problème du jour.

Je voudrai récupérer la valeur saisie dans la zone de liste déroulante (zl_marque) qui n'existe pas bien sûr pour qu'elle se rajoute dans l'InputBox à l'aide de l'événement "sur absence dans liste".
Actuellement j'utilise ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub zl_marque_NotInList(NewData As String, Response As Integer)   Dim oRst As DAO.Recordset   nouvelEnregistrement = GetProperName(InputBox("Entrez ci-dessous l'élément à rajouter dans la liste :")) If nouvelEnregistrement = "" Or IsNull(nouvelEnregistrement) Then Exit Sub Else Set oRst = CurrentDb.OpenRecordset("select nom_marque from tbl_marque", dbOpenDynaset) While Not oRst.EOF If nouvelEnregistrement = oRst.Fields("nom_marque").Value Then MsgBox ("L'élément saisi existe déjà dans la liste.") Exit Sub End If oRst.MoveNext Wend   With DoCmd .SetWarnings False .RunSQL "INSERT INTO tbl_marque(nom_marque) VALUES ('" & nouvelEnregistrement & "');" .SetWarnings True End With MsgBox ("L'élément " & nouvelEnregistrement & " a été ajouté à la liste.") End If   End Sub

---

Comment faire pour récupérer cette valeur pour l'InputBox?

Et comment faire aussi pour récupérer la valeur de la zone de liste déroulante pour la copier dans une zone de texte d'un autre formulaire lorsque qu'on appuie sur le bouton qui ouvre l'autre formulaire concerné?

Je vous remercie par avance de votre aide ;)

Bonjour
Pour répondre au 2 questions, dans la procédure :

Code:

---

Private Sub zl_marque_NotInList(NewData As String, Response As Integer)

---

la variable NewData contient la valeur saisie dans la zone et qui n'appartient pas la liste déroulante.
Donc tu peux utiliser cette variable pour mettre une valeur par défaut dans ta InputBox

Bien que je pense qu'il aurait mieux valu utiliser une MsgBox avec des boutons OUI/NON, ce qui éviterait d'aller vérifier que la saisie de l'utilisateur n'existe pas dans la table.

Je n'ai pas tout compris :oops:

Je me suis mal exprimé pour la deuxième question.
La valeur que je veux récupérer de la zone déroulante existe déjà (qui est la liste des modèles par exemple) comment faire pour récupérer cette valeur pour la copier dans une autre zone de liste déroulante ou zone de texte d'un autre formulaire qui s'ouvre lorsqu'on clique sur "btn_frm_modele"?

Sinon pour ma première question j'avais cette solution:

Code:

---

1 2 3 4 5 6 7 8 9

If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des marque ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO tbl_marque ( nom_marque ) SELECT """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue zl_marque.Undo End If End Sub

---

Donc je valide une première fois mais un message apparaît qui est:
"vous allez ajouter 1 ligne(s).
dès que vous aurez cliqué sur oui, il ne vous sera pas possible d'utiliser la commande annuler pour supprimer les modifications.
êtes vous sur de vouloir ajouter les lignes sélectionnées?"
et si de plus je clique non sur ce message j'ai une erreur qui s'affiche qui est:
"erreur d'exécution '2501':
l'action RunSQL a été annulée."

Comment faire pour ne pas avoir c'est messages.

Merci par avance ;)

Bonjour
Pour éviter les messages de confirmation, on utilise :

Code:

---

1 2 3

Docmd.SetWarnings False 'désactive les messages DoCmd.RunSQL "INSERT INTO tbl_marque ( nom_marque ) SELECT """ & NewData Docmd.SetWarnings True' réactive les messages

---

Merci fgiambelluco ca marche nickel chrome.

Et pour récupérer la valeur d'une zone de liste déroulante pour la copier dans une autre formulaire tu as une astuce?

Encore merci :ccool:

Re
Tu peux essayer avec

Code:

---

Me.MaListe.Value

---

telle que, ou tu charges la valeur dans une variable (publique à priori)

Je un autre petit problème qui vient c'est a dire qu'à partir de ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub zl_marque_NotInList(NewData As String, Response As Integer)   If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des marque ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl_marque ( nom_marque ) SELECT """ & NewData & """;" DoCmd.SetWarnings True Response = acDataErrAdded   Else   Response = acDataErrContinue zl_marque.Undo   End If   End Sub

---

Ca ne me permet pas d'avoir toutes mes premières lettres du mot en majuscule.

Car avec ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub btn_ajout_marque_Click()   Dim oRst As DAO.Recordset   nouvelEnregistrement = GetProperName(InputBox("Entrez ci-dessous l'élément à rajouter dans la liste :")) If nouvelEnregistrement = "" Or IsNull(nouvelEnregistrement) Then Exit Sub Else Set oRst = CurrentDb.OpenRecordset("select nom_marque from tbl_marque", dbOpenDynaset) While Not oRst.EOF If nouvelEnregistrement = oRst.Fields("nom_marque").Value Then MsgBox ("L'élément saisi existe déjà dans la liste.") Exit Sub End If oRst.MoveNext Wend   With DoCmd .SetWarnings False .RunSQL "INSERT INTO tbl_marque(nom_marque) VALUES ('" & nouvelEnregistrement & "');" .SetWarnings True End With MsgBox ("L'élément " & nouvelEnregistrement & " a été ajouté à la liste.") End If   End Sub

---

Me permettais d'avoir toutes mes premières lettre en majuscule grâce à GetProperName qui faisait appelle à ce module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Compare Database   Option Explicit   Public Function GetProperName(ByVal TextToConvert As String) As String Dim i As Integer Dim separateur separateur = Array(" ", ";", ":", "-", "~", "@", "_", "&", "*", "#", "'", Chr(160)) TextToConvert = LCase(TextToConvert)   If Len(TextToConvert) <= 0 Then GetProperName = "" Exit Function End If   'mettre la première lettre en majuscule TextToConvert = UCase(Mid(TextToConvert, 1, 1)) + Right(TextToConvert, Len(TextToConvert) - 1)   'mettre en majuscule après chaque séparateur For i = 1 To Len(TextToConvert) - 1 If UBound(Filter(separateur, Mid(TextToConvert, i, 1))) >= 0 Then TextToConvert = Left(TextToConvert, i) + UCase(Mid(TextToConvert, i + 1, 1)) + Right(TextToConvert, Len(TextToConvert) - i - 1) End If Next i   GetProperName = TextToConvert End Function

---

Comment mettre toute les premières lettres du mot en majuscule à l'aide du premier code?

j'y ai pensé avec

Code:

---

me.maliste.value

---

Mais j'arrive a utilisé ce code quand c'est dans le même formulaire mais pas pour un autre formulaire.

Re

Citation:

---

Ca ne me permet pas d'avoir toutes mes premières lettres du mot en majuscule.

---

Essaye d'utiliser

Code:

---

GetProperName(NewData)

---

Citation:

---

Mais j'arrive a utilisé ce code quand c'est dans le même formulaire mais pas pour un autre formulaire

---

Dans ce cas là, déclare une variable dans un module et charge là avant de changer de formulaire.
Ex:

Code:

---

1 2	Public pMarque ' à écrire dans un modle global pMarque=Me.MaListe.Value ' chargement de la variable avant de chenger de formulaire

---

Désolé fgiambelluco je vais te paraître un peu le boulet de service. :oops:

Mais à quel endroit dois-je mettre

Code:

---

GetProperName(NewData)

---

Re
Tu les mets à l'endroit où tu veux que la première lettre de ta donnée soit en majuscule. Par exemple au moment de l'écriture

Code:

---

DoCmd.RunSQL "INSERT INTO tbl_marque ( nom_marque ) SELECT """ & GetProperName(NewData) & """;"

---

Merci fgiambelluco

Code:

---

DoCmd.RunSQL "INSERT INTO tbl_marque ( nom_marque ) SELECT """ & GetProperName(NewData) & """;"

---

marche nickel chrome.

Pour mon deuxième problème j'ai mis ce code:

Code:

---

1 2 3 4 5 6

Private Sub btn_ajout_marque_Click()   DoCmd.OpenForm "frm_modele" frm_modele.zl_marque.Value = Me.zl_marque.Column(0)   End Sub

---

Et j'ai un message d'erreur qui apparaît:
"erreur d'execution '424':
objet requis"

Re
La bonne syntaxe

Code:

---

Forms![frm_modele]![num_marque].Value = Me.zl_marque.Column(0)

---

A demain (fin de journée :D)

Merci beaucoup fgiambelluco pour tes aides et surtout respect...:ccool: