Discussion :

[Jiben59]

Bonjour.

Essaye en ajoutant :

Code :

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

Me.ListeNomSsJrnl.Dropdown

juste après

Code :

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

Me.Modifiable0.RowSource = Me.Modifiable0.RowSource

A+

@marot, bon code fonctionne comme je le souhaite en rajoutant cette partie supplémentaire.

Je te remercie pour ton aide, et de même à Jean pour m'avoir aidé également.

Merci pour votre temps, et de votre patience sur ce problème.

Je vous souhaite une bonne journée à vous.

Bien cordialement,
Benjamin.

[marot_r]

Bonjour.

Si tu considères le sujet clos, merci d'appuyer sur le bouton en bas de la discussion.

A+

[jj4822]

Dans une liste d'un formulaire Access, il est normal d'avoir tous les mots proposes meme si on a saisie une lettre. Access affiche le 1er mot qui correspond au critere, les autres mots, meme ceux ne commencant pas par la lettre concernee sont visibles.

Ce n'est qu'en quittant la liste que le programme s'execute en faisant comme je l'ai propose (enter). Sauf a mettre le programme VBA sur l'action entrée ou quelque chose comme ca ou a faire ce qu'a propose marot_r.


A+.
Jean

[marot_r]

Bonjour.

Dans une liste d'un formulaire Access, il est normal d'avoir tous les mots proposes meme si on a saisie une lettre. Access affiche le 1er mot qui correspond au critere, les autres mots, meme ceux ne commencant pas par la lettre concernee sont visibles.

Pour info, on peut empécher cela en mettant la propriété Auto Étendre à faux.
Dans ce cas là Access ne complète plus automatiquement les lettres tapées par le 1er mot qui correspond.

A+

[jj4822]

Bonjour.

Merci pour l'info.

Cdlt,
Jean

[Jiben59]

Bonjour,

je voulais savoir, est-ce que l'on peut appliquer une telle recherche sur un champs d'une table, et non sur une liste déroulante d'un formulaire ?
Par exemple, lors d'un enregistrement dans la table mouvement je dois indiquer le numéro de chèque enregistrer dans la ta table mouvements.

Merci pour votre réponse.

Bon week-end à vous.

Bien cordialement,
Benjamin.

[marot_r]

Bonjour.

Les tables ne sont pas des objets d'interface et ne devraient pas servir à faire de la saisie donc la réponse courte est "Non".
Il est préférable d'utiliser un formulaire qui te donne bien plus de contrôles aussi bien sur les actions que sur l'affichage.

La réponse "utile", maintenant `-), est que tu peux utiliser les filtres qui sont accessibles sur le clique droit dans un champ.
Cela va te permettre de "réduire" le nombre d'enregistrements affichés.

A+

[Jiben59]

Bonjour.

Les tables ne sont pas des objets d'interface et ne devraient pas servir à faire de la saisie donc la réponse courte est "Non".
Il est préférable d'utiliser un formulaire qui te donne bien plus de contrôles aussi bien sur les actions que sur l'affichage.

La réponse "utile", maintenant `-), est que tu peux utiliser les filtres qui sont accessibles sur le clique droit dans un champ.
Cela va te permettre de "réduire" le nombre d'enregistrements affichés.

A+

Salut marot,

j'utilise bien un formulaire pour enregistrer mes mouvements.

J'ai inséré deux codes :
- le SQL :

Code :

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

1
2
3
SELECT Cheques.Paiement, Cheques.NumChq
FROM Cheques
WHERE (((Cheques.NumChq) Like "*" & [Forms]![Mouvements par journal].[NumChq].[Text] & "*"));

- le VBA :

Code :

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

1
2
3
4
Private Sub NumChq_Change()
 Me.NumChq.RowSource = Me.NumChq.RowSource
    Me.NumChq.Dropdown
End Sub

Le but c'est qu'il y a de multiples chèques dans la base donc quand je veux le rattacher aux mouvements il faut le choisir via une liste déroulante reliée à la table chèques.
- Capture d'écran du formulaire :


Le but est de faire comme dans ma liste de déroulante des sous-journaux, que si je tape trois chiffres, il me sort les chèques contenant au moins les trois chiffres notés.
Et là le problème viendrait apparemment du SQL.

Encore merci pour l'aide.

Bien cordialement.
Benjamin.

[marot_r]

Bonjour.

Je ne vois pas d'erreur.

1. Met un point d'arrêt sur Me.NumChq.RowSource = Me.NumChq.RowSource.
2. Taper sur [ctrl][g] pour passer dans la fenêtre d'éxécution immédiate.
3. Tape ? Me.NumChq.RowSource[enter].
4. Sélectionne et copie le SQL affiché puis colle le dans une requête.
5. Demande à voir le résultat.

Cela devrait te donner une piste.

A+

[Jiben59]

Bonjour.

Je ne vois pas d'erreur.

1. Met un point d'arrêt sur Me.NumChq.RowSource = Me.NumChq.RowSource.
2. Taper sur [ctrl][g] pour passer dans la fenêtre d'éxécution immédiate.
3. Tape ? Me.NumChq.RowSource[enter].
4. Sélectionne et copie le SQL affiché puis colle le dans une requête.
5. Demande à voir le résultat.

Cela devrait te donner une piste.

A+

Salut marot,

j'ai essayé de suivre les manipulations, et lorsque je fais exécuter le SQL, j'ai ce message suivant :


Je n'arrive pas à comprendre le problème du code SQL.

Bien cordialement,
Benjamin.

[marot_r]

OK, Access ne voit pas ton formulaire ou son champ ou sa propiété.

Essaye les trucs suivants :

1. Remplace le . par ! entre le nom du formulaire et le nom du champ.
2. Supprime le .Text et vérifie si tu obtiens un résultat (même toute la liste).
3. Si rien ne donne de résultat, il va sans doute falloir coder le SQL dans le VBA.
   

   Code :

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

   1
   2
   3
   4
   5
   dim SQL as string
   sql="SELECT Cheques.Paiement, Cheques.NumChq"
   sql = sql & " FROM Cheques"
   sql = sql & " WHERE (((Cheques.NumChq) Like ""*" & me.[NumChq].[Text] & "*"""));
   Me.NumChq.RowSource=sql

A+

[Jiben59]

OK, Access ne voit pas ton formulaire ou son champ ou sa propiété.

Essaye les trucs suivants :

1. Remplace le . par ! entre le nom du formulaire et le nom du champ.
2. Supprime le .Text et vérifie si tu obtiens un résultat (même toute la liste).
3. Si rien ne donne de résultat, il va sans doute falloir coder le SQL dans le VBA.
   

   Code :

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

   1
   2
   3
   4
   5
   dim SQL as string
   sql="SELECT Cheques.Paiement, Cheques.NumChq"
   sql = sql & " FROM Cheques"
   sql = sql & " WHERE (((Cheques.NumChq) Like ""*" & me.[NumChq].[Text] & "*"""));
   Me.NumChq.RowSource=sql

A+

Marrot, alors la liste s'affiche lorsqu'on enlève .Text mais on ne peut plus entrer de valeur dans la cellule du coup.

Du coup j'ai inséré le code directement dans l’événement sur changement :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub NumChq_Change()
 Dim SQL As String
SQL = "SELECT Cheques.Paiement, Cheques.NumChq" & _
      " FROM Cheques" & _
      " WHERE (((Cheques.NumChq) Like " * " & me.[NumChq].[Text] & " * ")));"
Me.NumChq.RowSource = SQL
End Sub

Par contre dès que j'entre un caractère j'ai ce message qui s'affiche en mettant une flèche jaune sur le Where :


Merci de ton aide.

Bien cordialement,
Benjamin.

[marot_r]

Bonjour.

Essaye :

Code :

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

" WHERE (((Cheques.NumChq) Like ""*" & me.[NumChq].[Text] & "*"")));"

A+

[Jiben59]

Bonjour.

Essaye :

Code :

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

" WHERE (((Cheques.NumChq) Like ""*" & me.[NumChq].[Text] & "*"")));"

A+

Bonjour marot,

ceci me vide complétement ma liste de valeurs.

C'est vraiment bizarre que pour celui-ci le code ne fonctionne pas..

Merci pour votre aide.

Bien cordialement,
Benjamin.

[marot_r]

Ta BD est vraiment étrange.

1. Met un point d'arrêt sur Me.NumChq.RowSource=sql.
2. Taper sur [ctrl][g] pour passer dans la fenêtre d'éxécution immédiate.
3. Tape ? sql[enter].
4. Regarde ce que cela te donne.
5. si tu ne vois rien de particulier, sélectionne et copie le SQL affiché puis colle le dans une requête.
6. Demande à voir le résultat.

A+

[Jiben59]

Ta BD est vraiment étrange.

1. Met un point d'arrêt sur Me.NumChq.RowSource=sql.
2. Taper sur [ctrl][g] pour passer dans la fenêtre d'éxécution immédiate.
3. Tape ? sql[enter].
4. Regarde ce que cela te donne.
5. si tu ne vois rien de particulier, sélectionne et copie le SQL affiché puis colle le dans une requête.
6. Demande à voir le résultat.

A+

Bon je l'ai essayé directement le code sur ma vraie basse.

Sache que la requête SQL fonctionne car elle m'affiche à chaque tous les chèques.

Donc j’ai exécuté ta procédure, voici le message qui ressort :


Pour information, la propriété de données :


En espérant que l'on y arrive.

Merci pour ton aide.

Bien cordialement,
Benjamin.

[tee_grandbois]

Bonsoir,
il faut taper ? Sql mais pas [enter] car cela indique qu'il faut appuyer sur la touche entrée.
Dans le SQL il faut enlever une parenthèse qui est en trop à la fin :

Code :

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

SQL = SQL & " WHERE (((Cheques.NumChq) Like ""*" & Me.[NumChq].[Text] & "*""));"

[Jiben59]

Bonsoir,
il faut taper ? Sql mais pas [enter] car cela indique qu'il faut appuyer sur la touche entrée.
Dans le SQL il faut enlever une parenthèse qui est en trop à la fin :

Code :

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

SQL = SQL & " WHERE (((Cheques.NumChq) Like ""*" & Me.[NumChq].[Text] & "*""));"

Bon, bonne nouvelle le code fonctionne, sauf qu'il n’actualise pas les informations en temps réel, il s'actualise seulement quand je clique sur la flèche de la liste déroulante (capture 2 partie en jaune).

Code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub NumChq_Change()
Dim SQL As String
    SQL = "SELECT Cheques.Paiement, Cheques.NumChq"
    SQL = SQL & " FROM Cheques"
    SQL = SQL & " WHERE (((Cheques.NumChq) Like ""*" & Me.[NumChq].[Text] & "*""));"
        Me.NumChq.RowSource = SQL
        Me.NumChq.Dropdown
End Sub

Alors voici ce qui se passe lorsque j’insère des chiffres, à vrai dire par grand chose :


Et lorsque que je clique sur la flèche, le code s’actualise :


Avez vous une solution pour corriger ce problème svp ? En sachant que j'ai désactivé l'auto étendre dans la feuille de propriété.

Merci pour vos aides.

Bien cordialement,
Benjamin.

[Jiben59]

Bon, bonne nouvelle le code fonctionne, sauf qu'il n’actualise pas les informations en temps réel, il s'actualise seulement quand je clique sur la flèche de la liste déroulante (capture 2 partie en jaune).

Code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub NumChq_Change()
Dim SQL As String
    SQL = "SELECT Cheques.Paiement, Cheques.NumChq"
    SQL = SQL & " FROM Cheques"
    SQL = SQL & " WHERE (((Cheques.NumChq) Like ""*" & Me.[NumChq].[Text] & "*""));"
        Me.NumChq.RowSource = SQL
        Me.NumChq.Dropdown
End Sub

Alors voici ce qui se passe lorsque j’insère des chiffres, à vrai dire par grand chose :


Et lorsque que je clique sur la flèche, le code s’actualise :


Avez vous une solution pour corriger ce problème svp ? En sachant que j'ai désactivé l'auto étendre dans la feuille de propriété.

Merci pour vos aides.

Bien cordialement,
Benjamin.

Bonjour la communauté,

j'essaie de résoudre ce problème mais je n'ai toujours pas trouvé de solution.

Pourriez-vous essayer de m'aider afin de résoudre ce problème qui ne tiens pas à grand-chose je pense.

Un exemple de ma base si vous le souhaitez :
https://we.tl/id2jRBLEja

Merci d'avance pour votre aide.

Bien cordialement,
Benjamin.

[Jiben59]

Bonjour,

alors je viens de comprendre pourquoi le code ne fonctionne pas.

Vu que l'on est sur un formulaire de type feuille de données, l'actualisation ne fonctionne pas mais si on est en formulaire continu, l'actualisant fonctionne.

Donc je vais passer par un formulaire de type continu.

Merci pour votre aide.

Bien cordialement.