Discussion :

[meeeh]

Bonjour!

Je cherche à appeler le champ Date_limite_envoi_offre de mon formulaire principal frm_tbl_infosAvis à partir d'un sous formulaire de ce formulaire principal appelé frm_chiffrage.
J'ai essayé plusieurs syntaxes mais aucune ne fonctionne et ça me renvoie tour à tour un des messages d'erreur alors que les éléments sont bien écrits et remplis.
Voici les différentes syntaxes essayées avec leur message d'erreur:

Code :

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

1
2
3
Forms("frm_tbl_infosAvis").Controls("Date_limite_envoi_offre")
Forms("frm_tbl_infosAvis").Controls("Date_limite_envoi_offre").Value
Me![Date_limite_envoi_offre].Value

--> erreur d'exécution 2465 Microsoft Access ne trouve pas le champ "Date_limite_envoi_offre auquel il est fait référence dans votre expression

Code :

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

Date_limite_envoi_offre

--> ne renvoie pas d'erreur mais ne le prend pas en compte

Code :

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

Me.frm_tbl_infosAvis!Date_limite_envoi_offre

--> erreur de compilation : membre de méthode ou de données introuvable

Si quelqu'un à une idée ce serait super

[loufab]

Bonjour,

Code :

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

1
2
 
Me.Parent.MonControle.value

ou

Code :

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

Me.Parent.Controls("MonControle").value

Apprend à utiliser Me, tu auras ainsi l'autocompletion.

Cordialement,

[meeeh]

Bonjour,

Merci la première méthode fonctionne!

J'ai vu qu'il y a plusieurs façons d'utiliser Me mais n'ai pas compris la différence entre "Me." et "Me!".
Pour appeler un champ du formulaire principal depuis le sous formulaire je dois écrire Me.Parent.MonControle.Value alors que pour rendre visible mon sous formulaire depuis un bouton sur le formulaire principal je fais Me![frm_consultation].Visible.

J'ai lu que les syntaxes ("") et ![] sont équivalentes.
Serai-ce que si on veut écrire les éléments sans crochets on met juste un point ou c'est selon les types d'éléments (contrôle, paramètre...)?

[loufab]

Bonjour,

Regarde mon billet sur mon blog http://blogaccess.free.fr/?p=197
Au terme de sa lecture je pense que tu laisseras tomber le !.

Pour appeler un champ du formulaire principal depuis le sous formulaire je dois écrire Me.Parent.MonControle.Value alors que pour rendre visible mon sous formulaire depuis un bouton sur le formulaire principal je fais Me![frm_consultation].Visible.

Ici tu as 2 choses différentes à faire et depuis 2 endroits différents.
1) Me.Parent.MonControle.Value :
Tu es dans le sous-formulaire et tu cherches à interagir avec un élément de ton formulaire container. Dans ce cas :

• Me (l'objet courant = le sous-formulaire)
• Parent (son container parent = le formulaire qui le contient)
• MonControle (l'objet que tu veux manipuler)

2) Me![frm_consultation].Visible :
Tu es dans le formulaire et tu veux interagir avec un objet de celui-ci :

• Me (l'objet courant = le formulaire)
• frm_consultation (l'objet que tu veux manipuler)

Pour maitriser ça voici un article que je te conseille de lire, n'oublie pas d'imprimer le pense-bête et à l'afficher sur ton bureau.

https://loufab.developpez.com/tutori...pelformulaire/

Cordialement,

[meeeh]

C'est beaucoup plus clair.
Merci!

[meeeh]

Bonjour!

J'ai un nouveau petit problème similaire.

Je voudrais que lorsque l'utilisateur choisit un SST dans le sous formulaire Consultation, un enregistrement se crée dans la table tbl de retour consultation sur lequel se base le sous formulaire frm_rapportChoix (tableau) avec le nom du SST et le numéro d'avis remplis (les enregistrements sur l'image ont été rentrés à la main).
J'ai réussi à créer des enregistrements qui remplissent le nom du SST mais cela ne fonctionne pas pour le N°_Avis lorsque je rajoute la ligne en rouge dans le code ça me donne l'erreur "Erreur d'exécution 3265, élément non trouvé dans cette collection".
J'ai essayé de remplacer cette ligne par tbl_retourConsultation![N°_Avis] = Me.N°_Avis ou encore tbl_retourConsultation![N°_Avis] = Me.Parent.N°_Avis.Value mais c'est pareil.
Il semble ne pas trouver l'élément.

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
Private Sub SST_1_AfterUpdate()
If SST_1 = SST_2 Or SST_1 = SST_3 Or SST_1 = SST_4 Or SST_1 = SST_5 Or SST_1 = SST_6 Or SST_1 = SST_7 Or SST_1 = SST_8 Or SST_1 = SST_9 Or SST_1 = SST_10 Then
    MsgBox "Vous avez saisi plusieurs fois le même sous-traitant : " & SST_1, vbOKOnly, "Consultation SST"
End If

'Declaration des variables
Dim bd As Database
Dim tbl_retourConsultation As Recordset
 
'Sélection de la BDD
Set bd = CurrentDb
Set tbl_retourConsultation = bd.OpenRecordset("tbl_retourConsultation", DB_OPEN_DYNASET)
 
'Ajout de l'enregistrement
tbl_retourConsultation.AddNew
tbl_retourConsultation![SST] = Me.SST_1
tbl_retourConsultation![N°_Avis] = tbl_infosAvis![N°_Avis]
tbl_retourConsultation.Update
tbl_retourConsultation.MoveLast

End Sub

Voici le formulaire pour se faire une idée plus concrète:

[hyperion13]

Avant d'aller plus loin.
Si un jour vous deviez ajouter un SST 11, vous feriez comment ? L'ajouter dans la tbl consultations ?
Il y a donc, à mon avis, un problème de conception.
Au lieu de créer les champs SST1 à SST10 dans ladite tbl il aurait été judicieux de créer :
- une tbl SST (id_sst, sst, etc.),
- une pseudo-entité tbl XXXXX (N°_avisfk, id_sstfk)

[meeeh]

Bonjour,

Effectivement, je m'étais posé la question lors de la conception et justement on m'a dit qu'il était plus intéressant de limiter le nombre de SST consultés pour ne pas s'étaler sachant qu'il n'y en a jamais eu plus de 10 et que la dizaine était très rarement atteinte. Je n'ai donc pas cherché plus loin de ce côté là.
Rien n'empêche cependant si besoin d'en mettre un 11e d'envoyer la consultation à part à la main et de rajouter à la main un enregistrement dans le formulaire rapport de choix où le nombre d'entrées pour un même N°_Avis n'est pas limité (certes ce n'est pas super mais bon ça fera le job pour l'instant )

On m'a demandé de développer une base complète alors que je n'ai jamais touché à Access ou VBA, j'ai donc fait comme j'ai pu avec ce que j'ai découvert au fur et à mesure.
Le problème c'est qu'il ne me reste plus que 5 jours de stage et je voudrais rendre un outil fonctionnel avant mon départ dont ils pourront commencer à se servir.
Je ne peux donc pas effectuer de changement aussi conséquent surtout alors que sa structure actuelle a été validée.
Dans tous les cas cet outil sera amené à évoluer et éventuellement arriver au bout du processus (gestion commandes, livraisons...) au fur et à mesure de la venue de nouveaux stagiaires
Cependant, cette alternative est très intéressante. Je la mentionnerai donc dans mon rapport d'évolution pour qu'elle puisse être mise au point si besoin. Merci!

Dans l'immédiat je cherche donc juste une solution pour pouvoir entrer en même temps le nom du SST et le N°_Avis dans la table retour de consultation lors de la création de l'enregistrement avec l'after update des SST_i...

[meeeh]

Bonjour!

hyperion13, j'ai fait une nouvelle proposition suivant votre suggestion mais cette fois ils ont choisi cette option
Je me retrouve donc à devoir changer un bon nombre d'éléments et suis à nouveau bloquée pour l'appel des éléments dans ma fonction mail
Voici les changements (photo du formulaire complet à la fin):
- SST_1, ..., SST_10 retirés de tbl_consultation
- N°_Avis & SST définis dans tbl_retourConsult directement et sous formulaire dans formulaire consultation avec uniquement ces deux champs --> plus de problème de copiage d'enregistrement ni de limite de nombre
Le problème que je rencontre à présent est que je ne sais pas comment appeler les SST dans ma fonction mail puisque le champ s'appelle indistinctement SST et qu'il peut y en avoir un nombre quelconque et qu'il se trouve dans un sous formulaire de sous formulaire.
J'ai essayé de l'appeler avec la ligne en rouge dans le code suivant mais ça donne une erreur, car probablement trop basique...

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
Option Compare Database
'-------------------------------------
'Envoi mail conslutation
'-------------------------------------

Private Sub btn_envoiConsultation_Click()

'Envoi mail consultation

    Dim sujetMailSST As String
    Dim bodyMailSST As String
    Dim destSST As String

    If IsNull(N°_Avis) Then
        MsgBox "Le champ N°Avis est vide.", vbOKOnly, "Envoi en chiffrage"
    Else
        
        'Mail consultation SST
        sujetMailSST = "DEMANDE DE CHIFFRAGE N°" & N°_Avis
                  
        'Body mail HTML----------------
        
        ' Tableau livrables Conception----------------------------------------------------------
        tbl_livrablesHTML = "<h3>Livrables</h3> <h4>Conception</h4> <table style=""width:40%"">"
        
        ' Case Avant projet
        If Me.Parent.Avant_Projet.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Avant-projet</td></tr>"
        
        ' Case Etudes 3D
        If Me.Parent.Etudes_3D.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Etudes 3D</td></tr>"
        
        ' Case Etudes 2D
        If Me.Parent.Etudes_2D.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Etudes 2D</td></tr>"
        
        ' Case Note de calcul
        If Me.Parent.Note_de_calcul.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Note de calcul</td></tr>"
        
        ' Case Notice d'utilisation
        If Me.Parent.Notice_d_utilisation.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Notice d'utilisation</td></tr></table>"
        
        ' Fin tableau livrables conception
        
        '-------------------------------
        ' Tableau livrables Réalisation
        tbl_livrablesHTML = tbl_livrablesHTML & " <h4>Réalisation</h4> <table style=""width:40%"">"
        
        ' Case Fabrication
        If Me.Parent.Fabrication.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Fabrication</td></tr>"
        
        ' Case Certificat matière
        If Me.Parent.Certificat_matière.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Certificat matière</td></tr>"
        
        ' Case Certificat de traitement matière
        If Me.Parent.Certificat_de_traitement_matière.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Certificat de traitement matière</td></tr>"
        
        ' Case Installation/Montage
        If Me.Parent.Installation_Montage.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Installation/Montage</td></tr>"
        
        ' Case Rapport de mesure (pièces unitaires)
        If Me.Parent.Rapport_de_mesure__pièces_unitaires_.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Rapport de mesure (pièces unitaires)</td></tr>"
        
        ' Case Rapport de mesure (outil monté)
        If Me.Parent.Rapport_de_mesure__outil_monté_.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Rapport de mesure (outil monté)</td></tr>"
        
        ' Case Rapport de mesure LASER
        If Me.Parent.Rapport_de_mesure_LASER.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Rapport de mesure LASER</td></tr>"
        
        ' Case Essai en charge
        If Me.Parent.Essai_en_charge.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Essai en charge</td></tr></table>"
        
        ' Fin tableau livrables réalisation
        
        '-------------------------------
        ' Tableau livrables Déclaration
        tbl_livrablesHTML = tbl_livrablesHTML & " <h4>Déclaration</h4> <table style=""width:40%"">"
        
        ' Case Déclaration de conformité
        If Me.Parent.Déclaration_de_conformité.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Déclaration de conformité</td></tr>"
        
        ' Case Déclaration CE
        If Me.Parent.Déclaration_CE.Value = True Then
            tbl_livrablesHTML = tbl_livrablesHTML & "<td style=""text-align:center;""> X </td>" 'Case cochée
        Else
            tbl_livrablesHTML = tbl_livrablesHTML & "<td> </td>" 'Case non cochée
        End If
        tbl_livrablesHTML = tbl_livrablesHTML & "<td>Déclaration CE</td></tr></table>"
        
        ' Fin tableau livrables Déclaration

        bodyMailSST = "<head><style>table, th, td {border: 1px solid black;}</style></head><body> <h1>DEMANDE DE CHIFFRAGE</h1> <p>N°Avis : " & N°_Avis
        bodyMailSST = bodyMailSST & "<br \> Date de la demande : " & Date_envoi_consultation & " </p> <p> Madame, Monsieur, </p> <p> Voici une demande de chiffrage concernant : "
        bodyMailSST = bodyMailSST & Me.Parent.Nom_OT.Value & "<br \> Outil N° : " & Me.Parent.N°_OT.Value & "<br \> Demandé par : STELIA <br \> Contact STELIA : "
        bodyMailSST = bodyMailSST & Me.Parent.Contact_client.Column(1) & " " & Me.Parent.Contact_client.Column(2) & "<br \> Date limite de retour de consultation : "
        bodyMailSST = bodyMailSST & Date_réponse_limite_SST & "</p>" & tbl_livrablesHTML & "<p> Lien de téléchargement des documents associés : "
        bodyMailSST = bodyMailSST & Lien_téléchargement_données & "<br \> Remarque : " & Rq_mail_SST & "</p> <p> Cordialement, </p> </body>"
                     
        'Définition destinataires
        destSST = Forms.frm_consultation.frm_consult2.Form.SST.Column(2)
                     
                     
        EnvoyerEmail sujetMailSST, destSST, bodyMailSST
    End If
    
'Affecte la date du click sur le bonton à date envoi en consultation
Date_envoi_consultation = Now()

End Sub


'-------------------------------------
'Envoi mail
'-------------------------------------

Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
'par Excel-Malin.com ( https://excel-malin.com )
    
On Error GoTo EnvoyerEmailErreur
    
'définition des variables
Dim oOutlook As Outlook.Application
Dim WasOutlookOpen As Boolean
Dim oMailItem As Outlook.MailItem
Dim Body As Variant
    
Body = ContenuEmail
    
    'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé. Si vous voulez pouvoir envoyer les email vides, mettez en commentaire les 4 lignes de code qui suivent.
    If (Body = False) Then
        MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
        Exit Sub
    End If
        
    'préparer Outlook
    PreparerOutlook oOutlook
    Set oMailItem = oOutlook.CreateItem(0)
        
    'création de l'email
    With oMailItem
        .BCC = Destinataire
        .Subject = Sujet
           
        'CHOIX DU FORMAT
        '----------------------
        'email formaté comme texte
            '.BodyFormat = olFormatRichText
            '.Body = Body
                
            'OU
                
        'email formaté comme HTML
            .BodyFormat = olFormatHTML
            .HTMLBody = "<html>" & Body & "</html>"
       '----------------------
            
       If PieceJointe <> "" Then .Attachments.Add PieceJointe
    
       .Display   '<- affiche l'email (si vous ne voulez pas l'afficher, mettez cette ligne en commentaire)
       '.Save      '<- sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettez cette ligne en commentaire)
       '.Send      '<- envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettez cette ligne en commentaire)
    End With
       
    'nettoyage...
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
        
    Exit Sub
    
EnvoyerEmailErreur:
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
      
    MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"
End Sub

Private Sub PreparerOutlook(ByRef oOutlook As Object)
'par Excel-Malin.com ( https://excel-malin.com )
'Ce code vérifie si Outlook est prêt à envoyer des emails... Et s'il ne l'est pas, il le prépare.

On Error GoTo PreparerOutlookErreur

On Error Resume Next
    'vérification si Outlook est ouvert
    Set oOutlook = GetObject(, "Outlook.Application")
        
    If (Err.Number <> 0) Then 'si Outlook n'est pas ouvert, une instance est ouverte
        Err.Clear
        Set oOutlook = CreateObject("Outlook.Application")
    Else    'si Outlook est ouvert, l'instance existante est utilisée
        Set oOutlook = GetObject("Outlook.Application")
        oOutlook.Visible = True
    End If
    Exit Sub
    
PreparerOutlookErreur:
    MsgBox "Une erreur est survenue lors de l'exécution de PreparerOutlook()..."
End Sub

Je pensais partir sur un algorithme de ce type mais n'ai pas encore réussi à le retranscrire en VBA :

Code :

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

1
2
3
4
Tant que N°Avis(frm_retourConsult) = N°Avis(frm_infosAvis)
Faire
destSST = destSST + mailSST (correspond à SST.Column(2)) + ";"
passage enregistrement suivant tbl_retourConsult pour même N°Avis

Est-ce la bonne piste ou y a-t-il d'autres solutions?
Merci d'avance