liste deroulante ds un formulaire

Question

bonjour a tous

voila ce vous explique 
j'ai cree un formulaire avec un liste deroulante et un bouton supprimer la c'est facile ou ca ce complique 
si je selectionne la 5eme ligne ds ma liste deroulante et que j'appuie sur le bouton supprime et bien c'est la premiere ligne qui est supprim&#233;

j'ai cree le bouton supprimer avec l'assistant du bouton
et la je ne comprends pas pourquoi

si quelqu'un pourvais m'aider

merci
thibautlolo

cs_drahcir · Answer

Salut

Peux-tu nous en dire un peu plus sur le code de ton bouton? L&#224; c'est un peu difficile de savoir ce qui cloche.

thibautlolo · Answer

ok  voici mon code
Private Sub Commande6_Click()

DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70


DoCmd.SetWarnings False
Modifiable4.Requery
    
End Sub

merci 
thibautlolo

Slyders · Answer

vaut mieux taper le code &#224; la mimine

Private Sub cmdsuppr1_Click()
   For i = 0 to listderoulante.listcount -1
   If  listderoulante.Selected(i) =true
   listderoulante.RemoveItem (listderoulante.list(i))
   end if
   Next
end sub

c dans le cas d'un multiselect
sinon
listderoulante.RemoveItem (listderoulante.Listindex)
sa suffit je croi sa :x

en esperant que cela puisse t'aider

thibautlolo · Answer

j'ai un petit soucis avec ca que tu m'a donn&#233; 
moi c'est une zone de liste modifiable base sur une table et quand je lui met ce que tu m'a donne il me dit " la propriete RowSourceType doit etre definie sur la valeur liste valeur pour utiliser cette methode 

j'ai  pris cette solution
listderoulante.RemoveItem (listderoulante.Listindex)

peut tu m'aider encore SVP
car la je suis totalement perdu

merci encore
thibautlolo

Slyders · Answer

listderoulante.RemoveItem (listderoulante.Listindex)

marche pour simplement supprimer un &#233;l&#233;ment de la listebox
pour supprimer l'&#233;l&#233;ment s&#233;lectionner je connait qu'une methode:

Private Sub cmdsuppr1_Click()
dim BASE as database
dim requete as string
'Variable a utiliser

Set BASE = opendatabase( app.path & "/tabase.mdb") 'tu ouvre ta base de donn&#233;e

requete ="DELETRE * FROM table01 WHERE numChamp = " & listderoulante.listindex
msgbox (requete) 'tu ecrit ta requete SQL et tu verifie qu'elle est correct avec le msgbox

Base.execute(requete) 'tu execute la requete

BASE .close ' tu ferme la base de donn&#233;e
End sub

j'espere que sa t'aidera un peu plus

Liste deroulante ds un formulaire

5 réponses

Discussions similaires