Discussion :

[Nesta92]

Salut à tous,

En fait, j'aimerais faire un truc du style:

==> QUand on clique dans une checkbox, il y a deux trucs différents qui apparaissent (1 cmb et 1txt) pour laisser le choix à l'utilisateur de rechercher soit par mot clé soit dans une liste déroulante.

J'ai essayé ça :
End If
If Not Me.chknom Then
SQL = SQL & "And Entreprises!Nom like '*" & Me.txtnom & "*' "
SQL = SQL & "And Entreprises!Nom = '" & Me.cmbnom & "' "
Mais ça ne marche pas...

Si quelqu'un pouvait m'aider, ça serait super cool !!

Merci

[Nesta92]

Pas de solutions ????

[jean-paul lepetit]

Salut,

pour les faire apparaître

Code :

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

1
2
3
4
If Not Me.chknom Then
   Me.txtnom.Visible=true
   Me.cmbnom.Visible=true
End If

[Nesta92]

Merci pour ta réponse,

Malheureusement, j'avais déjà essayé et ça ne marche pas, enfin ça s'affiche comme il faut mais après, ça n'influence pas les résultats de la requête. En gros si je choisis quelquechose dans l'objet "cmbnom", bah ça ne mets pas le résultat de la requête correspondante dans "lstResults"...

[jean-paul lepetit]

Ok,
je croyais que tu cherchais à afficher ou masquer tes contrôles.


Peut être comme ça, car il faut toujours terminer une instruction SQL par ;

Code :

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

1
2
3
If Not Me.chknom Then
SQL = SQL & "And Entreprises!Nom like '" & Me.txtnom & "*' ;"
SQL = SQL & "And Entreprises!Nom = '" & Me.cmbnom & "' ;"

[Nesta92]

C'est super sympa de m'aider, merci...

Malheureusement, ça ne marche toujours pas

[jean-paul lepetit]

j'ai fait un test avec le générateur de requête

Code :

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

 SQL = SQL & "AND Entreprise.Nom Like " & [Formulaires]![Frm_Test]![TxtNom] & "*;"

[Nesta92]

Mdr,

Toujours pas ...

[FreeAccess]

Bonjour,
Je ne comprends pas vraiment le problème......

QUand on clique dans une checkbox, il y a deux trucs différents qui apparaissent (1 cmb et 1txt) pour laisser le choix

Donc ici pour l'instant tu ne veux faire apparaitre que ta liste déroulante et ta zone de texte...
Le code de jean-paul lepetit sert uniquement à cela:

Code :

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

1
2
3
4
If Not Me.chknom Then
   Me.txtnom.Visible=true
   Me.cmbnom.Visible=true
End If

C'est seulement ensuite, que l'utilisateur fera soit un choix à partir de la liste ou entrera un critère dans la zone de texte.....

..ça n'influence pas les résultats de la requête. En gros si je choisis quelquechose dans l'objet "cmbnom", bah ça ne mets pas le résultat de la requête correspondante dans "lstResults"...

Oui, c'est bien....mais quel est le code associé à ta zone de liste ou à ta zone de texte...
Car c'est maintenant que tu dois gérer cela sur un événement pour mettre le résultat de ta requête à jour....

[Nesta92]

Bonjour et tout d'abord merci.

Actuellement j'ai ça :

Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

SQL = "SELECT code_entreprise, Nom, Pays, Type, Fil_consommé, Fil_distribué FROM Entreprises Where Entreprises!code_entreprise <> 0 "

If Not Me.chkpays Then
SQL = SQL & "And Entreprises!Pays = '" & Me.cmbpays & "' "
End If
If Not Me.chkType Then
SQL = SQL & "And Entreprises!Type = '" & Me.cmbtype & "' "
End If
If Not Me.chkfilconso Then
SQL = SQL & "And Entreprises!Fil_consommé = '" & Me.cmbfilconso & "' "
End If
If Not Me.chkfildistri Then
SQL = SQL & "And Entreprises!Fil_distribué = '" & Me.cmbfildistri & "' "
End If
If Not Me.chknom Then
SQL = SQL & "And Entreprises!Nom like '*" & Me.txtnom & "*' "

End If

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"

'Me.lblStats.Caption = DCount("*", "Entreprises", SQLWhere) & "/" & DCount("*", "Entreprises")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

End Sub

[Nesta92]

Personne pour m'aider ?

Désolé de saouler mais je galère !!

[Nesta92]

Petite question qui me vient,

Comment on fait pour mettre en code l'expression "ou" ==> Choisir entre ça ou ça.

J'ai essayé "Or" et apparament c'est pas ça ...

Merci

[FreeAccess]

Bonjour,

Actuellement j'ai ça :

Ici tu ne nous aide pas beaucoup......
Le code que tu nous montre est simplement une procédure que tu va appeler à chaque modification (mise à jour) d'un contrôle (zone de texte, zone de liste ..) qui va te servir a définir un critère pour la création de ta requête....

D'ou ma réponse précédente.....

Oui, c'est bien....mais quel est le code associé à ta zone de liste ou à ta zone de texte...
Car c'est maintenant que tu dois gérer cela sur un événement pour mettre le résultat de ta requête à jour....

En clair sur événement de chacun de tes contrôles servant à créer ta requête tu dois appeler cette procédure.....