Discussion :

[en_gel_ho]

voici le code qui me permet de charger un formulaire :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
Private Sub Form_Load()
 
Dim Langue As String
Dim req As String
Dim con As ADODB.Connection
Set con = CurrentProject.Connection
Dim MyRecordSet As New ADODB.Recordset
MyRecordSet.ActiveConnection = con
 
If (VarGlo.Langue = 0) Then
 
    Langue = "Nl"
 
Else
 
    Langue = "Fr"
 
End If
 
req = "SELECT Realise.Id_Rap, Actions.LibAct" & Langue & " FROM Actions INNER JOIN Realise ON Actions.Id_Action = Realise.Id_Act WHERE (((Realise.Id_Rap)='" & VarGlo.CliNumRapport & "'))"
 
MyRecordSet.Open req
 
If (MyRecordSet.EOF = False) Then
 
MyRecordSet.MoveFirst
 
DoCmd.SetWarnings False
 
Do
 
Me.TexteListeAction = MyRecordSet.Fields("LibAct" & Langue) & vbCrLf
 
MyRecordSet.MoveNext
 
Loop While (MyRecordSet.EOF = False)
 
End If
 
DoCmd.SetWarnings True
 
MyRecordSet.Close
Set MyRecordSet = Nothing
Set con = Nothing
 
 
End Sub

Au cours de l'utilisation que j'ai pû faire du programme pendant le développement (en clair des tests de base sur le fonctionnement), je n'ai jamais eut de problème.

J'ai actuellement le programme qui est installé chez deux des utilisateurs finaux pour une phase de test poussée.
Or, au chargement de la page, et de façon aléatoire, access se comporte comme si j'avais placé un point d'arrêt sur le "do". Résultat, ma page de code s'affiche avec une belle ligne jaune sur mon "do". Je relance l'excécution sans rien toucher, et tout fonctionne parfaitement. Cela peut arriver trois fois d'affilée, puis ne plus arriver du tout....

Je dois avouer que je n'ai pas la moindre idée de ce qui peut provoquer ce genre d'erreur. D'autant plus que j'ai tenté de mettre de "docmd.setwarnings=false" en commentaire, mais je n'ai alors plus réussi à provoquer l'erreur....

Plé ase Help...

[Heureux-oli]

essaie de coller çà au début de ton code.

Code :

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

1
2
 
On Error Resume Next

[en_gel_ho]

Euh, oki. moi je veux bien.

Je peux juste avoir une explication sur ce que ça fait???

(enfin, une traduction litéérale me donne un truc du genre "en cas d'erreur passes à la suite)

est-ce que quelqu'un à déjà rencontré ce problème? est-ce une vraie erreur ou rien à voir??

Dans tous les cas merci.