[AC-2007] [Débutant] Formulaire de recherche

[akonate]

Bonjour,
Je me suis basé sur un tutoriel (http://cafeine.developpez.com/access...echerchemulti/) pour concevoir un formulaire de recherche. Ce pendant, quand je clic sur un bouton à cocher, j'ai 2 type d'erreurs:

1- "Erreur d'execution 94" utilisation incorrecte de nulle
2-"Erreur d'exécution 3464" type de données incompatible dans l'expression du critère.
Voici le code:

Code :

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
 
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT SampleID, SampleClass, CollectDateTime, SamplingSession, FROM TbEqsampls Where TbEqsampls!SampleID <> 0 "
 If Me.chkSampleID Then
    SQL = SQL & "And TbEqsampls!SampleID = '" & Me.cmbRechSampleID & "' "
 End If
 If Me.chkSampleClass Then
    SQL = SQL & "And TbEqsampls!SampleClass = '" & Me.cmbRechSampleClass & "' "
 End If
 If Me.chkCollectDateTime Then
    SQL = SQL & "And TbEqsampls!CollectDateTime like '*" & Me.txtRechCollectDateTime & "*' "
 End If
 If Me.chkSamplingSession Then
    SQL = SQL & "And TbEqsampls!SamplingSession like '*" & Me.txtRechSamplingSession & "*' "
 
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 
 Me.lblStats.Caption = DCount("*", "TbEqsampls", SQLWhere) & " / " & DCount("*", "TbEqsampls")
 Me.lstResults.RowSource = SQL
 Me.lstResults.Requery
 
End Sub

[Philippe JOCHMANS]

Bonjour

1 - Le null est mal perçu par le SQL, regardes du coté de la fonction Nz, mais avant trouves quelle valeur de ton formulaire est nulle.

2 - Le champ CollectDateTime est de quel type ? Si c'est une date, il ne faut pas utiliser le Like et il faut des #.

C'est tout ce que je vois pour l'instant.

Philippe