Discussion :

[Maxsen]

Bonjour à Tous

J'ai un petit pb :

voilà j'ai un sous formulaire frm_l_mvt_1 dans ce formulaire j'ai ajouté un bouton (signe moins) qui s'appelle BtSupprimer

pour ce form j'ai codé :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub BtSupprimer_Click()
 
      Me.AllowDeletions = True
    VG_Ret_Fonc = FB_Supprimer()
    Me.AllowDeletions = False
 
End Sub

dans un module j'ai 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
 
Function FB_Supprimer()
On Error GoTo Err_FB_Supprimer
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
 
Exit_FB_Supprimer:
    Exit Function
 
Err_FB_Supprimer:
    MsgBox "Commande Suppression non disponible !"
    Resume Exit_FB_Supprimer
 
End Function

Quand j'active ce bouton. A l'écran la ligne est bien supprimé. Par contre le message d'erreur Commande Suppression non disponible apparaît. En fait je ne comprends pas trop pourquoi si ce n'est que le record n'est pas vraiment supprimé. Si qqn voit. merci d'avance

[Maxsen]

pour information j'ai été visualisé l'enregistrement dans la table ligne_mouvements qui est relié à mon sous formulaire lorsque je clique sur le bouton Bt_Supprimer.

Dans chaque champs de ma table il y a "#Supprimé" alors que je m'attendais à ce qu'il n'y ai rien.

une idée... ?

[Maxsen]

ne pas tenir compte de mon message précédent
le #Supprimé c'est parce que j'avais ajouté

Code :

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

DoCmd.RunCommand acCmdDeleteWatch

[Maxsen]

même si personne ne me réponds pour l'instant je reste pas les pieds dans le même sabot je dirais

j'ai ajouté ceci à mon code

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
Function FB_Supprimer()
On Error GoTo Err_FB_Supprimer
 
    DoCmd.RunCommand acCmdSelectRecord
    MsgBox "1"
    DoCmd.SetWarnings False
    MsgBox "2"
    DoCmd.RunCommand acCmdDeleteRecord
    MsgBox "3"
    DoCmd.SetWarnings True
    MsgBox "4"
 
 
Exit_FB_Supprimer:
    Exit Function
 
Err_FB_Supprimer:
    MsgBox "Commande Suppression non disponible !"
    Resume Exit_FB_Supprimer
 
End Function

histoire de voir à quel moment l'erreur survient enfait j'ai le temps que le message "2" apparaissent ensuite le message "Comme Suppression..." arrive
donc pas de message "3" ni "4". Pourtant à regarder dans la table au moment du clique le record est bien deleté. Pour l'instant je ne vois pas....

[Maxsen]

J'ai ajouté maintenant et c'est fort utile

avant le message d'erreur "Comme suppression non disponible" qui est fort agréable mais en l'occurence ne me sert à rien.

j'ai codé comme suit

Code :

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

1
2
3
4
Err_FB_Supprimer:
        MsgBox Err.Description
    MsgBox "Commande Suppression non disponible !"
    Resume Exit_FB_Supprimer

En fait le message qui sort c'est "aucun enregistrement en cours" !
Si je traduis tout mes pas à pas. En fait je voudrais supprimer un record alors qui en a déjà plus. Comment c'est possible....