Discussion :

[spacesheep]

Bonjour tout le monde,

Malgré mes recherches sur le forum qui m'aide beaucoup, je n'ai pas trouvé cette fois si.

Je vais expliquer mon désir.

j'ai une table "tbl_marque" avec les champs "num_marque" et "nom_marque"

j'aimerai lorsque je clique sur le bouton une fenêtre apparait proposant de rentrer le nom de la nouvelle marque. Qui s'incrémente dans la table "tbl_marque" après validation et si la marque existe déjà un message apparait disant que le nom existe déjà.

la seul chose que j'ai réussi à faire est de faire apparaitre InputBox avec le code suivant:

Code :

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

1
2
3
4
Private Sub btn_nouvelle_marque_Click()
 
        nouvelleMarque = InputBox("Entrez ci-dessous la nouvelle marque à rajouter dans la liste:", "Nouvelle marque")
End Sub

Comment faire pour le reste?

Je vous remercie par avance.

[Invité]

Bonjour
Pourquoi passer par une Input box.
Pourquoi ne pas faire un formulaire basé sur ta table. Si tu l'ouvres sur un nouvel enregistrement et si comme je le suppose ton champ "Nom_Marque " interdit les doublons, cela va aller tout seul.

[spacesheep]

Car en faite c'est un formulaire avec plusieurs zone de liste déroulante "zl_marque" et "zl_modele", une zone de texte "txt_imei" avec un sous formulaire "sfrm_mobile" qui contient la liste d'une requêtes "req_mobile" qui affiche les modèles et l'imei ainsi que deux boutons pour rajouter soit une nouvelle marque, soit un nouveau modèle.

Quand on sélectionne une marque dans "zl_marque" on ne voit que les modèles de cette marque dans "zl_modele" et met à jour "sfrm_mobile".

InputBox pourrait me permettre d'éviter de créer deux formulaires un pour 'tbl_marque" et l'autre pour 'tbl_modele"

j'ai trouvé ceci mais cela ne marche pas...

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
19
20
21
22
23
24
25
26
27
28
 
 
Private Sub Commande7_Click()
 
nouvelEnregistrement = InputBox("Entrez ci-dessous l'élément à rajouter dans la liste :")
    If nouvelEnregistrement = "" Then
        Exit Sub
    End If
    bool = False
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("select nom_marque from tbl_marque", dbOpenDynaset)
 
    While Not oRst.EOF
        If nouvelEnregistrement = oRst.Fields("nom_marque").Value Then
            bool = True
        End If
        oRst.MoveNext
    Wend
    If bool = True Then
        MsgBox ("L'élément saisi existe déjà dans la liste.")
    Else
        DoCmd.RunSQL "INSERT INTO tbl_marque(nom_marque) VALUES (""" & nouvelEnregistrement & """);"
        Me.tbl_marque.Requery
    End If
 
End Sub

j'espère que je me suis bien exprimé ^^

[GillesDeVuif]

Bonjour.
Si tu veux à tout prix passer par input box, peut-être comme ça :

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
19
20
21
22
23
24
25
Public Sub Commande7_Click()
 
Dim oRst As DAO.Recordset
 
nouvelEnregistrement = 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

Cordialement.

[spacesheep]

Merci GillesDeVuif ca marche nickel chrome.

Comment ça se fait que cela ne marchait pas?

[GillesDeVuif]

Bonjour.

Comment ça se fait que cela ne marchait pas?

Je l'ignore et te recommande avec force l'exécution de ta sub originale pas à pas si tu souhaites le déterminer.
La phrase "ça ne marche pas" n'aide pas au diagnostic rapide, l'idéal, c'est plutôt : le debug dit que, ou, ça plante à telle ligne ...
Pour une prochaine fois, peut-être ?

Cordialement.

[spacesheep]

J'ai essayé le débug pas à pas et ça bugué des la premières ligne.

Je ne te cache pas que je débute complet dans le monde Access et de VBA.
Et je n'y comprend pas grand chose .

Mais en tout cas un grand merci pour ton aide précieuse.