Discussion :

[chibredor]

Bonjour j'ai un formulaire avec plusieurs zones listes déroulantes qui se raffraichissent en allant chercher des valeurs dans d'autres tables!

Mias voilà, j'ai ma première "mise à jour qui marche" mais la seconde ne fonctionne plus alors que j'ai conçu de la même façon avec le même code :

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
29
30
31
32
 
Private Sub Cible_préf_prod_NotInList(NewData As String, Response As Integer)
 
End Sub
 
Private Sub LmProduit_NotInList(NewData As String, Response As Integer)
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des produits ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.RunSQL "INSERT INTO Produit ( IdProduit ) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        Me.LmProduit.Undo
    End If
 
End Sub
 
Private Sub Segment1_NotInList(NewData As String, Response As Integer)
 
End Sub
 
Private Sub LmSegment_NotInList(NewData As String, Response As Integer)
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des segments ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.RunSQL "INSERT INTO Segment ( IdSegment ) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        Me.LmSegment.Undo
    End If
 
End Sub

quelqu'un a une idée?

[chibredor]

Problème résolu

il suffit de mettre dans les propriétés "Limiter à la liste = OUI"

ça intéressa peut être quelqu'un!