Discussion :

[Misha]

Bonjour,

J'ai un formulaire A qui comporte un sous formulaire B.
Lorsque je supprime un enregistrement dans mon formulaire B (en rapport avec l'enregistrement n°10 par exemple du formulaire A) , le formulaire A se positionne sur le tout premier enregistrement.

Question : comment faire pour que la position du formulaire ne bouge au lieu de se mettre en premier ?

Merci d'avance.

[fgiambelluco]

Bonjour

Lorsque je supprime un enregistrement dans mon formulaire B (en rapport avec l'enregistrement n°10 par exemple du formulaire A) , le formulaire A se positionne sur le tout premier enregistrement.

ça c'est déjà pas normal.
Le sous formulaire est-il en feuille de données ou en continu ?
Demandes tu à un moment ou un autre de réactualiser le formulaire A ?

[Misha]

Bonjour,
Merci d'avoir pris le temps de répondre.

Le formulaire B est en feuille de données et je n'ai pas de réactualisation lors de la suppression de l'enregistrement.

[fgiambelluco]

Re
Je ne peux que répéter ça c'est déjà pas normal.

Pour vérifier (ça prend 2 minutes), tu peux créer (avec l'assistant formulaire) un formulaire et un sous formulaire sur 2 tables liées (1 à n bien sûr)
Et normalement si tu supprimes 1 enregistrement du sous fourmulaire, le formulaire principal ne change pas d'enregistrement (il ne récupère même pas le focus).

Ton sous formulaire B a-t-il du code ?

[Misha]

non le formulaire B n'a pas de code.
Par contre la suppression des données du formulaire passe par un bouton qui est lui codé.

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
26
 
Private Sub cmdSupprimerLigneRapport_Click()
    Dim LigneASuppr As Integer
    Dim strSQL As String
 
    On Error GoTo Err_cmdSupprimerLigneRapport_Click
 
    DoCmd.SetWarnings False
 
    If (MsgBox("Êtes vous sure de vouloir supprimer cette ligne ? ", vbApplicationModal + vbYesNo)) = vbYes Then
        LigneASuppr = Form!SousForm_RAPPORT_CLIENT!Rap_ID.value
        strSQL = "DELETE RAPPORT_CLIENT.* FROM RAPPORT_CLIENT WHERE RAPPORT_CLIENT.Rap_ID=" & LigneASuppr
        DoCmd.RunSQL strSQL
    End If
 
    txtInfoSociete.Caption = Cont_societe.value
 
Exit_cmdSupprimerLigneRapport_Click:
    DoCmd.SetWarnings True
    Exit Sub
 
Err_cmdSupprimerLigneRapport_Click:
    MsgBox err.Description
    Resume Exit_cmdSupprimerLigneRapport_Click
 
End Sub

Mon code n'est peut pas bon ? Qu'en pense tu ?
Tu as peut etre une méthode plus adapté ?

[fgiambelluco]

Re
Moi en général, j'utilise :

Code :

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

  DoCmd.RunCommand acCmdDeleteRecord  ' supprime l'enregistrement courant

[Misha]

Re
Moi en général, j'utilise :

Code :

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

  DoCmd.RunCommand acCmdDeleteRecord  ' supprime l'enregistrement courant

bonjour fgiambelluco,

Cette commande ne supprime t'elle pas l'enregistrement en cours qui est dans le formulaire A et dans dans le sous formulmaire B?
Mon bouton de suppression se trouve dans le formulaire A

[Misha]

J'ai trouvé mon erreur qui était dans une autre partie du programme.

Merci d'avoir répondu.