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

[User]

Salut,

Peux-tu nous donner ton sql complet ?

merci.

[tibiurs]

voici le code que j'appelle

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
    Dim max As Date
    Dim min As Date
    Dim stDocName As String
    Dim max1 As Date
    Dim min1 As Date
    Dim install As Date
 
    DoCmd.SetWarnings False 'Permet de ne pas afficher les messages
 
    DoCmd.RunSQL "DELETE * FROM t_client_installe"
 
    max = Forms![f_liste clients_installes]!Texte9
    min = Forms![f_liste clients_installes]!Texte7
 
    min1 = ap_SQLArgDate(min)
    max1 = ap_SQLArgDate(max)
 
    install = ap_SQLArgDate(t_client_installe![date d'installation])
 
    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 install BETWEEN #" & min1 & "# AND #" & max1 & "#"

[Jean-Philippe André]

salut,
perso, plutôt que de multiplier les fonctions, et donc les risques d'erreur, je serais passé directement dans la ligne finale avec un

Code :

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

Format(CDate(),"MM/DD/YYYY")

d'autre part ta variable install ne sert pas dans ton code, est-ce normal ?

[tibiurs]

OK je viens de tester ça et ça marche du tonnerre
Je n'ai pas pu l'intégrer directement dans ma ligne SQL (INSERT INTO), j'ai du passer par des variables intermédiaires malgré tout
merci a vous