suppression enregistrement en cours impossible sur un formulaire.

**lucas-18** · 12/11/2009, 18h48

Bonjour,

Dans un formulaire impossible de supprimer l'enregistrement sur lequel je me trouve, je dois me plaçer sur un autre enregistrement et clicker sur le bouton de commande de l'enregistrement que je veux supprimer pour que cela marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command52_Click()
If Me.Employee = Me.User Then
        If MsgBox("Do you really want to delete this record ?" & vbCrLf & vbCrLf & "Be careful ! This action is irreversible !", _
        vbYesNo + vbExclamation + vbDefaultButton2, "CTX") = vbYes Then
        Me.NomClef.Requery
             DoCmd.SetWarnings False
             DoCmd.RunCommand acCmdSelectRecord
             DoCmd.RunCommand acCmdDelete
             DoCmd.SetWarnings True
        End If
        Else
MsgBox "You don't have permission to delete this record." & vbCrLf & vbCrLf & "Only the user who registered this record can delete it.", vbExclamation, "CTX"
End If
End Sub

Explications supplémentaires :

- Mon champ "Employee" s'alimente grâce à un autre champ "Contracts"

Code :

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

1
2
3
4
5
Private Sub Contracts_AfterUpdate()
    If IsNull(Me.Employee.Value) Or Me.Employee.Value = "" Then
         Me.Employee.Value = Environ("UserName")
   End If
End Sub

- Mon champ "User" a comme source contrôle =Utilisateur()

Je pense qu'il ne supprime pas l'enregistrement sur lequel je me plaçes parce qu'il ne "reconnaît" pas mon champ "Employee" et que donc il y a un problème de refresh mais j'ai essayé un requery un peu partout et je n'y arrive pas ...

**lucas-18** · 13/11/2009, 19h46

En fait, il est impossible de supprimer un enregistrement en cours à mois de le sauvegarder avant.

J'ai donc utilisé DoCmd.RunCommand acCmdSaveRecord dans mon code mais cela ne marche toujours pas.
VB me met comme message : Function isn't available now

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
Private Sub Command52_Click()
DoCmd.RunCommand acCmdSaveRecord
If Me.Employee = Me.User Then
        If MsgBox("Do you really want to delete this record ?" & vbCrLf & vbCrLf & "Be careful ! This action is irreversible !", _
        vbYesNo + vbExclamation + vbDefaultButton2, "CTX") = vbYes Then
        Me.NomClef.Requery
             DoCmd.SetWarnings False
             DoCmd.RunCommand acCmdSelectRecord
             DoCmd.RunCommand acCmdDelete
             DoCmd.SetWarnings True
        End If
        Else
MsgBox "You don't have permission to delete this record." & vbCrLf & vbCrLf & "Only the user who registered this record can delete it.", vbExclamation, "CTX"
End If
End Sub

**rjamin** · 13/11/2009, 21h12

Bonsoir,

L'enregistrement en cours s'efface en appuyant sur Escape

On peut également l'enregistrer avec F9 puis l'effacer en le sélectionnant (en cliquant sur le carré gris avec un triangle noir qui se trouve à gauche puis Delete.

**lucas-18** · 16/11/2009, 10h44

Envoyé par rjamin

Bonsoir,

L'enregistrement en cours s'efface en appuyant sur Escape

On peut également l'enregistrer avec F9 puis l'effacer en le sélectionnant (en cliquant sur le carré gris avec un triangle noir qui se trouve à gauche puis Delete.

Bonjour et merci pour ta réponse

Cela marche en effet en appuyant sur F9 mais bon en se mettant sur un autre enregistrement aussi quoi.

Ce que j'aimerais, c'est automatiser l'enregistrement par le code

Comment cela se fait qu'en utilisant DoCmd.RunCommand acCmdSaveRecord sur mon bouton qui sert à enregistrer, l'enregistrement ne s'enregistre pas ???

**lucas-18** · 17/11/2009, 13h07

J'ai essayé en remplaçant DoCmd.RunCommand acCmdSaveRecord par :

Code :

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

1
2
3
4
If NewRecord And Not Dirty Then
    Recordset.AddNew
    Recordset.Update
End If

mais l'enregistrement ne se passe pas

(il s'agit d'un formulaire lié)

**Domi2** · 17/11/2009, 14h16

Bonjour,

Tu es dans un formulaire en mode continu ?

Dans la situation ou ton code crée l'erreur, si tu regardes dans le menu Enregistrements, la commande Sauvegarder l'enregistrement est grisée ?

Et la commande Actualiser ?

Domi2

**lucas-18** · 17/11/2009, 14h51

Envoyé par Domi2

Bonjour,

Tu es dans un formulaire en mode continu ?

Dans la situation ou ton code crée l'erreur, si tu regardes dans le menu Enregistrements, la commande Sauvegarder l'enregistrement est grisée ?

Et la commande Actualiser ?

Domi2

Oui, il s'agit en effet d'un formulaire en mode continu.

Non, REFRESH et SAVE RECORD sont clickables via le menu mais lorsque je click sur SAVE RECORD et que je veux supprimer mon enregistrement, SAVE RECORD n'est plus clickable et j'ai ce message d'erreur :

Run-time error '2046':
The command or action 'SaveRecord' isn't available now.

**Domi2** · 17/11/2009, 15h02

Re,

Ben, je ne sais pas trop...

Il faudrait que je fasse des tests...

Juste une question encore. As-tu des champs calculés ?

Domi2

**lucas-18** · 17/11/2009, 15h07

Envoyé par Domi2

Re,

Ben, je ne sais pas trop...

Il faudrait que je fasse des tests...

Juste une question encore. As-tu des champs calculés ?

Domi2

Des champs calculés non ; j'ai un champ NomClef dont la source contrôle est =NombreLigne([Form];"N°";[N°]) pour numéroter mes enregistrements et des évènements afterupdate mais pas de champs calculés.

**Domi2** · 17/11/2009, 16h58

Re,

Essaie de remplacer :

Code :

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

1
2
DoCmd.RunCommand acCmdSaveRecord
If Me.Employee = Me.User Then

par :

Code :

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

1
2
Me.Refresh
If Me.Employee = Me.User Then

Ca change quelque chose ?

Domi2

**Tofalu** · 17/11/2009, 17h01

Essaye :

Code :

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

1
2
Me.undo
Me.recordset.Delete

**lucas-18** · 17/11/2009, 17h40

Envoyé par Domi2

Re,

Essaie de remplacer :

Code :

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

1
2
DoCmd.RunCommand acCmdSaveRecord
If Me.Employee = Me.User Then

par :

Code :

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

1
2
Me.Refresh
If Me.Employee = Me.User Then

Ca change quelque chose ?

Domi2

Non ca ne change rien ; mais je ne vois pas comment l'enregsitrement s'actualiserait en mettant Me.Refresh sur mon bouton de commande supprimer ...

**Domi2** · 17/11/2009, 18h27

Envoyé par lucas-18

Non ca ne change rien ; mais je ne vois pas comment l'enregsitrement s'actualiserait en mettant Me.Refresh sur mon bouton de commande supprimer ...

La suppression intervient après, donc une actualisation est encore possible...

Bon, j'ai fait des tests... Et je ne reproduis pas le problème...

En forçant la sauvegarde de l'enregistrement, est-ce que l'événement Après Maj du formulaire se produit bien ? (Tu peux simplement afficher un petit message, par exemple).

Domi2

**lucas-18** · 17/11/2009, 18h32

Envoyé par Domi2

La suppression intervient après, donc une actualisation est encore possible...

Bon, j'ai fait des tests... Et je ne reproduis pas le problème...

En forçant la sauvegarde de l'enregistrement, est-ce que l'événement Après Maj du formulaire se produit bien ? (Tu peux simplement afficher un petit message, par exemple).

Domi2

Pour voir si j'ai bien compris :

Le Me.Refresh je le mets sur un évènement du sous-formulaire (comme par exemple OnCurrent) ?