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
Eric
Bonsoir,
Sous réserve que la liste soit à sélection unique et en supposant MonSuperChamp de type Texte, quelque chose comme :
Private Sub Commande4_Click() If Me.Liste0.ItemsSelected.Count > 0 Then Dim strSQL As String strSQL = "Update MaSuperTable Set MonSuperChamp = '" _ & Me.Texte2 & "' Where MonSuperChamp='" & Me.Liste0 & "'" CurrentDb.Execute strSQL Me.Liste0.Requery End If End Sub
Bonjour à tous,
J'ai une table : MaSuperTable avec un champ : MonSuperChamp
J'ai un formulaire Une ListBox alimentée par MaSuperTable Un TextBox sans source Un Bouton Remplacer
Comment faire en VBA pour remplacer une valeur sélectionnée dans ma ListBox par celle de mon TextBox en cliquant sur le bouton.
Merci pour votre aide. A+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir,
Sous réserve que la liste soit à sélection unique et en supposant
MonSuperChamp de type Texte, quelque chose comme :
Private Sub Commande4_Click()
If Me.Liste0.ItemsSelected.Count > 0 Then
Dim strSQL As String
strSQL = "Update MaSuperTable Set MonSuperChamp = '" _
& Me.Texte2 & "' Where MonSuperChamp='" & Me.Liste0 & "'"
CurrentDb.Execute strSQL
Me.Liste0.Requery
End If
End Sub
Bonjour à tous,
J'ai une table : MaSuperTable avec un champ : MonSuperChamp
J'ai un formulaire
Une ListBox alimentée par MaSuperTable
Un TextBox sans source
Un Bouton Remplacer
Comment faire en VBA pour remplacer une valeur sélectionnée dans ma ListBox
par celle de mon TextBox en cliquant sur le bouton.
Merci pour votre aide.
A+
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Sous réserve que la liste soit à sélection unique et en supposant MonSuperChamp de type Texte, quelque chose comme :
Private Sub Commande4_Click() If Me.Liste0.ItemsSelected.Count > 0 Then Dim strSQL As String strSQL = "Update MaSuperTable Set MonSuperChamp = '" _ & Me.Texte2 & "' Where MonSuperChamp='" & Me.Liste0 & "'" CurrentDb.Execute strSQL Me.Liste0.Requery End If End Sub
Bonjour à tous,
J'ai une table : MaSuperTable avec un champ : MonSuperChamp
J'ai un formulaire Une ListBox alimentée par MaSuperTable Un TextBox sans source Un Bouton Remplacer
Comment faire en VBA pour remplacer une valeur sélectionnée dans ma ListBox par celle de mon TextBox en cliquant sur le bouton.
Merci pour votre aide. A+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Xavier
Hello, C'est exactement ce dont j'avais besoin, ça marche. Merci beaucoup
Bonsoir,
Sous réserve que la liste soit à sélection unique et en supposant MonSuperChamp de type Texte, quelque chose comme :
Private Sub Commande4_Click() If Me.Liste0.ItemsSelected.Count > 0 Then Dim strSQL As String strSQL = "Update MaSuperTable Set MonSuperChamp = '" _ & Me.Texte2 & "' Where MonSuperChamp='" & Me.Liste0 & "'" CurrentDb.Execute strSQL Me.Liste0.Requery End If End Sub
Bonjour à tous,
J'ai une table : MaSuperTable avec un champ : MonSuperChamp
J'ai un formulaire Une ListBox alimentée par MaSuperTable Un TextBox sans source Un Bouton Remplacer
Comment faire en VBA pour remplacer une valeur sélectionnée dans ma ListBox par celle de mon TextBox en cliquant sur le bouton.
Merci pour votre aide. A+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Hello,
C'est exactement ce dont j'avais besoin, ça marche.
Merci beaucoup
Bonsoir,
Sous réserve que la liste soit à sélection unique et en supposant
MonSuperChamp de type Texte, quelque chose comme :
Private Sub Commande4_Click()
If Me.Liste0.ItemsSelected.Count > 0 Then
Dim strSQL As String
strSQL = "Update MaSuperTable Set MonSuperChamp = '" _
& Me.Texte2 & "' Where MonSuperChamp='" & Me.Liste0 & "'"
CurrentDb.Execute strSQL
Me.Liste0.Requery
End If
End Sub
Bonjour à tous,
J'ai une table : MaSuperTable avec un champ : MonSuperChamp
J'ai un formulaire
Une ListBox alimentée par MaSuperTable
Un TextBox sans source
Un Bouton Remplacer
Comment faire en VBA pour remplacer une valeur sélectionnée dans ma ListBox
par celle de mon TextBox en cliquant sur le bouton.
Merci pour votre aide.
A+
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Hello, C'est exactement ce dont j'avais besoin, ça marche. Merci beaucoup
Bonsoir,
Sous réserve que la liste soit à sélection unique et en supposant MonSuperChamp de type Texte, quelque chose comme :
Private Sub Commande4_Click() If Me.Liste0.ItemsSelected.Count > 0 Then Dim strSQL As String strSQL = "Update MaSuperTable Set MonSuperChamp = '" _ & Me.Texte2 & "' Where MonSuperChamp='" & Me.Liste0 & "'" CurrentDb.Execute strSQL Me.Liste0.Requery End If End Sub
Bonjour à tous,
J'ai une table : MaSuperTable avec un champ : MonSuperChamp
J'ai un formulaire Une ListBox alimentée par MaSuperTable Un TextBox sans source Un Bouton Remplacer
Comment faire en VBA pour remplacer une valeur sélectionnée dans ma ListBox par celle de mon TextBox en cliquant sur le bouton.
Merci pour votre aide. A+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
