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 :
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?