Discussion :

[JDev_]

Bonjour,

J'espère que mon post ne fait pas echo à un autre.
J'ai vérifié sur le forum et je n'ai pas trouvé une solution à ma situation.

Je travaillle sur un formulaire sur Access.

J'ai une fonction DisplayCalendar qui me permet d'affficher un calendrier répondant à l'évenement "Click" du bouton Bt_Calendrier.
Ma date est donc affichée dans une zone de texte TxtDetail.

J'ai défini deux variables String globales : StrTableNameCourrier et StrTableNameMail. Elles représentent le nom donné par l'utilisateur à une table type générée précédement.

Mon problème est que ma variable lDate de type String récupère bien ma date dans la zone de texte mais je n'ai pa réussi à la récupérer dans toute ma colonne DateCrea.

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 Bt_Calendrier_Click()
 
Dim lDate As String, strCourrierSQL As String, strMailSQL As String
 
 
'Appel de la fonction DisplayCalendar du ModuleCalendar
    lDate = DisplayCalendar(Me.TxtDetail, "Choisir une date" & vbCrLf & "Test 2ème ligne", _
                                     IIf(IsDate(Me.TxtDetail), Me.TxtDetail, Now), _
                                     "Comic sans MS", 8, True, vbBlack, _
                                     vbYellow, "arial", 10)
 
    If Not lDate = "" Then
    'Ajout du champs date dans la zone de texte TxtDetail
        Me.TxtDetail.Value = lDate
 
     'StrTableNameCourrier variable string globale correspondant : nom de la table type Courrier créer par l'utilisateur
        strCourrierSQL = "INSERT INTO " & StrTableNameCourrier & " (DateCrea)"
        strCourrierSQL = strCourrierSQL + " VALUES (" & lDate & ")"
 
      'StrTableNameCourrier variable string globale correspondant : nom de la table type Mail créer par l'utilisateur
        strMailSQL = "INSERT INTO " & StrTableNameMail & " (DateCrea)"
        strMailSQL = strMailSQL + " VALUES (" & lDate & ")"
 
    End If
 
    DoCmd.RunSQL strCourrierSQL
    DoCmd.RunSQL strMailSQL
 
End Sub

J'espère avoir été suffisament clair.


Merci pour votre aide.

[Mr.Mof]

Bonjour,

La syntaxe pour la requête d'insertion n'est pas "INSERT INTO" à la place de "INSERT TO"?

Cordialement.

[JDev_]

Je viens de corriger. A force de modifier le code, je fais des erreurs bêtes.

Merci de ta réponse.

Je n'ai plus d'erreur par contre ma colonne DateCrea ne prend par la valeur de lDate. As-tu une idée ?

[Mr.Mof]

Si tu as déjà des enregistrements et que tu souhaites mettre à jour ta colonne, il faut utiliser UPDATE et pas INSERT. Si tu utilise INSERT, ca va te rajouter un enregistrement mais pas mettre à jour les autres.

[JDev_]

J'ai bien pris connaissance de la différence entre INSERT INTO et UPDATE.
Dans ma situation, la colonne DateCrea est vide et pour cet évènement elle le sera toujours.

En effet, je suis dans la situation où l'utilisateur a créé pécédement cette table (qui a été générée à partir d'une table type).

Merci pour le temps que tu consacres à m'aider.

[Mr.Mof]

Si ton champ est de type date, utilise "Values(#" & Date & "#)"

[JDev_]

Rien n'y fait. La colonne DateCrea reste vide.

Merci d'avoir proposé des solutions.

Peut-être il y a une toute autre manière de procéder ?

[JDev_]

Bonjour,

Je me permets de relancer mon post.
Mon problème n'est pas résolu et c'est plutôt ennuyeux.

Merci pour votre aide !

[Mr.Mof]

Bonjour,

Je te suggère d'essayer de faire une insertion directement depuis une requête puis de reprendre la code SQL généré de cette requête dans ton code vba.

Cordialement.