Discussion :

[sabotage]

Bonjour,

Je suis confronté à un problème depuis quelques temps : mon code s'arrête sans message d'erreur.

exemple :

Code :

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

Texte_Intervention = Replace(Forms!frmMail.txtIntervention.Value, vbCrLf, "<br>")

Lorsque mon champ txtIntervention est vide, le code s'arrête purement et simplement.

Même chose quand je travaille avec des recordset : lorsque mon recordset est vide, une instruction telle que recordset.movefirst fait s'arreter le déroulement sans qu'une erreur apparaisse.

Auriez-vous une idée d'ou cela peut venir ?
Merci

[argyronet]

Bonjour,

1/ regarder comment est paramétré l'option "Récupération d'erreur" dans Outils/Options de VBE. Il doit être sur Arrêt sur les erreurs non gérées.
2/ As tu mis toi-même des gestions d'erreur ?
3/ Utilises-tu les espions et le débogage au pas à pas ?

Argy

[sabotage]

Merci pour ta réponse.

1 - Cette option est bien sur Arrêt sur les erreurs non gérées - j'ai essayé egalement Arrêt sur toutes les erreurs mais ca n'a pas mieux fonctionné.
2 - Non, je fais pour l'instant un code crasseux
3 - Si je l'ai fais, ce n'était pas intentionel ... est-ce que j'aurais pu activer un blocage quelque part ?

J'ai refais des tests : Même si j'écris du charabia, je n'ai pas d'erreur ; le code s'arrête simplement.

[argyronet]

Qu'est ce que Texte_Intervention ?

Essaye ceci pour voir:

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
Sub testReplace()
On Error GoTo Erreur
Dim Qui As String
Dim Quoi As String
Dim Par As String
Dim MaChaine As String
 
  Qui = "Un chaîne quelconque" & Chr(13) & Chr(10) & "qui" & Chr(13) & Chr(10) & "contient" & Chr(13) & Chr(10) & "des sauts"
  Quoi = vbCrLf
  Par = "<br>"
  MaChaine = Replace(Qui, Quoi, Par)
  Debug.Print MaChaine
  Exit Sub
Erreur:
  MsgBox Err.Description, 48, Err.Number
End Sub

Si ça plante pas c'est qu'il y a un shmurtz dans tes contrôles.

Argy

[sabotage]

J'ai recopie mes modules, mes formulaires et mes tables liées dans un fichier vierge et j'ai à nouveau les erreurs qui apparaissent.

Dans mon ancien fichier, je peux écrire n'importe quoi, je n'ai jamais d'erreur qui s'affiche.
J'ai même fait le test de créer dans mon ancien fichier un nouveau formulaire avec un bouton dont l'evenement est "sdklfmsdkf" : quand je clique sur le bouton absolumment rien ne se passe.

[argyronet]

Bien le fichier était donc responsable...
Explications ??? euh , là je ne sais pas sans voir le fichier de près...

Argy