[VBA Access]suppression d'une donnée selectionné dans une liste box

suppression d'une donnée selectionné dans une liste box [VBA Access] - VB/VBA/VBS - Programmation

Marsh Posté le 21-12-2006 à 11:19:25    

Bonjour, je crée une application qui permetra de gérer des associations pour une mairie.Je suis en train de travailler sur un bouton supprimer une association.J'ai tapé ce code ci dessous et le compilateur me dit "erreur 3709" :Impossible d'utiliser cette connexion pour effectuer cette opération.Elle est fermée ou non valide dans ce contexte.Merci d'avance de vos réponses
 

Code :
  1. Private Sub CmdSup_Click()
  2. Dim Res
  4. If Listeasso.ListIndex <> -1 Then
  5.     Res = MsgBox("Etes vous sur de vouloir supprimer cette association de votre base?", vbYesNo + vbExclamation, "Suppression" )
  6.     If Res = 6 Then
  7.         Set Rs = New ADODB.Recordset
  8.         Rs.Open "Delete * from Associations where N°Association=" & N°Association, DB, adOpenDynamic, adLockOptimistic
  9.         Call Rafresh(0)
  10.     End If
  11. Else
  12.     MsgBox "Selectionne un film !!", vbCritical
  13. End If
  15. End Sub


 
Le Rafresh est bien sur une fonction:
 

Code :
  1. Sub Rafresh(i As Integer)
  2. 'Alimente la listbox
  3. If i = 0 Then
  4.     Listeasso.Clear
  5.     Liste1.Clear
  6. End If
  7. Call ValidationTab(50)
  9. Set Rs = New ADODB.Recordset
  10. Rs.Open RQ, DB
  12. If i = 0 Then
  13. If Rs.EOF Then
  14.     Listeasso.AddItem "Aucune association dans la base de donnée"
  15. Else
  16.     Do Until Rs.EOF
  17.         Listeasso.AddItem Rs!Nom_Association & vbTab
  18.         Liste1.AddItem Rs!N°Association
  19.         Rs.MoveNext
  20.     Loop
  21. End If
  22. Else
  23.     Do Until Rs.EOF
  24.         Listeasso.AddItem Rs!Nom_Association & vbTab
  25.         Liste1.AddItem Rs!N°Association
  26.         Rs.MoveNext
  27.     Loop
  28. End If
  29. End Sub

Reply

Marsh Posté le 21-12-2006 à 11:19:25   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed