Affichage d'un message d'erreur lors d'ouverture d'un formulaire [Résolu]

[rorobase]

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:

Code :

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

et dans le formulaire cible j'ai ajouté :

Code :

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 n’y a pas d’enregistrement"
        Cancel = True
 
    End If
 
End Sub

[marot_r]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Tatouage_GMAO_DblClick(Cancel As Integer)

    on error goto Err_Tatouage_GMAO_DblClick

    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_Tatouage_GMAO_DblClick:
    Exit Sub
      
Err_Tatouage_GMAO_DblClick:
    select case err.number
       case 2501 :'Pas de données
          MsgBox "Il n’y a pas d’enregistrement"

       else
         MsgBox Err.Description

    end if

    resume Exit_Tatouage_GMAO_DblClick    

End Sub

Et tu n'as plus besoin de la méthode à l'ouvreture du form.

Une note en passant, évite de garder du code 'mort' dans tes programmes, ça allourdie la tâche de maintenance en obligeant le mainteneur à vérifier du code inutile et inutilisé.

Les lignes :

Code :

1
2
Err_Commande23_mousedown:
    MsgBox Err.Description

Ne pouvaient être éxécutées car elles étaient après le exit sub et référencées par rien.


A+

[rorobase]

Nickel ca marche je te remercie pour ton aide