Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1170 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1494748
dante76
Divine Comédie
Posté le 21-12-2006 à 11:19:25  profilanswer
 

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
  3. If Listeasso.ListIndex <> -1 Then
  4.     Res = MsgBox("Etes vous sur de vouloir supprimer cette association de votre base?", vbYesNo + vbExclamation, "Suppression" )
  5.     If Res = 6 Then
  6.         Set Rs = New ADODB.Recordset
  7.         Rs.Open "Delete * from Associations where N°Association=" & N°Association, DB, adOpenDynamic, adLockOptimistic
  8.         Call Rafresh(0)
  9.     End If
  10. Else
  11.     MsgBox "Selectionne un film !!", vbCritical
  12. End If
  13. 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)
  8. Set Rs = New ADODB.Recordset
  9. Rs.Open RQ, DB
  10. If i = 0 Then
  11. If Rs.EOF Then
  12.     Listeasso.AddItem "Aucune association dans la base de donnée"
  13. Else
  14.     Do Until Rs.EOF
  15.         Listeasso.AddItem Rs!Nom_Association & vbTab
  16.         Liste1.AddItem Rs!N°Association
  17.         Rs.MoveNext
  18.     Loop
  19. End If
  20. Else
  21.     Do Until Rs.EOF
  22.         Listeasso.AddItem Rs!Nom_Association & vbTab
  23.         Liste1.AddItem Rs!N°Association
  24.         Rs.MoveNext
  25.     Loop
  26. End If
  27. End Sub

mood
Publicité
Posté le 21-12-2006 à 11:19:25  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Transformer du VBA en VBS (avec UserForm) ?ACCESS : Ajouter une valeur au début d'une liste déroulante
2 liste qui changent d'infos entre elles[Résolu] VBA dans excel pour lancer deux lignes de commandes DOS
Site en ligne pour s'autoformer au VBARequete min sur une liste
Requetes alimentant un formulaire AccessRécupérer le code VBA d'un formulaire Access
Plus de sujets relatifs à : [VBA Access]suppression d'une donnée selectionné dans une liste box


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR