[VB6] Module de classe ( et Form )

Bonjour

J'ai un projet a faire, qui gére une base de données. Je n'ai pas encore accés a la base de données.
Habituellement, je travail sur des petites bases de données Access, avec de simples requêtes dans le module du programme même.
( rc.open....rc.close ... enfin bref, le truc simple et classique )

La je me vois dans l'obligation d'utiliser des Modules de classes.
Ces modules sont crées, et j'ai déja pu renseigner une partie sous cette forme :

Module de Classe Client :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim clt_num As Integer Dim clt_nom As String [...] _________________   Function Information_clt_num() As Integer Information_clt_num = clt_num End Function   Function Information_clt_nom() As String Information_clt_nom = clt_nom End Function [...]

---

Bon le soucis, c'est que je ne sais pas du tout tiliser ces modules de classe. J'imagine que la Function va servir a simplifier les choses en permettant de le repeter sur les autres modules de classe.

J'ai commencer a lire les ( long ) tuto sur les module de classe, si quelqu'un a des suggestion, explications, information, exemples... je suis vraiment preneuse.

Comment faire une requete avec ce genre de module de classe ?
( je dois mettre quoi sur mon bouton " Recherche " pour faire une requete de lecture, et quoi dans le module de classe ?

Merci

Bonjour,

Il est préférable d'utiliser les propriétés pour accéder aux données.
Les méthodes (function ou sub) pour les actions.

Code:

---

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 29 30 31 32 33 34

private clt_num As Integer private clt_nom As String [...] _________________   ' Place (affecte) la valeur dans la variable locale clt_Num Public Property Let Information_clt_num(ByVal iDonnees As Integer) clt_num = iDonnees End Property   ' Donne (renvoie) la valeur de la variable locale clt_Num Public Property Get Information_clt_num() As Integer Information_clt_num = clt_num End Property   Public Property Let Information_clt_nom(ByVal sDonnees As String) clt_nom = sDonnees End Property   Public Property Get Information_clt_nom() As String Information_clt_nom = clt_nom End Property [...] _________________ public Function ChargeListe([...]) as integer ' pourra renvoyer un numéro d'erreur en cas d'echec [...] End Function   ' ===== Initialisations ===== est executé lors de la création de la classe Private Sub Class_Initialize() ' init des variables clt_num = 0 clt_nom = "" End Sub

---

Quelle est la base de données ?
Et surtout comment souhaites-tu y accéder ? (à travers les composants d'accès BdD ou avec du SQL pur)
Dans quel but la classe, seulement pour ajouter et modifier (insert, update) ?

Pour la programmation c'est la même chose qu'un module sauf que tu accédes à travers la variable de ta classe.

Ex de classe
http://www.developpez.net/forums/sho...iliser+classes

A+, Hervé.

Je fais l'interface sous VB.

La base de données est actuellement en fichier Excel, sur un autre PC ( comprendre par la que je n'y ai pas encore accés ), et est destiné a être transferée sur d'autres supports, dans un futur proche.


Pour acceder a la base de données, j'ai déjà crée les modules. Ces modules servent a la fois de Création de .ini et de connexion a la bdd.

La connexion se fait ( petit bout du code ) de cette facon :

Code:

---

1 2 3 4 5

Set BDD = New ADODB.Connection BDD.provider = "Microsoft.jet.oledb.4.0" BDD.connectionString = BDD_HDD End Sub

---

Les but de la classe ? Je veux pouvoir :

- Consulter ( requete surla base de donées )
- Ecrire ( et donc updater )


_________________________________________________________

Bon ensuite, j'aimerai qques eclaircissements sur ton code :

Code:

---

1 2 3

Public Property Let Information_clt_num(ByVal iDonnees As Integer) clt_num = iDonnees End Property

---

Ca sert a quoi concrétement ca ? lui expliquer que clt_num est en fait iDonnees ?

En tout cas, merci pour ce debut de reponse.

Je vais prendre la 2ème variable pour expliquer avec une comparaison.

Dans une classe nous n'accèdons pas directement aux variables,

Code:

---

1 2	' clt_nom est inaccessible en dehors de la classe private clt_nom As string '

---

nous passons à travers les propriétés pour connaître sa valeur ou lui attribuer une valeur.


Attribuer une valeur :
La valeur contenue dans le paramètre sDonnees sera placé dans clt_nom.

Code:

---

1 2 3 4

' Place (affecte) la valeur dans la variable locale clt_Nom Public Property Let Information_clt_nom(ByVal sDonnees As String) clt_nom = sDonnees End Property

---

Récupérer la valeur :
Ici nous récupérons la valeur de clt_nom

Code:

---

1 2 3 4

' Donne (renvoie) la valeur de la variable locale clt_Nom Public Property Get Information_clt_nom() As String Information_clt_nom = clt_nom End Property

---

Pour que cela soit un peu plus concret c'est comme un composant vb
ex: comparons avec une textbox.

Code:

---

1 2 3 4

'Quand tu fais MaClasse.Information_clt_nom = "Lyraaa" 'c'est équivalent à MaTextBox.text = "Lyraaa"

---

vb appele la propriété => Public Property Let Information_clt_nom(ByVal sDonnees As String)
avec "Lyraaa" comme valeur du paramètre "sdonnees"
La ligne clt_nom = sDonnees place "Lyraaa" dans clt_nom

Code:

---

1 2 3 4

'Quand tu fais UneVarChaine = MaClasse.Information_clt_nom '=> (UneVarNum vaut "Lyraaa") 'c'est équivalent à UneVarChaine = MaTextBox.text '=> (UneVarChaine vaut "Lyraaa" )

---

vb appele la propriété => Public Property Get Information_clt_nom() As String
La ligne Information_clt_nom = clt_nom donne "Lyraaa" à la propriété qui la renvoie, et ensuite est affecté à UneVarChaine.


La valeur integer clt_num fonctionne sur le même principe, mais la comparaison était plus explicite avec la valeur string clt_nom.
Voila tu vas pouvoir étudier les tutos pour approfondir. ;)

---------------------------------

Je n'ai jamais accédé à excel de cette façon, je ne pourrai peut-être pas répondre à toutes tes questions.


La voie sur laquelle tu t'engages risque peut-être d'être longue à mettre en oeuvre.

Il est peut-être préférable de gérer la base de données avec Access comme tu as l'habitude de faire, et d'effectuer des extractions vers Excel.
C'est juste un conseil, je ne connais pas les contraintes qui ont abouties à ce choix, mais il me semble que ce serait plus judicieux, surtout si tu as un grand volume de données.


Une question tout de même.
Si tu utilises les composants d'accés aux données, avec les feuilles d'Excel contenant des données brutes dans les colonnes, Est-ce que tu peux voir les feuilles comme des tables de BdD ?
Si oui, tu peux faire comme avec access, sinon ce sera délicat.

A+, Hervé.

Bonjour

merci pour cette interessante et enrichissante réponse :)

Desormais, je comprends mieux le but de ce bout de code.

Malheureusement, pour la gestion de la BDD, ce n'est pas un choix qu'on me laisse, mais une obligation.

Je n'ai pas compris ta derniere question, mais non, j'ai pas accés a la base de données. Le fichier excel contenant toutes les info se trouve sur un autre pc.
J'utilise juste VBA de Excel ( qui, sans base de données, est = a VB6 ).

Mon second probleme, c'est que je ne sais pas comment ordonner tout ca :

j'ai :

• - 6 Forms
• - 4 modules de classes
• - 3 modules
• - Et 3 tables principales dans Access

- Les modules, sont juste les modules de conexion, pas de soucis avec.

Pour mes tables j'ai : Client - Entreprise - Courtier
Module de classe : Client - entreprise - courtier ( avec la declaration de variable de chaque champs : nom, prenom, age...)

LEs 6 form, correspondent a :
- rechercher une fiche client
- Ajouter un client
- rechercher une fiche entreprise
- Ajouter une entreprise
- rechercher un courtier
- Ajouter un courtier

Si j'avais eu directement la BDD sous Access, j'aurais écris la Requête de lecture ( rc.open......) sur le bouton " rechercher " et fait prendre un label, la valeur trouvée.

Le soucis, c'est que la, on m'a obligé a utiliser des " Modules de classes ",et j'imagine que si on me les a fait créer, c'est pour les utiliser.

Je ne sais pas dans quel ordre je dois agencer mon programme, a cause de ces module de classe. Un exemple : la recherche d'un client.

- Une Inputbox demande " tapez le nom du client recherché " Bon la déja, je ne sais pas ou je dois stocker cette info, ni ou et quand ouvrir le recordset ( sur la Form ? le module de classe ? )

- Une fois le client trouvé, je ne sais pas comment dire : " toutes les info trouvé sur le client, doivent être stocké dans le module de classe "

etc etc

Pour resumé, j'ai du mal a me servir des modules de classe :/

Bonjour,

Citation:

---

Je n'ai pas compris ta derniere question, mais non, j'ai pas accés a la base de données. Le fichier excel contenant toutes les info se trouve sur un autre pc.
J'utilise juste VBA de Excel ( qui, sans base de données, est = a VB6 ).

Mon second probleme, c'est que je ne sais pas comment ordonner tout ca :

j'ai :
- 6 Forms
- 4 modules de classes
- 3 modules
- Et 3 tables principales dans Access

---

Si je comprend, les données sont actuellement sur excel (inaccessible), mais dans le futur elle seront sous access. Ai-je bien compris?

Je continu de regarder, je poste un peu plus tard.

A+, Hervé.

Citation:

---

Envoyé par lyraaa

up

---

Prière d'éviter ce genre de message. Personne n'est à ton service pour commencer et si personne ne répond c'est que personne ne connait la solution.

CE FORUM N'EST PAS UN SUPERMARCHE !

Cordialement

Voici un exemple approchant de ton besoin
Il ne fonctionnera pas directement, mais tu as le principe.

Dans ton module de classe ta fonction de recherche

Code:

---

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 29

Private rstLigneTable As Recordset ' espace d'ensemble de ligne d'un résultat de requete   Public Function RechercheClient(ByVal sNom As String) As Boolean Dim sRequete As String RechercheClient = False ' construction requete sRequete = "select * from client where nom='" & sNom & "'" 'ouverture recordset Set rstLigneTable = BDD.OpenRecordset(strChaineRequete, [...]) ' récupère les lignes résultant, dans un objet ensemble de ligne. ' -- ligne présente ? If Not rstLigneTable.EOF Then RechercheClient = True ' -- place les info dans chaque variable clt_num = Trim(rstLigneTable.Fields(0).Value) 'la première colonne clt_nom = Trim(rstLigneTable.Fields(1).Value) 'la 2ème colonne '... End If rstLigneTable.Close 'ferme l'objet ensemble de ligne End Function   Public Function MiseAJourClient() As Boolean MiseAJourClient = False ' construction requete sRequete = "Update ... where clt_num_enbase = " & clt_num ' execution requete ' TonQuerydefRequete.SQL = sRequete ' la requete à effectuer ' TonQuerydefRequete.Execute ' execute la requete 'si ok => MiseAJourClient=true End Function

---

Dans ton fomulaire sur les boutons

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub cmdRechercher_Click()   If LaClasse.RechercheClient(InputBox("Saisissez le nom du client :", "client")) Then ' trouvé, affiche txtNomClient.Text = LaClasse.information_clt_nom [...] Else MsgBox "Pas de client." End If   End Sub   Private Sub cmdMiseAJour_Click() ' note les modif LaClasse.information_clt_nom = txtNomClient.Text [...] ' enregistre en base If Not LaClasse.MiseAJourClient Then MsgBox "Erreur mise à jour base de données." End If   End Sub

---

Le problème de la recherche par le nom est que si tu as plusieurs clients avec le même nom il faut le gérer.
Il serait préférable de rechercher par l'identifiant

Une solution, si tu en as plusieurs tu propose une liste de choix.
Ensuite tu charges le client.


Si tu as l'habitude de procéder différemment dans les interrogations de la base prend en compte seulement le principe et fait comme tu fais d'habitude.

Merci de ne pas faire de up par courtoisie envers les autres utilisateurs.
A+, Hervé.

La Praline > Oula pas la peine de s'énerver 8O

Un up ca sert juste a remonter le topic hein... pas a forcer une reponse...

Citation:

---

si personne ne répond c'est que personne ne connait la solution.

---

D'aprés la reponse qui precede la tienne, faut croire que si....

@ Rv26t : Waouh merci :king:

C'est exactement ce qu'il me fallait ! trés clair, parfait.

Sinon oui, j'avais justement pensais a ce probleme d'homonyme.
Mais peut on faire une recherche par l'identifiant alors que les clients n'ont, à l'origine, pas de numéro ? dois je leur en attriubuer un d'office ?

Sinon j'avais prévu une autre solution, peux tu me donner ton avis sur sa faisabilité ? : Lorsque l'on entre le nom, si il y a un homonyme, alors une nouvelle inputbox apparait afin de demander un autre renseignement.

Edit : Aprés une relecture de ton code, quelques questions me viennent :

En utilisant ce code, tout ce que j'ai declaré

Code:

---

1 2 3 4 5 6 7 8

Function Information_clt_nom() As String Information_clt_nom = clt_nom End Function   Function Information_clt_prenom() As String Information_clt_prenom = clt_prenom End Function [...]

---

Et toute la phase d'initialisation, ca ne sert plus à rien ?

-

Code:

---

1 2	clt_num = Trim(rstLigneTable.Fields(0).Value) 'la première colonne clt_nom = Trim(rstLigneTable.Fields(1).Value)

---

je n'ai pas trés bien compris le but de .Fields

En gros ca recherche le nom du client sur plusieurs colones ? pourtant je n'ai qu'une colone avec les noms de clients !?

et derniere chose :

(strChaineRequete, [...]) > qu'entends tu part [...] ?

Bonjour,

Citation:

---

Envoyé par lyraaa

La Praline > Oula pas la peine de s'énerver 8O

---

Je n'étais pas énervé rassures-toi.;)

Citation:

---

Envoyé par lyraaa

Un up ca sert juste a remonter le topic hein... pas a forcer une reponse...

---

Je connais l'utilité d'un Up. Néanmoins il n'est pas la bienvenue ici bas.
Cela n'a aucun interet de faire remonter ton post dans la liste étant donné que le forum est largement assez bien concus pour que les membres qui t'aident le retrouve...
En effet dans notre profil on peut voir les discussions que l'on a suivis, etc...

Citation:

---

Envoyé par lyraaa

D'aprés la reponse qui precede la tienne, faut croire que si....

---

Comprend une chose.
Nombres des membres qui participent activement au forum le font pour le plaisir et pendant leur temps libre. Ceci implique qu'ils travaillent pour la plupart en journée.

Donc tu pux faire cinq cents Up que ca ne changerait pas l'affaire. Lorsqu'ils se connectent, ils regardent les messages qui ont été posté depuis leurs dernière visites et tombent forcément sur le tiens...



Encore une fois il n'y a aucune agressivité dans mes propos, j'sai de t'expliquer la mentalité du forum ;)


Bien à toi,
Cordialement

Bonjour,

Citation:

---

En utilisant ce code, tout ce que j'ai declaré

Code:

---

1 2 3 4 5 6 7 8

Function Information_clt_nom() As String Information_clt_nom = clt_nom End Function   Function Information_clt_prenom() As String Information_clt_prenom = clt_prenom End Function [...]

---

Et toute la phase d'initialisation, ca ne sert plus à rien ?

---

Si, c'est le début de ta classe, les fonctions que je t'ai donnée sont la suite.
Edit : :oops: j'ai dit une bétise, il faut utiliser les propriétés.

Code:

---

1 2	clt_num = Trim(rstLigneTable.Fields(0).Value) 'la première colonne clt_nom = Trim(rstLigneTable.Fields(1).Value)

---

C'est le résultat de ta requête "select IdClient, nom, addresse, ..."
normalement avec cette requête tu as plusieurs colonne dans le résultat, et pour accéder à chaque tu utilises fields (Num colonne), idClient en 0, nom en 1, ...

Citation:

---

(strChaineRequete, [...]) > qu'entends tu part [...] ?

---

Les ... veulent dire que du code est présent, ici c'est d'autres paramètres qui dépandent de la façons dont tu veux accéder à ta BdD.

Mais comme je te l'ai dit il y a surement des adaptations à faire, je ne peux que te donner un exemple sur comment procéder.

Citation:

---

Sinon j'avais prévu une autre solution, peux tu me donner ton avis sur sa faisabilité ? : Lorsque l'on entre le nom, si il y a un homonyme, alors une nouvelle inputbox apparait afin de demander un autre renseignement.

---

Tu peux, mais généralement dans une base de données on identifie chaque occurence de façon unique. Après c'est toi qui voie comment tu veux faire.


Au fait la base de données future

Citation:

---

Si je comprend, les données sont actuellement sur excel (inaccessible), mais dans le futur elle seront sous access. Ai-je bien compris?

---

c'est acces ?

A+, Hervé.

La Praline > Au temps pour moi alors :)

le up ne sera plus :p

rv26t >

Citation:

---

Si, c'est le début de ta classe, les fonction que je t'ai donnée sont la suite.

---

Ok, et pourrais je t'embêter uen derneire fois en te demandant a quoi sert exactement la phase d'initialisation ?

Citation:

---

C'est le résultat de ta requête "select IdClient, nom, addresse, ..."
normalement avec cette requête tu as plusieurs colonne dans le résultat, et pour accéder à chaque tu utilises fields (Num colonne), idClient en 0, nom en 1, ...

---

Donc, en gros on peut demander toutes les info du client en une seule requête, c'est bien ca ?

Citation:

---

Les ... veulent dire que du code est présent, ici c'est d'autres paramètres qui dépandent de la façons dont tu veux accéder à ta BdD.

---

Je vois, par contre je ne vois pas ce que je peux mettre a la place de ces " ... " sachant que je veux acceder a ma bdd par un simple recordset, ddb.open

Citation:

---

Tu peux, mais généralement dans une base de données on identifie chaque occurence de façon unique. Après c'est toi qui voie comment tu veux faire.

---

Disons qu'ils ont un numéro unique, mais étant donné que les numéro ne sont pas connu par coeur, on ne peux pas faire de recherche par numéro. :/

Citation:

---

c'est acces ?

---

On ne m'en a pas dit beaucoup sur ca : " la base de donnée est actuellement sous Excel, mais va, dans le futur, subir des transferts divers et varié "

Dans ces changements " divers et variés " on peut compter Access j'imagine

La phase d'initialisation est éxecuté à la création de la classe

Code:

---

1 2 3 4 5 6

' ===== Initialisations ===== est executé lors de la création de la classe Private Sub Class_Initialize() ' init des variables clt_num = 0 clt_nom = "" End Sub

---

Tu initialises toutes les variables de la classes au cas ou un élément ne serait pas renseigné par la suite tu n'auras pas n'importe quoi.

Citation:

---

Donc, en gros on peut demander toutes les info du client en une seule requête, c'est bien ca ?

---

Oui

Citation:

---

Disons qu'ils ont un numéro unique, mais étant donné que les numéro ne sont pas connu par coeur, on ne peux pas faire de recherche par numéro. :/

---

Exact, mais dans le cas ou la recherche par nom te donne plusieurs client, tu proposes la liste des clients trouvé (id, nom) à l'utilisateur, il choisi, puis tu recherches avec l'identifiant pour ramener une seule occurence. (ou tu utilises ton idée de 2ème critère et tu recherche avec 2 critères, mais si tu as encore plusieurs clients il en faut un 3ème)

Citation:

---

On ne m'en a pas dit beaucoup sur ca : " la base de donnée est actuellement sous Excel, mais va, dans le futur, subir des transferts divers et varié "

Dans ces changements " divers et variés " on peut compter Access j'imagine

---

:aie:, ça c'est embêtant, tu risque d'avoir à refaire des choses lors du changement, essaye de faire remmonter l'info comme quoi il est important de connaître la BdD finale

A+, Hervé

Citation:

---

Je vois, par contre je ne vois pas ce que je peux mettre a la place de ces " ... " sachant que je veux acceder a ma bdd par un simple recordset, ddb.open

---

Ca pourrait-être => , dbOpenDynamic, 0, dbOptimistic mais tous dépend de la base sur laquelle tu vas accéder et comment tu veux que les accès s'effectues.
:f1: sur "OpenRecordset"

A+, Hervé.

Citation:

---

Tu initialises toutes les variables de la classes au cas ou un élément ne serait pas renseigné par la suite tu n'auras pas n'importe quoi

---

Oki donc ca on est d'accord.

Citation:

---

Exact, mais dans le cas ou la recherche par nom te donne plusieurs client, tu proposes la liste des clients trouvé (id, nom) à l'utilisateur, il choisi, puis tu recherches avec l'identifiant pour ramener une seule occurence. (ou tu utilises ton idée de 2ème critère et tu recherche avec 2 critères, mais si tu as encore plusieurs clients il en faut un 3ème)

---

Oui, ca ok, ce que je veux dire, c'est que je ne peux faire une recherche comme ceci : " tapez le numéro du client recherché ". Ca serait plus simple, mais la secretaire ne connait pas tous les numéro par coeur.

Aprés oui, ca peut etre bien de proposer les differents homonymes.

Citation:

---

Aie ( ), ça c'est embêtant, tu risque d'avoir à refaire des choses lors du changement, essaye de faire remmonter l'info comme quoi il est important de connaître la BdD finale

---

En effet ca pose probleme. Bon, disons que dans un premier temps, l'important est qu'elle soit fonctionnelle avec une BDD Excel.

Pour en revenir au code, j'ai commencé a essayer de l'adapter, masi je recontre quelques soucis, que tu pourras, je l'éspère, m'aider a regler :

Pour le bouton " Rechercher "

Code:

---

If LaClasse.RechercheClient(InputBox("Saisissez le nom du client :", "client")) Then

---

Ma Form " Recherche de client " est déjà crée. Ouvrir une inputbox est une redondance non ?

Code:

---

txtNomClient.Text = LaClasse.information_clt_nom

---

c'est aussi .txt pour un label ? car la je veux inscrire les info recoltées dans mes labels.

Citation:

---

Oui, ca ok, ce que je veux dire, c'est que je ne peux faire une recherche comme ceci : " tapez le numéro du client recherché ". Ca serait plus simple, mais la secretaire ne connait pas tous les numéro par coeur.

---

Normal, fait d'abord la recherche classique par nom, puis traite le cas ou il y en a plusieurs.

Citation:

---

Ma Form " Recherche de client " est déjà crée. Ouvrir une inputbox est une redondance non ?

---

Utilise ta form et donne le résultat du choix saisie par l'utilisateur à la fonction => LaClasse.RechercheClient(TaVariableNomClient)

Pour un label c'est .caption.

Avec vb n'hésite pas avec :f1: cela aide bien.
A+

Okok, donc comme je te l'ai dis, ca sera avant tout Excel.

Pour l'aide, j'aimerai bien, masi " Microsoft office component " a decidé de buguer.

Bon je repost quand j'ai tenté l'utilisation de ton codee

Bon a force de plancer dessus je comprends plus grand chose :aie:

Alors

probleme 1 :

Dans ma Classe Client, j'ai crée toutes les Function de ce type :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function Information_clt_num() As Integer Information_clt_num = clt_num End Function   Function Information_clt_nom() As String Information_clt_nom = clt_nom End Function   Function Information_clt_prenom() As String Information_clt_prenom = clt_prenom End Function   Function Information_clt_nom() As String Information_clt_nom = clt_nom End Function

---

Probleme : il me dit que information_clt_nom est ambigue...

probleme 2 :

Citation:

---

Utilise ta form et donne le résultat du choix saisie par l'utilisateur à la fonction => LaClasse.RechercheClient(TaVariableNomClient)

---

Ma form s'appel Recherche_client, je dois donc proceder comment ?

Encore une fois, merci

1) ces fonctions n'ont pas à exister puisque clt_num, clt_nom, ... sont accessible par les propriétés dans la classe.
Désolé je n'avais pas fait attention, Hervé :aie: . J'ai lu trop vite ton post de 9h25. Je corrige ma réponse de 10h40.

Citation:

---

il me dit que information_clt_nom est ambigue...

---

: normal tu as 2 fois ta fonction information_clt_nom. Mais laisse tomber.
Avec la classe il faut accéder aux variables à travers les propriétés, tu m'avais demandé de te l'expliquer, cré et utilise ces propriétés.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

' Place (affecte) la valeur dans la variable locale clt_Num Public Property Let Information_clt_num(ByVal iDonnees As Integer) clt_num = iDonnees End Property   ' Donne (renvoie) la valeur de la variable locale clt_Num Public Property Get Information_clt_num() As Integer ...   Public Property Let Information_clt_nom(ByVal sDonnees As String) ...   Public Property Get Information_clt_nom() As String ...

---

2)
lorsque dans ta form l'utilisateur valide son choix dans ton bouton_click tu utilises la fonction de recherche LaClasse.RechercheClient avec en paramètre le nom choisie par l'utilisateur.

A+, Hervé.

Déclaration des variables privées. (visible uniquement dans la classe)

Code:

---

private clt_nom As String

---

Définition des propriétés pour accéder à ces variables locales à la classe.

Code:

---

1 2 3 4 5 6 7

Public Property Let Information_clt_nom(ByVal sDonnees As String) clt_nom = sDonnees End Property   Public Property Get Information_clt_nom() As String Information_clt_nom = clt_nom End Property

---

Définition des fonctions et procédures pour agir : rechercher, mettre à jour, ...

Code:

---

1 2	Public Function RechercheClient(ByVal sNom As String) As Boolean [...]

---

La partie initialisation de ta classe pour qu'à la création de celle-ci tout soit propre.

Code:

---

1 2 3 4 5 6

Private Sub Class_Initialize() ' init des variables clt_num = 0 clt_nom = "" [...] End Sub

---

Bonne programmation ;)