Discussion :

[Richard_35]

Bonjour à tous,

Nous nous prenons la tête depuis un moment sur un problème incompréhensile (pour nous).

Ci-dessous, une fonction que nous avons développée :

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
Public Function ImpLChq(Id_LC, Apercu)
 
    'Lance l'impression de la lettre type numérotée Id_Lc
    'La fonction mpet à jour la table Lettre chèque
    'avec le drapeau "1" pour le champ editee
    'et les champs date_edition et util_edition ...
 
 
    Dim filtr, SQL As String
    filtr = "[Id_lettre_cheque] = " & Id_LC
    IDLC = Id_LC
    ' DoCmd.Close acReport, "Lettre-Chèque"
 
    ' Bascule entre Aperçu et impression directe :
 
    If Apercu = True Then
        DoCmd.OpenReport "Lettre-Chèque", acViewPreview, , filtr
    Else
        DoCmd.OpenReport "Lettre-Chèque", acNormal, , filtr
    End If
 
    DoCmd.SetWarnings False
    SQL = "UPDATE Lettre_Cheque SET Lettre_Cheque.editee = 1 WHERE " & filtr & " ;"
    DoCmd.RunSQL SQL
    SQL = "UPDATE Lettre_Cheque SET Lettre_Cheque.date_edition = #" & Format(Now(), "mm/dd/yy hh:mm:ss") & "# WHERE " & filtr & " ;"
    DoCmd.RunSQL SQL
    SQL = "UPDATE Lettre_Cheque SET Lettre_Cheque.util_edition = '" & Environ("USERNAME") & "' WHERE " & filtr & " ;"
    DoCmd.RunSQL SQL
    DoCmd.SetWarnings True
End Function

Cette fonction imprime un état à partir de la clé unique d'une table. Elle fonctionne très bien à partir d'un bouton, mais impossible de la faire fonctionner à partir d'une requête.

Le plantage est sur la ligne

Code :

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

DoCmd.OpenReport "Lettre-Chèque", acViewPreview, , filtr

J'ai essayé en enlevant le filtre mais rien n'y fait.
Le message d'erreur est :

Erreur d'exécution '2486' :
Impossible d'exécuter cette action pour l'instant.

Dans la requête, l'expression est :

Expr1: ImpLChq([Id_lettre_cheque];Vrai)

Merci d'avance de votre aide,
Richard.

[jimay]

Bonjour,

Avez vous mis un point d'arrêt au début de votre fonction pour voir où se déroule exactement l'erreur ?

[Richard_35]

Bonjour jimay,

Merci de ta réponse.

Oui, je l'ai fait. L'erreur est sur la ligne :

Code :

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

DoCmd.OpenReport "Lettre-Chèque", acViewPreview, , filtr

Merci de ton aide,
Richard.

[jimay]

Votre fonction ne commence même pas à s'éxecuter donc ?

Peut-on voir le SQL de la requête qui appelle cette fonction ?
Si vous essayez de modifier la table Lettre_Cheque dans la requête et dans la fonction c'est peut être pour celà que ça ne marche pas.

[Richard_35]

Si, elle commence bien à s'exécuter : j'ai mis le point d'arrêt au début de la fonction (voir mon message d'origine) et le F8 déroule les premières instructions.

La fontion se plante à la ligne que j'ai indiquée.

Le SQL de la requête :

Code :

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

1
2
3
SELECT ImpLChq([Id_lettre_cheque],True) AS Expr1
FROM Lettre_cheque
WITH OWNERACCESS OPTION;

Ce n'est pas une requête "mise à jour".

Merci de ton aide,
Richard.

[jimay]

Je ne suis pas expert en la matière, mais pour moi, il est impossible d'executer une requete basée sur une table qui appelle une fonction qui modifie cette même table.

Enfin pour moi c'est ça.