Discussion :

[Herman]

Bonjour,

J'ai une zone de liste dans un sous formulaire où sont répertoriées des infos. J'ai aussi un bouton qui me permet de supprimer ces données avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Liste22
For i = 0 To .ListCount - 1
  If .Selected(i) Then
      Db.Execute "DELETE FROM tbl_danger WHERE IdxDanger =  " & .Column(0, i) & " "
  End If
 Next i
 .Requery
End With
Liste22.Requery

Prenons un exemple, losrque j'ai deux lignes (donc deux infos), et que j'en supprime une, en sélectionnant l'autre j'ai TOUJOURS le message en pièce jointe qui s'affiche, et ça m'embéte à vrai dire ^^

Si quelqu'un sait comment je pourrais m'en séparer !

Deuxième chose, si je valide ce message, et que je reselectionne ma ligne, ça me renvoie vers le code VBA du click sur la zone de liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
   Dim Db As DAO.Database
   Dim Rs As Object, Rs1 As Object, rs2 As Object
   Dim i As Integer

    Set Rs = Forms!frm_evaluation!frm_danger_sous.Form.Recordset.Clone
    
    Rs.FindFirst "[IdxAct] = " & Str(Nz(Forms!frm_evaluation!frm_danger_sous.Form!IdxAct, 0))
    If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark
    Forms!frm_evaluation!frm_danger_sous.Form.Requery

'-----------------------------------------------------------

    Set Rs = Me.Recordset.Clone
    Rs.FindFirst "[IdxDanger] = " & Str(Nz(Me![Liste22], 0))
    If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

    Set rs2 = Forms!frm_evaluation!frm_evaluation_sous.Form.Recordset.Clone
    rs2.FindFirst "[num_evaluation] = " & Str(Nz(Me![Liste22], 0))
    If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

    Forms!frm_evaluation!frm_evaluation_sous.Form.Requery
    Forms!frm_evaluation!frm_action_sous.Form.Requery
    Forms!frm_evaluation!frm_action_sous.Form!Liste6.Requery
    evaluation

En me surlignant la ligne en couleur.

frm_evaluation_sous et un autre sous_formulaire lié au sous_formulaire où est la zone de liste problématique. (lié grâce au champs pére/fils).
Merci d'avance.

[Herman]

Voici un autre screen qui sera surement plus parlant :

En haut à gauche j'ai la zone de liste en question. Au début de la manip, j'ai deux lignes.

Lorsque j'en supprime une, parfait ça me l'enléve, par contre, comme on peut le voir sur la capture, dès que je selectionne la ligne qui reste, c'est comme si il voulait me sélectionner l'ancienne. (on voit notamment les #supprimé à droite).

Chose plus étonnante (mais qui est logique en fait), si je click sur 'fin' de ce message d'erreur, et que je resélectionne ma ligne, et bien ça va fonctionner (logique vu que ma ligne existe).