Formulaire avec Zones générées et remplies automatiquement

**Claudine** · 19/11/2009, 17h57

Bonjour à tous
J'ai un ancien formulaire d'investissement très simple reprenant les zones textes : N° d'inscription
Description
Date
1ère année( d'investissement)
Nombre d'années
Montant de l'investissement
J'aimerais parfaire ce formulaire pour y faire apparaître automatiquement ( à droite par exemple) dès l'incription du montant de l'investissement
sous la dénomination Détail, les années et montants correspondant à l'investissement .
Par exemple:
Si j'ai un invest de 2000€ sur une durée de 4 années dont la 1ère année d'invest est 2009
Comment faire apparaître automatiquement les détails a savoir:
Détails
Année Montant
2009 500€
2010 500€
2011 500€
2012 500€
Ces détails seront ensuite dans un tableau d'investissement
Pouvez-vous me conseiller et me guider dans ma démarche?
Claudine

**abdeltif** · 20/11/2009, 23h40

Salut Claudine
j'ai fais cette petite application selon votre dessin j'espére que ce sera utile
pour vous.

A+

**Claudine** · 23/11/2009, 22h35

Bonsoir Abdeltif
Je vous suis reconnaissant pour ce travail, mais malheurement je ne peux ouvrir cette base de données car avec access 2000 le format de cette base de données est inconnu .Probablement que vous l'avez créé sous une version microsoft acccess Postérieure à celle que j'utilise.
Je ne suis pas suffisamment expert pour savoir ce que je doit faire pour y accéder. Quelqu'un peut-il m'aider?
Claudine

**Jeannot45** · 24/11/2009, 09h50

Afin de pouvoir lire la base proposée par : abdeltif, je l'ai récupérée au format Access2000

Bonne continuation

**abdeltif** · 24/11/2009, 20h29

Salut

l'application qu'a récupéré jeannot contient des erreurs
que j'ai corrigé dans l'appli ci-dessous (access 2003 et access 2000)

Bonne journée

**Claudine** · 24/11/2009, 23h05

Bonsoir à tous et mes remerciements à Abdeltif et Jeannot pour votre total dévouement pour rendre service au débutant. Il est heureux de constater qu'il existe encore des personnes telles que vous deux et que l'on est certain de pouvoir compter sur la majorité des pros de ce forum.
Concernant le logiciel db 2000 que j'ai pu ouvrir ,C'est un petit bijou qui nécessite probablement une retouche pour un fonctionnement parfait.
En effet, lorsque j'introduit les données et que je clique sur(Calcul de l'investissement), il affiche: vous allez exécuter une requête suppression puis vous allez supprimer 0 lignes puis vous allez ajouter une requête ajout après un 2ème clic sur(calcul de l'invest) pour seulement afficher vous allez exécuter une requête ajout et enfin vous allez ajouter par exemple 2 ou 3 enregistrements et ils y sont dans les tables. Il y a donc un ou plusieurs problèmes à resoudre probablement au niveau des macros ou requêtes pour obtenir directement les ajouts aux tables.
Sincères salutations
Claudine

**abdeltif** · 25/11/2009, 20h55

Salut Claudine
De rien et à votre service

Les erreurs dont vous avez parler dans votre message sont maintenant corrigés vous pouvez maintenant utiliser l'application et l'étudier, elle très facile à suivre ainsi vous pourrez l'améliorer est découvrir d'autre niveaux d'Access. si vous avez besoin d'aide n'hésitez pas à appuyer sur F1.

A+

**Claudine** · 26/11/2009, 18h56

Mes plus sincères remerciements à vous Mr abdeltif, c'est génial et je vais étudier votre réalisation. Cependant , je me pose la question suite à certaines remarques tierces qui sont justifiées: lorsque l'on fait un investissement au courant d'une année, il n'est pas normal d'attribuer un montant d'amortissement d'une année entière Exemple:
Nous sommes en octobre 2009, j'aurais donc un montant d'investissement de 3/12
Supposons un montant d'investissement de 5000€ en 4 ans
année 2009 312.5€
année 2010 1250€
année 2011 1250€
année 2012 1250€
année 2013 937.5€
J'ai essayé en introduisant dans mon formulaire un zone de texte 'mois' dans laquelle je tape le nombre de mois, mais je n'arrive pas à trouver les bonnes expressions et où les placer pour obtenir le résultat ci-dessus .
Sans vouloir abuser de votre bonté, pouvez-vous me conseiller?
Salutations amicales
Claudine

**abdeltif** · 27/11/2009, 00h01

Salut claudine
voilà je l'ai fait C'est un peu tordue

mais ça marche

A+

**Claudine** · 27/11/2009, 13h01

Bonjour abdeltif
Chapeau, c'est un travail rapide et malheureusement vous n'êtes pas récompensé par le novice que je suis. En effet, lorsque j'introduit toutes les données , je suis bloqué par une boîte de dialogue où je dois introduire les paramètres.
Losque j'examine les détails;c'est trop fort pour moi , une formule VraiFaux très compliquée où j'avoue ne pas comprendre la dernière expression VraiFaux[Maxdeanne]......12;0;[investannuel] puis-je vous demander de l'expliciter?
Comment arrivez-vous à faire calculer le solde de l'investissement pour la dernière année si la 1ère n'est pas 12/12 car je ne vois pas d'expression?
Ceci pour que je puisse comprendre le fonctionnement afin de progresser.

Pourriez-vous me renseigner la forme et les types de paramètres à entrer dans la boîte de dialogue car cette dernière me repond sans cesse: nombre de paramètre attendu 4 ou données imcompatibles avec l'expression à entrer?
Merci pour votre patience et votre compréhension.
Claudine

**LE VIEUX** · 30/11/2009, 17h14

bonjour,
peut être plus simple si on considère qu'il n'est peut être pas necessaire de conserver les calculs mais simplement les éléments le permettant puisque l'on peut les faire à la demande.
une simple table et un formulaire affichant les calculs dans une zone de liste déroulante et bien sur un peu de code.

**Claudine** · 30/11/2009, 18h16

Bonjour le vieux,
Il y a un problème dans le code puisquu'il affiche une erreur de compilation, membre de méthode ou de données introuvable

Code :

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

Me.Invest.AddItem année & ";" & Format(investissement, "#,###.00")

au niveau Additem?
Si vous pouviez corriger cela me permettrait d'étudier votre modèle et d'avance je vous en remercie
Par contre, j'aimerais poursuivre avec le modèle précédent ,peut-être compliqué mais qui me sera d'une grande utilité parce après avoir fait un état qui me permet de calculer pour chaque année le montant des investissements, j'aimerais maintenant faire un état sous forme de tableau récapitulatif des amortissements qui me permettrait de totaliser les amortissements annuels de chaque année. J'ai essayé mais je n'y arrive pas!
Exemple:
N°d'incription/1ère année/Montant/Nombre d'années/2009/2010/2011/2012/2013/2014/2015 etc.
Avec inscription des amortissements annuels dans les colonnes correspondantes puis addition de chacun de ses montants.
Ainsi donc je peux connaître pour chaque année, le montant des amortissements.
Afin que je puisse continuer à utiliser le précédent modèle

ourriez-vous me renseigner la forme et les types de paramètres à entrer dans la boîte de dialogue car cette dernière me repond sans cesse: nombre de paramètre attendu 4 ou données imcompatibles avec l'expression à entrer?

Si vous pouviez m'aider une dernière fois et puis je vous lâche les baskets!
Sincères remerciements à toute l'équipe.
Claudine

**abdeltif** · 30/11/2009, 20h44

Salut Claudine
Je m'excuse pour cette réponse tardive mais c'était les jours de fête de Aladha chez nous au Maroc.
Le calcul se fait sur le nombre de mois ; dans la boîte de dialogues « entrez une valeur de paramètre », la valeur est entre 1 et 12 toujours pour la première année d’investissement si c’est une année complète saisissez 12 si il n’est pas complète saisissez un chiffre inférieure à 12 selon le mois d’inscription.
Patiente, je vous ferai un document qui explique tout ce que j'ai fait.

Voilà
Au fait le vieux a fait du beau travail ; le montant est calculé automatiquement sur le nombre de jours à partir de la date_déb.

A+

**LE VIEUX** · 30/11/2009, 23h03

bonsoir,
autant pour moi effectivement access 2000 ne supporte pas AddItem :
remplace le code par :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Commande_Click()
Dim année As Integer
Dim investissement As Currency
DatDeb = Me.Date_Deb
 
an1 = Me.annee_1
nb = Me.Nombre_annee
mt = Me.Montant
 
 
DatFin = DateAdd("yyyy", nb - 1, DatDeb) - 1
FinAn1 = CDate("31/12/" & Year(DatDeb) & "")
investAn = mt / nb
NbJAn1 = DateDiff("d", DatDeb, FinAn1, 2, vbFirstFourDays)
investAn1 = investAn / 365 * NbJAn1
nb1 = Invest.ListCount
Me.Invest.RowSource = ""
For i = 1 To nb
    Select Case i
        Case 1
            année = an1
            investissement = Round(investAn1, 2)
             Me.Invest.RowSource = année & ";" & Format(investissement, "#,###.00")
        Case nb
            année = Year(DatFin)
            investissement = Round(investAn - investAn1, 2)
 
             Me.Invest.RowSource = Me.Invest.RowSource & ";" & année & ";" & Format(investissement, "#,###.00")
 
        Case 2 To (nb - 1)
 
            année = (an1 - 1) + i
            investissement = Round(investAn, 2)
         Me.Invest.RowSource = Me.Invest.RowSource & ";" & année & ";" & Format(investissement, "#,###.00")
 
    End Select
 
Next i
End Sub

et dit moi si ça marche

**LE VIEUX** · 01/12/2009, 00h30

re,
si tu veux garder les calculs essayes cela :

**LE VIEUX** · 02/12/2009, 09h40

bonjour,
j'ai transposé un peu vite :
réponse à ton message personnel qui ne peut, règle du forum, pas répondre à des questions techniques.
l'erreur vient que les parametres d'une zone de liste démarrent à 0 alors que mon code pour un sous formulaire est 1.
essayes le code suivant :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Commande_Click()
Dim dbs As Database
Dim rstInvest As DAO.Recordset
Set dbs = CurrentDb
Set rstInvest = dbs.OpenRecordset("Detail_Invest")
an1 = Me.annee_1
nb = Me.Nombre_annee
mt = Me.Montant
 
DatDeb = Me.Date_Deb
 
 
DatFin = DateAdd("yyyy", nb - 1, DatDeb)
FinAn1 = CDate("31/12/" & Year(DatDeb) & "")
investAn = mt / nb
NbJAn1 = DateDiff("d", DatDeb, FinAn1, 2, vbFirstFourDays)
investAn1 = investAn / 365 * NbJAn1
 
For i = 1 To nb
    Select Case i
 
 
    Case 1
 
            rstInvest.AddNew
            rstInvest("NumInvestDetail") = Me.NumInscript
            rstInvest("annéeInvest") = an1
            rstInvest("investissement") = Round(investAn1, 2)
            rstInvest.Update
 
        Case nb
            rstInvest.AddNew
            rstInvest("NumInvestDetail") = Me.NumInscript
            rstInvest("annéeInvest") = Year(DatFin)
            rstInvest("investissement") = Round(investAn - investAn1, 2)
             rstInvest.Update
        Case 2 To (nb)
            rstInvest.AddNew
            rstInvest("NumInvestDetail") = Me.NumInscript
            rstInvest("annéeInvest") = (an1 - 1) + i
            rstInvest("investissement") = Round(investAn, 2)
             rstInvest.Update
    End Select
 Next i
 
 Me.Detail_Invest_Sfmr.Form.Requery
 
End Sub

**Claudine** · 02/12/2009, 11h13

Bonjour Abdeltif,
Je vous cite "Le calcul se fait sur le nombre de mois ; dans la boîte de dialogues « entrez une valeur de paramètre », la valeur est entre 1 et 12 toujours pour la première année d’investissement si c’est une année complète saisissez 12 si il n’est pas complète saisissez un chiffre inférieure à 12 selon le mois d’inscription". Ce que j'ai introduit.
Cependant, j'ai toujours une boîte de dialogue qui affiche:

Code :

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

Formulaires! Tableinvest! nombre d'année],2 Unknown]

J'ai regardé dans la boîte de dialogue Références et aucune ne figure avec le mot "Manquant"
Pouvez-vous m'aider?
Sincères remerciements
Claudine

**Claudine** · 02/12/2009, 20h14

Bonsoir le Vieux,
J'ai essayé le nouveau code

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Commande_Click()
Dim dbs As Database
Dim rstInvest As DAO.Recordset
Set dbs = CurrentDb
Set rstInvest = dbs.OpenRecordset("Detail_Invest")
an1 = Me.annee_1
nb = Me.Nombre_annee
mt = Me.Montant
 
DatDeb = Me.Date_Deb
 
 
DatFin = DateAdd("yyyy", nb - 1, DatDeb)
FinAn1 = CDate("31/12/" & Year(DatDeb) & "")
investAn = mt / nb
NbJAn1 = DateDiff("d", DatDeb, FinAn1, 2, vbFirstFourDays)
investAn1 = investAn / 365 * NbJAn1
 
For i = 1 To nb
    Select Case i
 
 
    Case 1
 
            rstInvest.AddNew
            rstInvest("NumInvestDetail") = Me.NumInscript
            rstInvest("annéeInvest") = an1
            rstInvest("investissement") = Round(investAn1, 2)
            rstInvest.Update
 
        Case nb
            rstInvest.AddNew
            rstInvest("NumInvestDetail") = Me.NumInscript
            rstInvest("annéeInvest") = Year(DatFin)
            rstInvest("investissement") = Round(investAn - investAn1, 2)
             rstInvest.Update
        Case 2 To (nb)
            rstInvest.AddNew
            rstInvest("NumInvestDetail") = Me.NumInscript
            rstInvest("annéeInvest") = (an1 - 1) + i
            rstInvest("investissement") = Round(investAn, 2)
             rstInvest.Update
    End Select
 Next i
 
 Me.Detail_Invest_Sfmr.Form.Requery
 
End Sub

Mais c'est toujour la même erreur,il manque une année invest et un investissement pour faire le total égal à au montant investi
Salutations amicales
Claudine

**abdeltif** · 02/12/2009, 20h17

Salut claudine
Je crois que le probléme est dû à la syntaxe il manque un crochet à nombre d'année plus ou moins j'ai simplifié les appels essayez maintenant cette nouvelle version et dites mois si ça marche.
A+

**Claudine** · 02/12/2009, 21h27

Bonsoir Abdeltif,
j'ai essayé cette dernière version et le problème de la boîte de dialogue a en effet disparu, et la zone de texte "mois" est bien pratique;
mais, il y a un problème dans le calcul des détails des investissements.
En effet, la plupart du temps, la somme des investissements est supérieur au montant. Très souvent la dernière année d'invest, l'invest est égal au précédent alors qu'il doit être égal à la différence du montant investi et la somme des investissements annuels précédents.
Je ne doute pas que vous aurez rapidement résolu ce petit problème.
Salut amical
Claudine

Formulaire avec Zones générées et remplies automatiquement

IHM

Discussions similaires

Partager

Partager