bonjour, j'ai mis le code suivant dans un contrôle de liste déroulante qui
fait que je peux ajouter une valeur au contrôle Opération.
je voudrais savoir comment je peux faire pour enlever une ôu des valeurs du
contrôle Opération et quelle n'apparaisse plus .si vous avez un exemple
Merci de votre aide
Private Sub Opération_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Set ctl = Me!Opération
If MsgBox("Voulez-vous ajouter une nouvelle valeur dans la liste
Opération?", _
vbOK + vbQuestion + vbDefaultButton2) = vbOK Then
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
pgz
Ponjour, Ge te propose ceci, qui tient compte de la façon dont tu ajoutes un mot.
Sub Enlève(DataToDrop as string) ' la valeur à enlever de la liste est contenue dans DataToDrop str = Me.Opératiion.RowSource i = instring(1,str,DataToDrop) if i = 0 then exit sub Me.Opération.RowSource = replace(str,iif(i>1,";";"") & DataToDrop,"";1;1) end sub
Zalut et bonne chance pgz
bonjour, j'ai mis le code suivant dans un contrôle de liste déroulante qui fait que je peux ajouter une valeur au contrôle Opération. je voudrais savoir comment je peux faire pour enlever une ôu des valeurs du contrôle Opération et quelle n'apparaisse plus .si vous avez un exemple Merci de votre aide
Private Sub Opération_NotInList(NewData As String, Response As Integer) Dim ctl As Control
Set ctl = Me!Opération
If MsgBox("Voulez-vous ajouter une nouvelle valeur dans la liste Opération?", _ vbOK + vbQuestion + vbDefaultButton2) = vbOK Then
Response = acDataErrContinue ctl.Undo End If End Sub
Ponjour,
Ge te propose ceci, qui tient compte de la façon dont tu ajoutes un mot.
Sub Enlève(DataToDrop as string) ' la valeur à enlever de la liste est
contenue dans DataToDrop
str = Me.Opératiion.RowSource
i = instring(1,str,DataToDrop)
if i = 0 then exit sub
Me.Opération.RowSource = replace(str,iif(i>1,";";"") & DataToDrop,"";1;1)
end sub
Zalut et bonne chance
pgz
bonjour, j'ai mis le code suivant dans un contrôle de liste déroulante qui
fait que je peux ajouter une valeur au contrôle Opération.
je voudrais savoir comment je peux faire pour enlever une ôu des valeurs du
contrôle Opération et quelle n'apparaisse plus .si vous avez un exemple
Merci de votre aide
Private Sub Opération_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Set ctl = Me!Opération
If MsgBox("Voulez-vous ajouter une nouvelle valeur dans la liste
Opération?", _
vbOK + vbQuestion + vbDefaultButton2) = vbOK Then
Ponjour, Ge te propose ceci, qui tient compte de la façon dont tu ajoutes un mot.
Sub Enlève(DataToDrop as string) ' la valeur à enlever de la liste est contenue dans DataToDrop str = Me.Opératiion.RowSource i = instring(1,str,DataToDrop) if i = 0 then exit sub Me.Opération.RowSource = replace(str,iif(i>1,";";"") & DataToDrop,"";1;1) end sub
Zalut et bonne chance pgz
bonjour, j'ai mis le code suivant dans un contrôle de liste déroulante qui fait que je peux ajouter une valeur au contrôle Opération. je voudrais savoir comment je peux faire pour enlever une ôu des valeurs du contrôle Opération et quelle n'apparaisse plus .si vous avez un exemple Merci de votre aide
Private Sub Opération_NotInList(NewData As String, Response As Integer) Dim ctl As Control
Set ctl = Me!Opération
If MsgBox("Voulez-vous ajouter une nouvelle valeur dans la liste Opération?", _ vbOK + vbQuestion + vbDefaultButton2) = vbOK Then
