Discussion :

[jorge54]

Bonjour,

Je souhaite insérer un nom de fichier par défaut à l’enregistrement de mon formulaire.
Cela fonctionnait bien en version 2003 ou au moment de l'enregistrement, j'avais le nom "Document_DT" mais depuis la migration de la base access en 2010 puis en 2016, cela ne fonctionne plus.

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
Private Sub Commande412_Click()
On Error GoTo Err_Commande412_Click
 
    Dim stDocName As String
 
    stDocName = "Document_DT"
 
    DoCmd.SetWarnings False
    DoCmd.CopyObject , stDocName, acReport, "_Recepisse_Modele"
    DoCmd.SetWarnings True
 
    DoCmd.OpenReport stDocName, acViewPreview
    If Not IsNull(DLookup("Imprimantes.Numero", "Imprimantes", "Imprimantes.Choix_Imprimante=True")) Then
        n_imprimante = Val(DLookup("Imprimantes.Numero", "Imprimantes", "Imprimantes.Choix_Imprimante=True")) - 1
    Else
        n_imprimante = 0
    End If
    If n_imprimante <= 0 Then
        n_imprimante = 0
    End If
    Set Reports(stDocName).Printer = Application.Printers(n_imprimante)
 
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Commande412_Click:
    Exit Sub
 
Err_Commande412_Click:
    MsgBox Err.Description
    Resume Exit_Commande412_Click

MERCI pour votre aide.
Jorge

[Zekraoui_Jakani]

Quelle est la ligne qui bloque ?
En cas d'erreur, que donne "MsgBox Err.Description" ?
Quel est le résultat de "Debug.Print Document_DT ?

[jorge54]

Bonjour Zekraoui_Jakani,
Je n'ai pas d'erreur, sauf que ayant migré la base en 2016, je n'ai plus le nom du fichier qui se met dans la box. On est obligé de saisir le nom.
JE ne vois pas comment faire pour mettre dans la box un nom par défaut.