Discussion :

[Delhia]

Bonjour,

j'ai créée une base de données sous access je voudrai associer à cette base un formulaire de recherche multicritère pour cela j'ai utilisé le Tutoriel Cafeine.

jusque là tout va bien sauf que j'ai un message d'erreur : erreur de compilation membre de méthode ou de données introuvables et là je sèche...

je m'auto forme sous VBA et je bloque voici visiblement la partie qui coince :

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
36
37
38
39
40
41
42
43
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT numchrono, date, service, nomdemandeur, centreprofit, num_imputation, ordre_statistique, ref_dossier_import, num_dec_douane FROM demande_export Where demande_export!numchrono <> 0 "
 
If Not Me.chkNumChrono Then
SQL = SQL & "And demande_export!numchrono = '" & Me.cmbRechNumChrono & "' "
End If
If Not Me.chkDate Then
SQL = SQL & "And demande_export!date like '*" & Me.txtRechDate & "*' "
End If
If Not Me.chkNDDeur Then
SQL = SQL & "And demande_export!nomdemandeur like '*" & Me.txtRechNDDeur & "*' "
End If
If Not Me.chkServ Then
SQL = SQL & "And demande_export!service = '" & Me.cmbRechServ & "' "
End If
If Not Me.chkNumImp Then
SQL = SQL & "And demande_export!num_imputation = '" & Me.cmbRechNumImp & "' "
End If
If Not Me.chkCentreProfit Then
SQL = SQL & "And demande-export!centreprofit = '" & Me.cmbRechCentreProfit & "' "
End If
If Not Me.chkOrdreStat Then
SQL = SQL & "And demande_export!ordre_statistique = '" & Me.cmbRechOrdreStat & "' "
End If
If Not Me.chkDCImport Then
SQL = SQL & "And demande_export!ref_dossier_import like '*" & Me.txtRechDCImport & "*' "
End If
If Not Me.chkDecDouane Then
SQL = SQL & "And demande-export!num_dec_douane like '*" & Me.txtRechDecDouane & "*' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me = DCount("*", "demande_export", SQLWhere) & " / " & DCount("*", "demande_export")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

[faroug]

Bonjour,

peux tu nous préciser la ligne à laquelle l'erreur se produit ?

[Delhia]

Bonjour,

Il manque un morceaux à la fin... c'est sur la 1ere ligne lblStats....

Code :

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

1
2
3
Me.lblStats.Caption = DCount("*", "demande_export", SQLWhere) & " / " & DCount("*", "demande_export")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery