Discussion :

[jeanda]

Bonsoir a tous,

Voila je vous explique mon problème.

Je cherche à créer une table à partir de deux données rentrée dans un formulaire: une date de début et une date de fin. quand l'utilisateur clique sur "valider" la table (table2) doit se créer.

La nouvelle table (table2) doit contenir les meme données que la table1, en ne séléctionnant que les lignes dont les dates sont comprises entre la date de début et la date de fin rentrée dans le formulaire (dans table1, j'ai deux champs qui correspondent à une date de début et une date de fin (DATEEF et DATFIN))

voila le programme que j'ai testé:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Valider_Click()
datd=DateDebut.value
datf=DateFin.value
If (datd = "" Or datf= "") Then
MsgBox ("Les champs ne doivent pas être vides")
Else: DoCmd.Runsql "CREATE TABLE table2 as select * from table1 where '...conditions sur les dates
end If
end SUb

Je sais que le select n'est pas autorisé avec le doCmd.runsql mais je vous ai mis ce bout de programme pour que ce soit plus clair.

Merci d'avance !

[bernardmichel]

Bonjour et bienvenue sur notre forum

Voici peut-être un idée pour ta question :

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
Private Sub Valider_Click()
Dim DatD    As Date
Dim DatF    As Date
Dim sql     As String
 
DatD = Me.DateDebut.Value
DatF = Me.datefin.Value
 
sql = "SELECT Table1.* INTO Table2 " & _
      "FROM Table1 " & _
      "WHERE (((Table1.Dated)>= #" & DatD & "# AND ((Table1.Datef)<= #" & DatF & "#)));"
 
    If DatD = "" Or DatF = "" Then
        MsgBox "Les champs ne doivent pas être vides"
    Else
        DoCmd.RunSQL sql
    End If
End Sub

A +