Discussion :

[Goose-]

Bonjour,

Je suis un bleu sous Access et je ne connais rien en VB ... :-(

J'ai créé une table "T_Clients" avec ses différents champs et un formulaire "F_Client" qui reprend les champs de "T_Clients".

Quand j'ouvre F_Client, je vois mon premier client et la flêche me permet de naviguer sur les prochains ou les précédents.

Alors j'aimerai créer un formulaire qui me demande la personne à rechercher par son nom et qui m'ouvre le formulaire "F_Client" sur la personne recherchée afin de modifier sa fiche.

Merci d'avance pour votre aide

[marot_r]

Une solution simple consiste a utiliser une liste déroulante qui présente la liste des noms.

• Cette liste (ListeNom) comporte 2 colonnes : la clef de ton client (ClefClient) et le nom du client (NomClient).
• La 1ère colonne a une largeur de 0 ce qui fait que la liste n'affiche que le nom mais que la clef est quand même disponible.
• Puis sur l'événement AprèsMAJ créer la procédure événementielle et mettre :
  

  Code :

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

  docmd.OpenForm "NomTonFormClient",,,"[ClefClient]=" & Me.ListeNom

A+

[Goose-]

Bonjour et merci,

Mais ou et comment puis-je utiliser ce code ?

[marot_r]

1. Tu crées ta liste déroulante telle que décrit précédement
2. Tu vas sur les propriétés de la liste
3. Tu choisi l'événement Après MAJ
4. Tu choisi 'procédure événementielle'
5. Tu clique sur le bouton [...]
6. Access te crée un squelette de procédure
7. Tu mets le code dans le squelette. Évidement il faut remplacer NomTonFormClient et ClefClient par ce que tu as utilisé dans ton application.

Note j'ai supposé que ta clefClient était un nombre, si c'est un texte il faut mettre

Code :

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

docmd.OpenForm "NomTonFormClient",,,"[ClefClient]=""" & Me.ListeNom & """"

A+

[Goose-]

Je ne m'en sors pas trop mais j'avais prévenu que je n'étais qu'un starter.

Je souhaite donc que lorsque j'encode le nom dans le champs de recherche, il m'ouvre le formulaire "F_ModifierClient" sur la bonne personne.

J'ai suivi à la lettre le code mais j'ai un message d'erreur et m'ouvre le deboger :

Erreur de compilation

Membre de méthode ou de données introuvable

Private Sub Modifiable4_AfterUpdate() est lui surligné en jaune.

En fait le nom a rechercher est dans T_Clients et la fenêtre à ouvrir est F_ModifierClient

[marot_r]

Peux-tu poster le code associé à l'événement after update ?

Aussi il serait bon de donner à ta liste un nom significatif, modifiable4 ce n'est pas très parlant.

Normalement cela devrait ressembler à :

Code :

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

1
2
3
private sub NomTaListe_AfterUpdate()
   docmd.OpenForm "F_ModifierClient",,,"[ClefClient]=""" & Me.NomTaListe & """" 'Si clef client est un texte
end sub

La table T_Client est très probablement la source de F_ModifierClient, et le 4ième paramètre de OpenForm met un filtre sur la source de données donc il ne va ouvrir le formulaire qui n'affichera que le client choisi.

A+

[marot_r]

Autre question, as-tu bien une liste qui affiche la clef et le nom de tes clients ?

A+

[Goose-]

Autre question, as-tu bien une liste qui affiche la clef et le nom de tes clients ?

A+

Dans T_Clients j'ai bien un champs T_Client en NuméroAuto et un autre NomClient en Texte pui tous les autres : adresse, numéro, CP, ville, etc...

C'est vrai que ce qui me bloque c'est [ClefClient], je ne sais que mettre ...

Maintenant, plusieurs formulaires sont issus de T_Client donc lequel va-t'il prendre ? (F_ChercherClient, F_ModifierClient, F_listerClients, etc...)

[marot_r]

Le formulaire sera : F_ModifierClient

Code :

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

docmd.OpenForm "F_ModifierClient",,,"[T_Client]=""" & Me.NomTaListe & """" 'Si clef client est un texte

Il est recommandé de ne pas nommer un champ du même nom que la table, cela rend le code moins lisible car il n'est pas toujours évident de déterminer si l'oppération s'effectuer sur la table ou sur le champ. Ne change pas forcément tout si tu as beaucoup de chose qui en dépende mais penses-y pour la prochaine BD.

Pour les clefs primaires une convention classique est de mettre ID_NomTable (ex ID_Client) personnellement je préfère ClefClient mais c'est juste ma préférence, pas une norme.

A+

[marot_r]

Au fait lis-tu l'anglais ?

A+

[Goose-]

Le formulaire sera : F_ModifierClient

Code :

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

docmd.OpenForm "F_ModifierClient",,,"[T_Client]=""" & Me.NomTaListe & """" 'Si clef client est un texte

Il est recommandé de ne pas nommer un champ du même nom que la table, cela rend le code moins lisible car il n'est pas toujours évident de déterminer si l'oppération s'effectuer sur la table ou sur le champ. Ne change pas forcément tout si tu as beaucoup de chose qui en dépende mais penses-y pour la prochaine BD.

Pour les clefs primaires une convention classique est de mettre ID_NomTable (ex ID_Client) personnellement je préfère ClefClient mais c'est juste ma préférence, pas une norme.

A+

C'est exactement ce que j'ai fait, mais je n'ai aucun résultat ...
La liste s'affiche mais qd j'encode un nom, rien ... même pas un code d'erreur.

Oui je lis l'anglais dans la limite de mes moyens

[torkal27]

S' il ne se passe rien, la macro ne s'exécute pas.... si le nom du contrôle (liste déroulante) à été changé il faut aussi changer le nom de la macro faisant référence au contrôle...
A vérifier

[marot_r]

On va essayer d'y voir un peu plus clair.

Peux-ajouter l'instruction :

Code :

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

msbox "[T_Client]=""" & Me.NomTaListe & """"

juste avant ton DoCmd.OpenForm.

À l'exécution, cela va t'afficher ce que Access voit maintenant et devrait nous donner une piste de solution.

A+