Discussion :

[modus57]

Bonjour le forum.

Sur ouverture d'un état j'applique un filtre :

Code :

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

DoCmd.ApplyFilter "", "([REQUETE VISITE].[Nom CLIENT]) Like [Entrer les premières caractères du nom du client rechercher] & ""*"""

Si je clique sur la croix ou "ANNULER" de la boîte de dialogue, le message suivant s'affiche :

erreur d'exécution '2501' :
l'action OpenReport a été annulée

J'ai essayé On Error Resume Next, ça ne marche pas.

Comment faire dans ce cas pour ignorer l'erreur et revenir au formulaire "Menu".

Si quelqu'un a une réponse, elle est la bien venue.

Merci d'avance.

[marot_r]

Dans la mesure du possible ne pas utiliser Resume Next. L'utiliser c'est un peu comme glisser la poussière sous un coin du tapis ou se mettre la tête dans le sable.

Il faut mettre dans ton code, en début de procédure :

Code :

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

1
2
 
On Error Goto Err_MaProcedure

avant ton traitement d'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Exit_MaProcedure:
   Exit sub 'Ou Exit Function
 
Err_Maprocedure:
   select case err.number
      case 2501
         'OK, erreur 'normale', ne rien faire
      case else
         msgbox "L'erreur " & err.number & ", " & err_description & " s'est produite. Merci de faire une copie d'écran et de prévenir le support technique.",vbExclamation
   end select
 
   resume exit_MaProcedure

[modus57]

Bonjour marot_r, le forum.

Ok j'ai compris la manière de gérer une erreur, j'applique ta procédure dans ma BD.

Une autre question du même jus à laquelle tu pourrais peut-être me répondre, si non elle fera l'objet d'une autre discussion.

Pourquoi dans mon le code ci-dessous, lorsque des données sont trouvées ou non trouvées, la condition est vérifiée ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub date_client_DblClick(Cancel As Integer)
 
Dim MonFiltre
MonFiltre = "([TABLE CLIENTS].[date client])Between [Entrez la date de début:] And [Entrez la date de fin:]"
DoCmd.ApplyFilter "", MonFiltre
 
If IsNull(MonFiltre) = False Then
    MsgBox "Aucune donnée trouvée", vbExclamation, "TABLE CLIENTS"
    Me.Filter = ""
End If
 
End Sub

@ ===> +

[marot_r]

Parce que MonFiltre est une chaine de caractères, pas le nombre d'enr sélectionné par ton filtre.

Si tu es dans un form tu peux utiliser :

Code :

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

1
2
 
if me.recordset.RecordCount=0 then

ou tu pourrais peut-être définir du code pour l'événement 'Pas de donnée' (NoData) qui ferait cela mais j'ai jamais essayer. Par exemple j'ai dans une de mes applis une fonction NoData() qui affiche le message et ferme le rapport concerné avant même qu'il ne s'ouvre.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Function NoData()
   MsgBox " Le rapport ne contient aucune donnée." _
       & "L'impression du rapport est annulée." _
       , vbOKOnly + vbInformation
   DoCmd.Hourglass False
 
   DoCmd.CancelEvent
 
 End Function

C'est une fonction comme cela on peut la mettre directement dans l'événement NoData en écrivant.

Code :

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

1
2
 
=NoData()

A+

[modus57]

Bonsoir marot_r.

Je suis dans un form j'ai utiliser :

Code :

Code :

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

  if me.recordset.RecordCount=0 then

Cela fonctionne tip top.

Je me suis mis à ACCESS depuis peu de temps, n'étant pas très expérimenté, je ne vois pas ou placer le code pour l'évènement 'Pas de donnée' (NoData). Cette fonction NoData() s'applique à un état ou un form ?

@ ++++++

[marot_r]

En mode design, tu cliques droit dans le form puis propriété, événement, pas de données.

Cette fonction est conçue pour un rapport mais elle marche aussi pour un form, il suffit de changer le texte du message.

A+

[modus57]

Bonsoir marot_r.

En mode design, tu cliques droit dans le form puis propriété, événement, pas de données.

Cette fonction est conçue pour un rapport mais elle marche aussi pour un form, il suffit de changer le texte du message.

A+

J'utilise une version ACCESS 2000, dans la propriété du form onglet évènement je vois pas "pas de données". As-tu une version supérieure ??

Pourrais-tu me répondre.

Merci @ +

[marot_r]

OOOOups ! 'NoData', c'est que pour les rapports, mes excuses pour cette erreur.

A+

[modus57]

marot_r

Merci pour ton aide, j'ai pro graissé encore un peu, je deviens accro d'ACCESS.

Cordialement modus 57