Discussion :

[tAKAmAkA]

Bonjour à tous,

J'avais un sous formulaire frmPiece basé sur une table tblPiece.
Un bouton créer une ligne dans l'entête.
Un bouton supprimer dans chaque ligne.

J'ai changé la source par une requête qryPiece pour afficher le nombre de documents de chaque piece.

Code :

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

1
2
SELECT tblPiece.PieceID, tblPiece.Article, tblPiece.DescriptionP, tblPiece.DateDebutP, tblPiece.DateFinP, tblPiece.StatutP, tblPiece.SSD, tblPiece.Resa, tblPiece.CommEnCours, tblPiece.Reference, tblPiece.Document, qryNbreDocument.CompteDeDocnum
FROM qryNbreDocument RIGHT JOIN tblPiece ON qryNbreDocument.Piece = tblPiece.PieceID;

avec la qryNbreDocument

Code :

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

1
2
3
SELECT tblDocument.Piece, Count(tblDocument.Docnum) AS CompteDeDocnum
FROM tblDocument
GROUP BY tblDocument.Piece;

Côté affichage tout va bien, j'ai dans chaque ligne de mon frmPiece le nombre de documents attachés à cette pièce. (C'est l'objet de ma modif)

Par contre le bouton ajout ne fonctionne plus

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdCreer_Click()
On Error GoTo Err_cmdCreer_Click
    DoCmd.GoToRecord , , acNewRec
Exit_cmdCreer_Click:
   Exit Sub
Err_cmdCreer_Click:
    MsgBox "Erreur Form_frmArticle_sub_cmdCreer_Click n°: " & err.Number & vbCrLf & err.Description, , "xxx"
    Resume Exit_cmdCreer_Click
 
End Sub

Erreur 2105 Impossible atteindre enregistrement spécifié.

De même que le bouton de suppression:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdSupprimer_Click()
On Error GoTo Err_cmdSupprimer_Click
If MsgBox("Voulez- effacer cette pièce?", vbOKCancel, "xxx") = vbOK Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
End If
Exit_cmdSupprimer_Click:
    Exit Sub
Err_cmdSupprimer_Click:
    MsgBox err.Description
    Resume Exit_cmdSupprimer_Click
 
End Sub

: La cmd ou l'action n'est pas disponible.

Je pensais que cela se ferait plus simplement. Le probleme doit venir du regroupement?

Dois-je passer par VBA pour créer un enregistrement?

[Invité]

Bonjour

Oui, le problème vient du regroupement.

En effet, avec un regroupement Access ne peut déterminer ce que tu veux faire.
Il va donc falloir passer par du VBA ou une requête SQL pour faire ce que tu veux.

Starec