Discussion :

[Meph-Dev]

Bonjour,
Je dois faire un formulaire de Recherche Multi-critères. Pour cela j'ai suivi le tutoriel de Caféine.
Cependant, j'ai une erreur qui apparait :

Erreur d'exécution '2185' :
Impossible de faire référence à une propriété ou de la définir pour un contrôle si ce dernier n'est pas activé.

Et ceci quand je décoche la checkbox correspondant à une txtbox.
Comme les données attendues dans les txtbox sont de types numériques (ici hmt et debit) , j'ai enlevé les ' '.
Quelqu'un aurait-il une idée d'où cela peut venir ?

Merci d'avance.

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
 
Private Sub RefreshQueryPompe()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT [Pompe Centrifuge].* FROM [Pompe Centrifuge] Where [Pompe Centrifuge]!idPompeCentrifuge <> 0"
 If Me.chkHmt Then
    SQL = SQL & " And [Pompe Centrifuge].hmt = " & Me.txtHmtPompe.Text & ""
 End If
 If Me.chkDebit Then
    SQL = SQL & " And [Pompe Centrifuge].debit = " & Me.txtDebitPompe.Text & ""
 End If
 If Me.chkFluide Then
    SQL = SQL & " And [Pompe Centrifuge].fluide = '" & Me.cboFluidePompe & "' "
 End If
 If Me.chkInstallation Then
    SQL = SQL & " And [Pompe Centrifuge].installation = '" & Me.cboInstallationPompe & "' "
 End If
 If Me.chkRoue Then
    SQL = SQL & " And [Pompe Centrifuge].roue = '" & Me.cboRouePompe & "' "
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 MsgBox (SQL)
 Me.lblStatsPompe.Caption = DCount("*", "Pompe Centrifuge", SQLWhere) & " / " & DCount("*", "Pompe Centrifuge")
 Me.lstResultPompe.RowSource = SQL
 Me.lstResultPompe.Requery

[jaffael]

Sais-tu sur lequel des contrôles il plante ? Si, oui peut-être que le fait de donner le focus à ce contrôle avant d'y faire référence résoudra ton soucis.

tu peux faire par

Code :

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

DoCmd.GoToControl "NomControle"

ou

Code :

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

Me.[NomControle].SetFocus

[Meph-Dev]

Merci de ta réponse,

Je crois qu'il plante sur les contrôles txtbox (ici hmt et debit).
J'ai essayé ta technique et l'erreur à changer :

Erreur d'exécution '2108'
Vous devez enregistrer le champ avant d'exécuter l'action AtteindreContrôle, la méthode GoToControl ou la méthode SetFocus.

Et je comprends pas ce que je dois "enregistrer".

Ps: j'ai utilisé SetFocus

[jaffael]

Après relecture de ton code, il me semble que [Pompe Centrifuge] est une table, donc l'accès aux données devrait de faire par "!" et non "."

Code :

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

je comprends pas ce que je dois "enregistrer".

si les données de ton formulaire sont directement liés aux enregistrements de ta table alors tu dois faire un Me.Requery avant pour enregistrer les modifications des champs,

essaye ça, ajoute "Me.Requery" au début de ta procédure

[Meph-Dev]

Merci de ton aide, j'ai réussi à trouver une solution