Sélection de la date sur le calendrier non prise en compte dans la zone de texte

**gwenaelthirion** · 06/10/2018, 10h27

Bonjour,

Dans un formulaire, j'ai une zone de texte de type date abrégée.
Lorsque je clque sur la zone de texte, le contrôle calendrier s'affiche et je peux sélectionner une date. La date est bien prise en compte.

Dans ce formulaire, j'ai un bouton qui ouvre un second formulaire permettant d'envoyer un mail avec la méthode CDO. L'envoi du mail se passe bien. Je referme ce formulaire.

A partir de ce moment là, je ne peux plus sélectionner de date via le petit calendrier. Celui ci s'affiche mais lorsque je clique sur une date, celle-ci n'est pas prise en compte danq la zone de texte. Seule une saisie manuelle est possible.

L'ensemble des contrôles calendrier de l'application est ne fonctionne plus. Je dois fermer Access et relancer l'application pour que tout redevienne en ordre.

Quelqu'un a t il déjà eu ce type de problème. Je me demande si ce n'est pas l'envoie de mail via CDO qui casse quelque chose.

Merci

**loufab** · 09/10/2018, 11h39

Bonjour,

Je te conseille de traiter ton application avec un Decomp/comp : http://blogaccess.free.fr/?p=75

ça devrait remettre le chose dans l'ordre.

Si ce n'est pas le cas, on verra pour aller plus loin.

Cordialement,

**gwenaelthirion** · 09/10/2018, 11h56

Bonjour Loufab,

Je te remercie pour ce retour car je fais pas mal de tests pour essayer de trouver une solution de contournement mais pour le moment je ne trouve pas.

J'ai regardé ce que tu proposes et je vais essayer mais je ne comprends pas bien ce que cela pourrait apporter.

Lorsque je suis bloqué, je ferme mon application, je la relance et la sélection de date fonctionne très bien. Le problème apparaît uniquement lorsque j’envoie la commande .send

Donc j'ai l'impression qu'il faut trouver une solution au niveau du code vba et non pas au niveau du fichier.

J'essai de toute façon tout à l'heure car je DOIS trouver une solution. Les utilisateurs me tombent dessus !!!!! Ils vont finir par craquer !!!

Bonne journée et encore merci pour ton retour.

Cordialement

Gwen

**marot_r** · 09/10/2018, 19h10

Bonjour.

Je me demande si ce n'est pas l'envoie de mail via CDO qui casse quelque chose.

Peux-tu poster le code qui te sers a l'envoi ?

Si tu peux essaye (momentanement) de remplacer par un envoi par Outlook.
Aussi, essaye de creer un BD de test avec juste un form avec une date et ton code CDO.

Emfin, si cela ne done rien, tu peux faire ton propre formulaire de calendrier 100% Access.
C'est un peu moins eleguant mais cela marche.

A+

**gwenaelthirion** · 09/10/2018, 22h12

Envoyé par marot_r

Bonjour.

Peux-tu poster le code qui te sers a l'envoi ?

Si tu peux essaye (momentanement) de remplacer par un envoi par Outlook.
Aussi, essaye de creer un BD de test avec juste un form avec une date et ton code CDO.

Emfin, si cela ne done rien, tu peux faire ton propre formulaire de calendrier 100% Access.
C'est un peu moins eleguant mais cela marche.

A+

Bonsoir Marot,

voici la fonction utilisée. je vais essayer ton test : passer par Outlook mais bon…. mon objectif est d'envoyer sans Outlook.

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
Public Sub EnvoiMailCDO(Chemin As String, envoi_pap As String)
 
'On Error GoTo err
'DoCmd.Close acForm, "Formulaire1"
Dim mMessage As Object
Dim mConfig As Object
Dim mChps
 
If Nz(Me.[Adresse de messagerie].Value, "") = "" Then
MsgBox "L'adresse du destinataire est absente." & vbCrLf & "L'envoi est annul?", vbCritical
Exit Sub
End If
If Nz(evaluateur_email, "") = "" Then
MsgBox "L'adresse de l'?metteur est absente." & vbCrLf & "L'envoi est annul?", vbCritical
Exit Sub
End If
 
 
 
 
    Set mConfig = CreateObject("CDO.Configuration")
 
    mConfig.Load -1
    Set mChps = mConfig.Fields
    'Sheets("EnvoiMail").Select
    With mChps
        .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
        .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = evaluateur_smtp
        'En principe, 25 fonctionne avec tout les serveurs.
        .item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
        'Vous pouvez essayer sans ces trois lignes
        'Mais si votre serveur demande une authentification,
        If Me.[Adresse de messagerie].Value <> "" Then
            .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
            .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = evaluateur_email
            .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = evaluateur_emailpwd
        End If
        'Si votre serveur demande une connexion s?re (SSL)
       ' If [E14].Value <> "non" Then
            .item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
       ' End If
        .Update
    End With
 
    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .To = Me.[Adresse de messagerie].Value
        .From = evaluateur_email
        If Me.Coche_CopieMail.Value = -1 Then .CC = evaluateur_email
        .Subject = Me.mail_objet.Value
        .TextBody = Me.mail_contenu.Value & vbCrLf & vbCrLf & Me.mail_signature
        'Pour ajouter une pi?ce jointe, un fichier, classeur, image etc.
 
        Select Case envoi_pap
        Case "OUI"
        'DoCmd.OpenReport "SPAP-04", acViewPreview, , "[ID] = [Forms]![Formulaire1].ID.Value"
        DoCmd.OpenReport "SPAP-04", acViewPreview, , "[ID] = " & ID_EN_COURS '[Forms]![Formulaire1].ID.Value"
 
        DoCmd.OutputTo acOutputReport, , "PDF", Chemin & ".pdf"
 
 
        .AddAttachment Chemin & ".pdf"
 
 
        Case "NON"
 
        End Select
 
        .Send
    End With
 
 
 
 
 
    DoCmd.Close acReport, "SPAP-04", acSaveNo
    MsgBox "Votre message a bien ?t? envoy?" & vbCrLf & "Le plan d'action est ?galement disponible ici : " & vbCrLf & Chemin, vbInformation, "Envoie du mail ? " & Me.[Adresse de messagerie].Value
    Me.cmdClose.Enabled = True
 
 
   ' Exit Sub
 
 
    Set mMessage = Nothing
 
    'Lib?re les ressources
    Set mConfig = Nothing
    Set mChps = Nothing
    'Exit Sub
'err:
'MsgBox err.Number & " - " & err.description, vbCritical
'Me.cmdClose.Enabled = True
 
 
End Sub

Si vous avez une idée….

merci car c'est bloquant et je ne m'en sors pas :-(

**loufab** · 10/10/2018, 08h59

Bonjour,

Tu as mis un coup de decomp/comp ou tu as jeté l'idée sans essayer ?

Cordialement,

**gwenaelthirion** · 10/10/2018, 10h57

Envoyé par loufab

Bonjour,

Tu as mis un coup de decomp/comp ou tu as jeté l'idée sans essayer ?

Cordialement,

Bonjour

J'ai essayé mais ça ne change rien malheureusement. Ce qui est étrange, c'est que la date de modificaton du fichier accdb n'est pas modifiée.... Du coup, je ne suis pas certain que le decomp/comp ait bien fonctionné.

Puis je faire comme ça pour tester autrement?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
rem @echo off
echo --------------- GUIDE D'UTILISATION --------------------------------
echo Copiez ce fichier dans le répertoire racine à traiter.
echo Decompile et compacte le fichier.
echo Enfoncé la touche Shift pour la première passe.
echo --------------------------------------------------------------------
echo AUTEUR : FABRICE CONSTANS MVP
SET NoExecuteApplication = "Oui"
"C:\Program files\Microsoft Office\OFFICE14\MSACCESS.EXE" "F:\MonAPPLI\6.0\mabase.accdb" /Decompile
"C:\Program files\Microsoft Office\OFFICE14\MSACCESS.EXE" "F:\MonAPPLI\6.0\mabase.accdb" /Compact
SET NoExecuteApplication=

**loufab** · 10/10/2018, 11h20

Visiblement non. Tu as suivi les indications du billet ou juste copié le batch ?

C'est important de comprendre le mécanisme du double lancement. Surtout le shift enfoncé si tu n'inclus pas le processus de non-exécution de l'appli (le SET avant et la détection du SET au démarrage). Personnellement je fais aucun livraison sans avoir appliqué un decomp/comp avant.

Beaucoup de "bizarreries" ont été réglé avec ce traitement.

[EDIT]
Tu as supprimé la copie de sauvegarde... ce qui indique que tu n'as pas lu le billet. Extrêmement dangereux, je te le déconseille fortement. Si le fichier est endommagé au départ tu peux tout perdre (et sans sauvegarde c'est définitif).

Oui, tu peux mettre le nom du fichier dans la commande. Cela évite le glisser/déposer. C'est moins souple mais possible.

**gwenaelthirion** · 10/10/2018, 11h39

Loufab,

J'ai effectué une sauvegarde avant de lancer le fichier bat. J'ai déjà perdu plusieurs bases suite à des casses ou autre. Maintenant, je fais très attention.

J'ai rajouté le code suivant dans ma fonction autoexec. Ce code se situe tout au début, avant le chargement du ruban.

Code :

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

1
2
3
4
5
6
7
 
If Not Environ("NoExecuteApplication") = "" Then
 
   'autres traitements possibles en post livraison
   Application.Quit   'quitte
 
End If

Donc, je pense que j'ai procédé comme il le faut

**marot_r** · 10/10/2018, 13h08

Bonjour.

Aussi, essaye de creer un BD de test avec juste un form avec une date et ton code CDO.

As-tu fais le test ? As-tu le meme probleme avec une nouvelle base ?

A+

**loufab** · 10/10/2018, 14h03

Envoyé par gwenaelthirion

...

Donc, je pense que j'ai procédé comme il le faut

Ok le comportement normal c'est celui-ci :

1) le fichier traité est sauvegarder par la commande Copy %1 %1.sav - tu peux remplacer les %1 par le chemin et nom du fichier.

2) Access s'ouvre une première fois pour la décompilation /decomp. Il se referme automatiquement (grâce aux instructions fournies)

3) Access s'ouvre une deuxième fois pour la compilation/compactage /comp.

La taille peut changer, la date et l'heure changent obligatoirement.

Les links entre les références, le code et l'interface sont défait puis recrées. (decomp)

Si cela n'a pas d'effet sur le problème ça ne fait pas de mal, mais il faudra sûrement investiguer plus comme le suggère marot. En tout cas, ça vaut toujours le coup de faire ça au début. En effet on passe souvent des heures à chercher un problème qui peut ne pas venir de la partie visible.

J'utilise le CDO fréquement (toujours en fait) et je n'ai pas constaté ce problème. Ni en runtime ni en version complète.

Une chose à vérifier lors de la constatation du bug, la valeur de la propriété Format de la zone incriminée. Elle doit être sur Date pour avoir dans tous le cas le petit calendrier.

Cordialement,

**gwenaelthirion** · 10/10/2018, 14h15

Je vais essayer.
Dans mon cas, le calendrier s'affiche bien, mais lorsque je clique dessus, la date sur laquelle j'ai cliqué ne s'affiche pas dans le textbox (elle n'est pas prise en compte).

1 - Je vais essayer le decomp/comp une nouvelle fois. Il y a peut être un problème dans le chemin d'accès à Access car je n'ai pas vu la base s'ouvrire et se refermer
2 - Si le pb est toujours d'actualité : Je vais créer une base avec un formulaire tout simple avec une zone de texte pour essayer de reproduire. Si c'est reproduit, je partage la base pour avoir votre avis. Si ce n'est pas la cas, oups !!!!!! J'essaierai peut être de recréer le formulaire en question pour voir si ça répare un truc.

Merci en tout cas de m'aider, c'est super sympa. Ce bug est vraiment bloquant :-( et on commence à

**loufab** · 10/10/2018, 15h35

tente de supprimer uniquement la zone de texte plutôt que tout le formulaire.

**gwenaelthirion** · 10/10/2018, 15h50

Après l'envoi, c'est l'ensemble des calendriers du formulaire qui ne fonctionnent plus.
Même si je ferme le formulaire et que je le recharge, ça ne fonctionne toujours pas.

Je vais refaire les tests vers 19h. Je ne peux malheureusement pas avant.

**gwenaelthirion** · 10/10/2018, 19h00

Bon, et bien concernant le decomp/comp, ça ne résout pas le problème....

Je vais essayer de tester avec la créatin d'un nouveau formulaire

**gwenaelthirion** · 10/10/2018, 21h17

J'ai créé une nouvelle base de donnée avec un formulaire contenant une zone de texte format date abrégée et un bouton

lorsque je clique sur le bouton, voici le code :

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
 
Private Sub Commande2_Click()
 On Error GoTo Error_send
    Dim oCdo As Object
    Set oCdo = CreateObject("CDO.Message")
    With oCdo
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                  'ou CdoSendUsingPort : utilisation réseau
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Auth.smtp.xxxxx.fr"    'nom ou IP du serveur SMTP
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"          'port utilisé
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "adresse mail"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot de passe"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
            .Update
        End With
               .To = "mail destinataire"
        .From = "mail emetteur"
        .Subject = "test"
        .TextBody = "contenu du mail"
        .Send
    End With
    Set oCdo = Nothing
    MsgBox "Votre message a bien été envoyé"
    Exit Sub
Error_send:
    MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
End Sub

au lancement du formulaire, le calendrier fonctionne bien.
lorsque je clique sur le bouton, le mail est bien envoyé, puis, le bug apparait. impossible de sélectionner une date.

pour tester chez vous, renseignez vos informations relatives au serveur smtp

J'espère que vous trouverez bon bug !!!!!

merci

moi, je cherche !

**gwenaelthirion** · 11/10/2018, 11h50

Bonjour,

Quelqu'un a t il essayé de reproduire le problème chez lui?
Loufab, toi qui tuilises souvent CDO, vois tu quelque chose qui cloche?

Merci

gwen

**loufab** · 11/10/2018, 14h28

Bonjour,

Non je ne vois rien dans ton qui justifie le problème.

La seule différence que je vois c'est que la tambouille de traitement CDO est dans un module standard et non dans le formulaire. Honnêtement je ne crois pas que ça change grand chose.

Tu as tenté une réparation d'office. à tout hasard ?

Sinon tu n'aurais pas du code qui influerait sur les contrôles du formulaire ?

Cordialement,

**gwenaelthirion** · 11/10/2018, 14h41

Comment puis je faire pour poster un fichier accdb, tu verras qu'il n'y a rien de particulier et tu pourrais voir si ça plante aussi chez toi.
Le bug se produit aussi sur des accde chez les utilisateurs, donc, je ne pense pas que ce soit ma version d'office.

**gwenaelthirion** · 11/10/2018, 14h47

Voici un exemple de bug:

test.zip

Sélection de la date sur le calendrier non prise en compte dans la zone de texte [AC-2010]

IHM

Discussions similaires

Partager

Partager