recherche dans une table via formulaire [Résolu]

[kbahj]

Bonjour,

J'essaye depuis un formulaire access de créer un bouton afin de charger les
information en provenance d'une table client.
Concrètement dans la table client, j'ai 4 champs A,B,C,D.
Dans le formulaire, j'ai la possibilité de fournir le champ A dans une zone.
J'aimerai savoir si c'est possible de retrouver les informations B,C,D en cliquant sur un bouton OK.
Les informations retournées devront se trouver eux aussi dans des zones du formulaire est non dans une table.
Un grand merci pour votre aide.

[Dolphy35]

Bonjour,

Je t'invite à consulter les différents tutoriels permettant de faire cela.
http://access.developpez.com/cours/?...#formrecherche

Dolphy

[kbahj]

Bonjour Dolphy,

J'ai lu mais vu la faible connaissance que j'ai d'access, je suis un peu perdu.
Est-il possible de me mettre un peu sur le chemin ?
Je t'en remercie d'avance.
Bàv,

[Philippe JOCHMANS]

Bonjour

Les tutos que l'on t'a conseillé sont clairs et présentent l'évolution de la construction de ces formulaires étapes par étapes.

Il faudrait dire où tu coinces et donner plus de détails.

Philippe

[kbahj]

Bonjour,

Merci pour vos réponses.

Pour mettre le problème dans son contexte :
J'ai une table avec plus de 2000 enregistrements.
La table contient 4 champs à savoir numéro ID, nom, adresse, localité.
J'arrive bien à construire le formulaire qui me montre chaque enregistrement.
Donc pas de soucis à ce niveau la.

Ce que je voudrais faire:
Sur le formulaire, j'aimerais que lorsque je change le numéro ID (manuellement) automatiquement (en appuyant sur un bouton de commande OK) les autres champs nom, adresse, localité s'auto-update.

Comme j'ai plus de 2000 enregistrements, je me vois mal faire une liste sur le numéro ID (comme c'est souvent le cas dans les tutos), j'aimerai un textbox.

Je sais que c'est possible à faire mais mon soucis et que mes connaissances en VBA sont pas bon .

Si quelqu'un pouvait au moins me dire comment commencer le code cela serait gentil.

C'est une question qui revient souvent dans les forums mais apparemment difficile à résoudre.

Merci d'avance pour votre aide.

[Dolphy35]

Salut,

Sur le tutoriel de loufab tu trouveras un exemple qui peut t'intéresser, il y a une zone de texte avec un bouton rechercher. Le but est d'afficher le résultat dans des champs indépendants ?

Dans ce cas tu as deux possibilités, si ton formulaire est basé sur la table comme source, tu peux effectuer un filtre sur le formulaire.

Code :

1
2
Me.Filtre
Me.FilterOn

Comment filtrer un formulaire à partir d'une valeur contenue dans une variable ?

Sinon il faut jouer avec les Recordset.
Création et manipulation des données avec DAO

Quel choix opte tu ?

Dolphy

[kbahj]

Salut,

Tout d'abord un grand merci pour votre aide.
Je viens de m'inscrire (y a 1 jour sur ce forum) et je ne m'attendais pas à avoir
un tel support.
Pour répondre à la question, oui mon formulaire est basé sur une table source T_client.
Je vais creuser la 1ere possibilité et voir si j'obtiens ce que je souhaite comme résultat.
Un tout tout grand merci pour votre aide.
Bonne soirée à vous,

[kbahj]

Bonjour à tous,

Voilà j'ai essayé de faire ce filtre mais malheureusement, je n'y arrive toujours pas .

Pour faire le test j'ai utilisé une petite table T1 de 5 enregistrements avec comme champs: id, nom, prenom, age

J'ai bien réussi à faire le formulaire (avec les informations) en colonne.

Sur le formulaire, j'ai ajouté un textbox et un petit bouton de commande, le but étant de chargé l'enregistrement en fonction de ce que j'écris dans le textbox.
si dans le textbox = 1 alors je charge l'enre. avec l'id =1 de la table
si dans le textbox = 2 alors je charge l'enre. avec l'id = 2 de la table
ici id = clé primaire de la table.

Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub bt_Click()
On Error GoTo Err_Commande10_Click
 
 If IsNull(idnr) Then          -- ici idnr c'est le nom du textbox
  Me.Filter = ""
  Me.FilterOn = False
 Else
 Me.FilterOn = "[id]=""&idnr &"""
 Me.FilterOn = True
 End If
 
Exit_Commande10_Click:
    Exit Sub
 
Err_Commande10_Click:
    MsgBox Err.Description
    Resume Exit_Commande10_Click
 
End Sub

Quand j'appuye sur le bt, j'ai une du style type incomptatible :

Comme je ne suis pas programmeur, je fais appelle a votre aide.

Merci d'avance.

[kbahj]

Est-ce un problème si j'utilise un integer (dans mon cas ici l'id )comme clé de recherche ?
Pour que cela fonctionne puis-je mettre integer dans un textbox ?

[Dolphy35]

Slaut,

Bien sur
par contre tu traite ton filtre comme un chaîne de caractères, enlève les double quotes.
Sinon il faut charger ton filtre dans Filter et non FilterOn

Code :

Me.Filter = "[id]=" & idnr

Dolphy

[kbahj]

Salut Dolphy,

YES , c'est OK, ça fonctionne .
Je remercie tout le monde ici pour l'aide apporter.
Je n'aurai jamais su faire cela sans votre support.
C'est mon premier petit bout de code en VBA (depuis mon cursus en COBOL dans les années 80).
Il me reste plus qu'a découvrir ce merveilleux langage qu'est le VBA.
Encore une fois un tout grand merci et bonne journée à tous.