Tentative de création d'un petit soft en VBA sous Access

Bonsoir tout le monde,

Je souhaite développer un petit programme en VBA me permettant de gérer mon compte. Pour cela, j'utilise tout simplement un formulaire avec : une liste déroulante avec des lignes du type "Retrait, Virement etc...", une zone de texte "commentaires" ainsi qu'une zone de texte pour "montant". Vous l'aurez donc compris, le but est de sélectionner un type d'action avec le montant utilisé puis un commentaire pour détailler plus précisément l'action.

En excel, je parviens à réaliser mon programme, mais je ne trouve pas très propre le fait de renvoyer les infos vers une feuille excel. Je me suis donc dis que je devrai tenter mon aventure sous Access en utilisant VBA de la même façon (je suppose), au moins les résultats seraient directement envoyé dans des tables dans lesquelles je pourrai effectuer par la suite des requêtes SQL au cas ou.

Je ne sais pas par ou commencer, donc si quelqu'un comprend ce que je souhaite entreprendre et puisse m'aider à me lancer serait super.

Voilà ce que je pense faire pour commencer : Créer une table "Actions" avec des champs "Retrait", "Paiement_Internet", "Paiement_Magasin" etc. Mais je ne parviens pas a faire parvenir ces éléments dans la zone déroulante, alors que dans Excel, un simple cb_action.AddItem "Retrait" aurait suffit...

Merci d'avance,

Cordialement,


Bruno

ps : Je précise que je suis sous Access 2003 et que je suis "débutant" en VB (par la même occasion en prog) mais je fouille souvent avant de poser des question mais là j'avoue que...

Sous Access la source des listes déroulantes sont alimentés soit directement par une table, soit par une requête (SQL) ou directement dans la fenêtre propriété de ta liste.

En espérant t'avoir aider un peu

Citation:

---

Envoyé par Thierry''

Sous Access la source des listes déroulantes sont alimentés soit directement par une table, soit par une requête (SQL) ou directement dans la fenêtre propriété de ta liste.

En espérant t'avoir aider un peu

---

Bin en fait j'ai réussi a lister mes intitulés dans le liste déroulante, mais maintenant ce que je n'arrive pas à faire c'est créer un bouton et dire que une fois que j'ai sélectionné le montant et le commentaire que cela m'envoie les données dans un nouvelle table.

Voilà,

Bonjour Icemanback,

tu peux faire ça assez facilement :
tu crées deux variables : la 1ère récupère la valeur de la zone de liste déroulante, et la 2e récupère la valeur de la zone de texte.

soit pour la valeur de la zone de liste déroulante (si ta zone de liste est nommée "TypeAction") :

Code:

---

1 2 3

Dim strTypeAction As String strTypeAction = Me!TypeAction.Value

---

Ensuite tu peux utiliser DAO pour ouvrir une table et y ajouter un enregistrement, de la façon suivante (dans ce code, ta table est nommée "t_action", et tes variables "strTypeAction" et "strCommentAction"

Code:

---

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

Dim dbBase As DAO.Database Dim rstTable As DAO.Recordset   Set dbBase = Application.CurrentDb Set rstTable = dbBase.OpenRecorset("t_action")   rstTable.AddNew rstTable.Fields("type_action") = strTypeAction rstTable.Fields("comment_action") = strCommentAction rstTable.Update rstTable.Close   Set dbBase = Nothing Set rstTable = Nothing

---

(Pour éviter de taper à chaque fois "rstTable", utilise "With / End With")

Bon courage,

Ok merci je vais voir si je parviens a réaliser quelque chose.

Alors voici mon pauvre programme :

http://img357.imageshack.us/img357/1597/softjm4.th.png

J'ai crée une table "Actions" avec pour champs "Retrait", "Paiement_Internet" etc... Dans la liste déroulante cb_actions, dans les propriétés => contenu, je fais un SELECT Actions.Nom_Actions FROM Actions qui me permet d'intégrer les intitulés dans la liste déroulante.

J'ai ensuite crée un bouton "valider" avec ce que tu m'as passé :

"

Code:

---

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

Private Sub Commande12_Click()   Dim strcb_actions As String strcb_actions = Me!cb_actions.Value   Dim dbBase As DAO.Database Dim rstTable As DAO.Recordset   Set dbBase = Application.CurrentDb Set rstTable = dbBase.OpenRecorset("t_action")   rstTable.AddNew rstTable.Fields("type_action") = strcb_actions rstTable.Fields("comment_action") = strCommentAction rstTable.Update rstTable.Close   Set dbBase = Nothing Set rstTable = Nothing     End Sub

---

"

Par contre lorsque que je rentre un intitulé dans la liste modifiable et dans commentaires, une erreur se produit lorsque je clique sur le bouton valider.

Il me surligne dans le code : "OpenRecorset" comme erreur.

Tout d'abord, j'ai oublié une lettre d'où l'erreur surlignée, il faut écrire "OpenRecordset".
Pour apprendre à utiliser VBA et DAO, je te conseille une bonne lecture de tutos que tu trouveras sur ce site, et tu peux aussi acheter un livre spécialisé sur l'utilisation de VBA sous Access (ça ne suffit pas bien sûr, mais c'est une bonne base et tu auras des tonnes de conseils très utiles).

A part ça, si j'ai bien compris tu as créé un champ par type d'action?
Et ton formulaire est-il basé sur la table Actions, ou est-il indépendant?

Je te conseillerais plutôt :
d'utiliser l'interface graphique d'access pour créer ta liste de choix, ce qui est plus simple.
et de définir cette liste directement au niveau de ta table et non au niveau du formulaire, ça me semble plus logique.
(mais je n'ai peut-être pas été clair dans mon précédent post)

Pour cela :

crée dans ta table Actions un champ qui contiendra tous les types d'actions possibles (nommé par exemple "type_action").
Il doit être de type texte, utilise l'Assistant liste de choix pour créer ta liste : "retrait, "paiement internet", etc.
Tu as donc dans ta table Actions trois champs : un pour le type d'action, un pour le commentaire, un pour le montant.

Ensuite, relie ton formulaire à cette table:
Ouvre ton formulaire en mode création, tape F4 pour ouvrir la fenêtre des propriétés du formulaire ; dans l'onglet "Données", renseigne la "source" : tu vois une flèche qui affiche les noms de tes tables et requêtes : sélectionne ta table Actions.

Insère maintenant le champ "type_action" dans ton formulaire : si la liste des champs n'est pas affichée, tape F8 pour l'afficher.
Fais un cliquer-déposer du champ "type_action" donc, et tu vois qu'access affiche directement une zone de liste déroulante comme contrôle, qui contient donc déjà les choix possibles, puisque tu as défini au niveau de la table que ce champ est une liste de choix.
Insère de la même façon les deux autres champs (commentaire et montant).

autre chose : pour le code du bouton "valider" :
comme tu as trois variables à traiter (le type d'action, le commentaire et le montant), il faut déclarer et traiter ces trois variables, afin de renseigner les trois champs correspondants de ta table Actions.

J'ai dû t'induire en erreur avec cette ligne :

Code:

---

strcb_actions = Me!cb_actions.Value

---

Comme ta zone de liste est un champ de ta table, il faut écrire :

Code:

---

strcb_actions = Me![type_action]

---

([type_action] étant le nom du champ)

pour le commentaire et le montant ça donne

Code:

---

1 2 3 4

Dim strComment As String strComment = Me![comment_action] Dim curMontant As Currency curMontant = Me![montant]

---

et bien sûr, pour le report des données dans la table via DAO il faut traiter aussi le montant, soit :

Code:

---

rstTable.Fields("montant")= curMontant

---

Autre chose : il faut prévoir le cas où l'utilisateur laisse un contrôle vide, ce qui risque d'arriver surtout pour le champ "commentaire".
Sinon, une erreur d'exécution sera générée.

Tu peux utiliser pour cela la fonction Nz, exemple :

Code:

---

strcb_actions = Nz(Me![cb_actions], "")

---

Voilà, j'espère être assez clair, dis-moi si tu t'en sors,