Discussion :

[clickandgo]

Bonjour à tous

Dans le code ci-dessous le sourceobject d'un formulaire de navigation est interrogé pour déclencher une action suivant si l'objet incrusté dans celui-ci est un formulaire ou un état, or, curieusement, lorsqu'il s'agît du nom d'un état le code ne réagît pas ...

Dans l'exemple suivant la condition est prise en compte lorsqu'il s'agît du formulaire "sf suggestionterriers" mais dès qu'il s'agît du nom d'un état comme dans le deuxième test, pas de réaction ... De quoi cela peut-il venir selon vous ?
(j'ai essayé de remplacer les "select case" par des "if" , rien ne change ...

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Private Sub btnCreerPDFSuggestions_Click()
 
Dim oFD As Office.FileDialog
Dim strChemin As String
'Dim strDossierPrincipal As String
Dim strNomDocument As String
Dim strPathDocument As String
Dim nomEtat As String
Dim Criteria As String
 
'On Error Resume Next
 
 
 
Select Case Me.SFNavTerriers.SourceObject
 
    Case "sf suggestionterriers"
 
        MsgBox "Ce formulaire n'est pas enregistrable en format PDF : Choisissez un rapport par exploitants, parcelles ou propriétaires.", vbCritical, "Erreur"
 
        Exit Sub
 
     Case "rptdetailsterriersparexploitants"
     MsgBox "exploitants"
 
        nomEtat = "rptdetailsterriersparexploitants"
 
 
    Select Case Me.cboExploitantTerriers
 
        Case Is = ""
            Criteria = "select * from [tmpdetailsterriers] order by idsuggestion"
            strNomDocument = "Liste suggestions de terriers par exploitants au " & Format(Now(), "dd\ mmm\ yyyy H\hnn") & ".pdf"
 
        Case Is <> ""
            Criteria = "select * from [tmpdetailsterriers] where exploitant='" & Apos(Me!cboExploitantTerriers) & "' order by idsuggestion"
            strNomDocument = "Liste suggestions de terriers exploitant : " & Me!cboExploitantTerriers & " au " & Format(Now(), "dd\ mmm\ yyyy H\hnn") & ".pdf"
 
        End Select
 
    Case "rptdetailsterriersparparcelles"
 
        nomEtat = "rptdetailsterriersparparcelles"
 
    Select Case Me.cboExploitantTerriers
 
        Case Is = ""
            Criteria = "select * from [tmpdetailsterriers] order by idsuggestion"
            strNomDocument = "Liste suggestions de terriers par parcelles au " & Format(Now(), "dd\ mmm\ yyyy H\hnn") & ".pdf"
 
        Case Is <> ""
            Criteria = "select * from [tmpdetailsterriers] where exploitant='" & Apos(Me!cboExploitantTerriers) & "' order by idsuggestion"
            strNomDocument = "Liste suggestions de terriers par parcelles et exploitant : " & Me!cboExploitantTerriers & " au " & Format(Now(), "dd\ mmm\ yyyy H\hnn") & ".pdf"
 
        End Select
 
End Select
 
'ouvre une boite de dialogue
 
Set oFD = Application.FileDialog(msoFileDialogSaveAs)
 
With oFD
 
    'Paramètrage de la boite de dialogue
    'Affichage en mode liste
    .InitialView = msoFileDialogViewList
    'Nom du fichier par défaut
    .InitialFileName = strNomDocument
    'Titre de la fenêtre
    .Title = "Exporter la liste des suggestions de terriers en PDF"
    'Affiche la boîte et récupère le chemin du fichier
    If .Show Then
        If .SelectedItems.Count > 0 Then
            strChemin = .SelectedItems(1)
    End If
    End If
 
End With
 
            'Ouvre l'état actif dans la fenêtre
            Debug.Print nomEtat, strNomDocument
            DoCmd.OpenReport nomEtat, acViewPreview, Criteria
            'Enregistre l'état
             DoCmd.OutputTo acOutputReport, , "PDF", strChemin
 
 
 
End Sub

[tee_grandbois]

bonsoir,
je ne connais pas les formulaires de navigation mais je pense que cela fonctionne à peu près comme les formulaires classiques donc, en ajoutant Debug.Print Me.SFNavTerriers.SourceObject tu devrais obtenir État.rptdetailsterriersparexploitants et pas rptdetailsterriersparexploitants

[clickandgo]

Merci pour cette réponse qui s'avérait être la bonne

Cependant je ne comprends pas cette confusion :

Access ne demande pas obligatoirement de mettre en préfixe "form.nom du form" lorsqu'il s'agit d'un formulaire par contre il faut obligatoirement préciser "état.[nom de l' état] ou est la logique ?

[tee_grandbois]

Access ne demande pas obligatoirement de mettre en préfixe "form.nom du form" lorsqu'il s'agit d'un formulaire par contre il faut obligatoirement préciser "état.[nom de l' état] ou est la logique ?

Il ne demande rien, c'est la conception qui est faite ainsi ... Dans le cas d'uns contrôle sous-formulaire/sous-état, tu peux mettre tous les types d'objets y compris les tables et les requêtes (et oui !):



c'est uniquement si l'objet choisi n'est pas un formulaire qu'il gardera le type de l'objet:


Par contre, pour un état, tous les objets sont typés, je te le concède ...