Discussion :

[icemanback]

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...

[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

[icemanback]

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à,

[antoinev2]

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 :

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

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 :

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

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,

[icemanback]

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

[icemanback]

Alors voici mon pauvre programme :



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 :

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

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.