[AC-2003] erreur 2001 quand utilise instruction .recordsource = select * from

[Minhv]

Bonjour.

je veux effectuer une recherche selon la date dans un champ mais j'obtiens erreur 2001 :opération annulée.

Pourtant, quand j'utilise le même code pour un champ text, il fonction à merveiile.

Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CmdSearchDate1_Click()
 
If Len(TxtDate1) = 0 Or IsNull(TxtDate1) = True Then
        MsgBox "You must select a field to search."
    Else
 
        'Generate search criteria
        GCriteria_Date1 = TxtDate1
 
        'Filter frmCustomers based on search criteria
        Form_Frm_Recherche_Détaiilé.RecordSource = "select * from T_Registre where date = '" & GCriteria_Date1 & "'"
 
 
    End If
 
 
End Sub

Pourtant, le même code fonctionne avec d'autre champ dans le même formulaire:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Cbo_Crt_Lieu_AfterUpdate()
 
    If Len(Cbo_Crt_Lieu) = 0 Or IsNull(Cbo_Crt_Lieu) = True Then
        MsgBox "You must select a field to search."
 
    Else
               'Generate search criteria
        GCriteria_Lieu = Cbo_Crt_Lieu.Value
        'Filter frmCustomers based on search criteria
        Form_Frm_Recherche_Détaiilé.RecordSource = "select * from T_Registre where lieu = '" & GCriteria_Lieu & "'"
 
 
    End If
End Sub

[Philippe JOCHMANS]

Bonjour

Deux choses :

1 - on ne nomme pas un champ "Date", il s'agit d'une fonction VB, et donc d'un mot réservé. On peut l'entourer de crochet, mais le mieux est de le renommer.

2 - Pour une date il faut utiliser les # et non les ' pour entourer la variable et de plus la date doit être au format US (mm/dd/yyyy)

Philippe