[Access] Arret automatique dans l'éxécution

Bonjour,
lors du lancement de ma fonction une premiere fois Access s'arrete a

If IsNull(Me!Tri) Then

Ensuite il se déroule normalement

Si quelqu'un connait la raison de cet arrêt
Je le remercie d'avance.

Voici le ma fonction complete (On ne sais jamais ca peut servir)

Function NB_passage()
 
Dim ordre As String
 
If IsNull(Me!Tri) Then
    stDocName = "R_affichage_T_Nombre"
    DoCmd.OpenQuery stDocName
Else
 
    ordre = Me!Tri
 
    If ordre = "Libelle commerçant" Then
    stDocName = "R_affichage_T_Nombre_alpha"
    DoCmd.OpenQuery stDocName
    Else
    stDocName = "R_affichage_T_Nombre"
    DoCmd.OpenQuery stDocName
    End If
 
End If
 
End Function