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.