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.
avec la qryNbreDocument
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;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)
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;
Par contre le bouton ajout ne fonctionne plusErreur 2105 Impossible atteindre enregistrement spécifié.
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
De même que le bouton de suppression:: La cmd ou l'action n'est pas disponible.
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
Je pensais que cela se ferait plus simplement. Le probleme doit venir du regroupement?
Dois-je passer par VBA pour créer un enregistrement?
Partager