Discussion :

[tibiurs]

Bonjour a tous,
dans ma base de donnees, j'ai cree un formulaire dans lequel je rentre 2 dates
puis en appuyant sur un bouton, je lance une requete pour faire une recherche de tout mes clients dont la date d'installation est comprise entre ces 2 dates qui doivent s'enregistrer dans une table independante.
Hors avec le code que j'ai mis, lorsque je trouve une date d'installation qui repond aux criteres, il m'enregistre toutes les lignes de ma table.
Si ce n'est pas le cas il n'enregistre rien.
Je ne sait pas ou est l'erreur.

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
29
30
31
32
33
34
35
    Dim conn As New adodb.Connection
    Dim rs As New adodb.Recordset
    Dim Enr As Recordset
    Dim max As Date
    Dim min As Date
    Dim stDocName As String
 
    DoCmd.SetWarnings False 'Permet de ne pas afficher les messages
 
    Set conn = CurrentProject.Connection
    rs.ActiveConnection = conn
    rs.Open "t_client", conn, adOpenDynamic, adLockOptimistic
 
    Set Enr = CurrentDb.OpenRecordset("t_client")
    Enr.MoveFirst
    'MsgBox Enr("date d'installation")
 
    DoCmd.RunSQL "DELETE * FROM t_client_installe"
 
    max = Forms![f_liste clients_installes]!Texte9
    min = Forms![f_liste clients_installes]!Texte7
 
    Do While rs.BOF = False And rs.EOF = False
 
        If (Enr("date d'installation") >= min) And (Enr("date d'installation") <= max) Then
            DoCmd.RunSQL "INSERT INTO t_client_installe ([numero_commande],[nom],[code postal],[date d'installation]) SELECT [numero_commande],[nom],[code postal],[date d'installation] FROM t_client"
        End If
 
        Enr.MoveNext
 
    Loop
 
    Enr.Close
    conn.Close
    Set conn = Nothing

merci d'avance pour toute aide

[Invité]

Bonjour

pourquoi pas plutôt:

Code :

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

1
2
 
If (Enr("date d'installation") Between min And  max)

[vodiem]

salut tibiurs et GAYOT,

il m'enregistre toutes les lignes de ma table.

normal...

cela devrait te suffire:

Code :

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

1
2
3
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM t_client_installe"
    DoCmd.RunSQL "INSERT INTO t_client_installe ([numero_commande],[nom],[code postal],[date d'installation]) SELECT [numero_commande],[nom],[code postal],[date d'installation] FROM t_client WHERE [date d'installation] BETWEEN #" & Forms![f_liste clients_installes]!Texte7 & "# AND #" & Forms![f_liste clients_installes]!Texte9 & "#"

[tibiurs]

merci beaucoup ca fonctionne bien ormis le fait qu'il me sauvegarde tous les enregistrements qui sont antérieurs a la date min

[vodiem]

je ne pense pas que la requete soit en cause. c'est souvent le pb entre le format FR saisie et US utilisé par access.

vérifie cela et converti en conséquence.

[tibiurs]

ok je viens d'essayer de convertir mes dates au format US en utilisant la fonction :

Code :

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

1
2
3
4
5
6
 Function ap_SQLArgDate(ByVal vDate As Date) As String
    On Error Resume Next
        If Not IsNull(vDate) Then
            ap_SQLArgDate = "#" & Format$(vDate, "mm/dd/yyyy") & "#"
        End If
    End Function

Mais lorsque je l'appelle, il me renvoie le message objet requis
je suis un peu perdu