Bonjour,
Après sélectionné le nom d'un "Tatouage GMAO" dans mon formulaire, je double-clique sur un bouton qui me permet de retomber sur un autre formulaire avec le Tatouage spécifié.
Seulement, il arrive qu’un "Tatouage GMAO" n’ait aucune fiche reliée a lui.
Dans ce cas la je souhaiterai que le Formulaire ne s'affiche pas mais qu'à la place il m'affiche une fenetre qui indique qu'il n'y a pas d'enregistrement.
Jusque là j'ai réussi tout cela mais j'ai un problème lorsque la fenetre d'erreur s'affiche, j'ai une erreur d'execution '2501' => l'action openform à été annulée.
Comment faire pour eviter d'avoir cette erreur?
Mon code est le suivant:
et dans le formulaire cible j'ai ajouté :
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 Private Sub Tatouage_GMAO_DblClick(Cancel As Integer) Dim stDocName As String Dim stLinkCriteria As String stDocName = "Formulaire DIM" stLinkCriteria = "[Equipement]=" & "'" & Me![Tatouage GMAO] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.MoveSize 4000, 5000, 12000, 5000 Exit Sub Err_Commande23_mousedown: MsgBox Err.Description End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub Form_Open(Cancel As Integer) If Me.RecordsetClone.RecordCount = 0 Then MsgBox "Il ny a pas denregistrement" Cancel = True End If End Sub
Partager