Discussion :

[morobaboumar]

Bonsoir hyperion13
Pourriez vous apporter les
modifications que vous me suggèrez
à mon application ?
Rappelez vous que je ne suis pas un expert en informatique.
Je suis un apprenant.
Merci merci de bien vouloir le faire.
Cordialement.

[tee_grandbois]

il faut quand même prendre en compte que morobaboumar n'est pas un expert en programmation ...
la preuve:

Code :

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

1
2
3
4
        Case "6"
            .MontantPartHeritagePercu = F_RamenantMontantParticulierMembreFEMS_HDK_PartFille(Me.IDMontantpartager, Me.id_LienDeParente)
        Case "5"
            .MontantPartHeritagePercu = F_RamenantMontantParticulierMembreFEMS_HDK_PartFils(Me.IDMontantpartager, Me.id_LienDeParente)

il ne faut pas utiliser Me dans la boucle car Me fait référence uniquement à l'enregistrement en cours dans le formulaire, il faut utiliser les champs du Recordset ,comme plus haut dans les cas "2" à "4":

Code :

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

1
2
3
4
5
6
        Case "2"
            .MontantPartHeritagePercu = F_RamenantMontantParticulierMembreFEMS_SML(.IDMontantpartager, .id_LienDeParente)
        Case "3"
            .MontantPartHeritagePercu = F_RamenantMontantParticulierMembreFEMS_SML_PartFrere(.IDMontantpartager, .id_LienDeParente)
        Case "4"
            .MontantPartHeritagePercu = F_RamenantMontantParticulierMembreFEMS_SML_PartSoeur(.IDMontantpartager, .id_LienDeParente)

même si dans le code que j'ai donné je parcours le Recordset et pas un clone du Recordset, ce qui fait que le curseur se déplace, il est préférable de TOUJOURS faire référence au champs du Recordset

[morobaboumar]

Merci infiniment tee_grandbois expert senior
longue vie à vous pleinne santé ainsi qu'à tous.
hyperion13 m'a souligné des remarques
au niveau des requêtes de mon
application. Qu'en pensez vous ?
Merci infiniment.

[tee_grandbois]

personnellement, si cela fonctionne, je n'y toucherai pas

[morobaboumar]

Bonjour membres du forum,
J'ai reproduis le code du boutons de commande CmdMAJ_Part_Montants

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
 
Private Sub CmdMAJ_Part_Montants_Click()
'MiseAJourMontantPartagés
'Me.IDMontant_partager.SetFocus
'DoCmd.GoToRecord , , acLast
With Me.Recordset
    .MoveFirst
    Do Until .EOF
        .Edit
        Select Case .[idLienParente]
        Case "6"
            .MontantPartHeritPercu = F_RamenantMontantPartChaqueFilleHDK(.idLienParente, .IDMontant_partager)
        Case "5"
            .MontantPartHeritPercu = F_RamenantMontantPartChaqueFilsHDK(.idLienParente, .IDMontant_partager)
        End Select
        .Update
        .MoveNext
    Loop
End With
 
End Sub

dans une autre partie de mon application mais voici l'erreur qui survient mais rien n'a été indiqué.



Question: qu'est ce qui provoque cette erreur ?
Cordialement.

[morobaboumar]

Bonjour membres du forum,
J'ai reproduis le code du boutons de commande CmdMAJ_Part_Montants

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
.
Private Sub CmdMAJ_Part_Montants_Click()
'MiseAJourMontantPartagés
'Me.IDMontant_partager.SetFocus
'DoCmd.GoToRecord , , acLast
With Me.Recordset
    .MoveFirst
    Do Until .EOF
        .Edit
        Select Case .[idLienParente]
        Case "6"
            .MontantPartHeritPercu = F_RamenantMontantPartChaqueFilleHDK(.idLienParente, .IDMontant_partager)
        Case "5"
            .MontantPartHeritPercu = F_RamenantMontantPartChaqueFilsHDK(.idLienParente, .IDMontant_partager)
        End Select
        .Update
        .MoveNext
    Loop
End With
 
End Sub

dans une autre partie de mon application.
Chaque fois que je clique sur la commande CmdMAJ_Part_Montants [CODE], voici l'erreur qui survient mais rien n'est indiqué pour signifier d'où provient elle.



Question: qu'est ce qui provoque cette erreur ?
Cordialement.

[hyperion13]

Salut,

il faut quand même prendre en compte que morobaboumar n'est pas un expert en programmation ...

Cela fait bien longtemps que c'est assimilé

personnellement, si cela fonctionne, je n'y toucherai pas

Ce conseil est fort judicieux.
Pour autant, je viens de faire un ALL IN ONE. Mais attention l'exemple donné est épuré. Ce n'est pas une usine à gaz.

[morobaboumar]

Bonsoir hyperion13,
Votre travail est tellement
pure bien fait que je redoutable
d'effort et suivre votre méthode
et l'adapter à mon cas.
Il y a 3 cas de décès:

1°) le père de famille décédé laisse: - 2 épouses qui se partagent les 1/8 et les 7/8 sont partages entre les
7 filles et les 9 fils du montant laissé moins les charges (Frais Funérailles, Pension Alimentaire, Leg, Zakat, Dettes).
Maintenant, sur les 7/8 restants, chaque fille prend le 1/2 de la part des fils.
Question: quelle est la part de chaque épouse,
celle de chaque fille et celle de chaque fils ?

2°) les 2 derniers cas sont déjà traités dans la pièce jointe.

- Pièce jointe.

Merci infiniment.
Cordialement.

[hyperion13]

Là ce n'est pas, dirais-je, un problème Access, c'est plus tôt un problème de maths.
Voir les situations en pj.

[morobaboumar]

Bonsoir hyperion13,
bonsoir membres du forum,
Je viens de constater une erreur de frappe ici




Rappel: chaque fille doit toucher la moitié de part de chaque fils. Voir capture suivante:



Comment traduire cela en Vba Access et l'ajouter au 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
Public Function PartMontantHeritage(id_indivfk As Long, _
                                    id_heritfk As Long, _
                                    id_rangfk As Long, _
                                    MontantHeritage As Single) As Single
On Error GoTo ErrorHandler
Dim calcPart As Single
 
Select Case id_rangfk
    Case 2 'mere
    calcPart = (MontantHeritage / 114) * 19
    Case 3 'frere
    calcPart = (MontantHeritage / 114) * 10
    Case 4 'soeur
    calcPart = (MontantHeritage / 114) * 5
    Case 5 'fils
    calcPart = (MontantHeritage / 19) * 2
    Case 6 'fille
    calcPart = (MontantHeritage / 19) * 1
    Case Else
    calcPart = 0
    End Select
PartMontantHeritage = calcPart
 
ExitHandler:
    Exit Function
ErrorHandler:
    MsgBox "Oups ! Une erreur a été rencontrée :" & vbCrLf & "Error " & Err.Number & ": " & Err.Description
    Resume ExitHandler
End Function

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
 
Private Sub btnCalcPartage_Click()
Dim dbs As DAO.Database, rst As DAO.Recordset, strSql As String
 
Set dbs = CurrentDb
 
strSql = "SELECT MontantHeritage" _
& " FROM tbIndividu" _
& " WHERE id_indiv = " & Me.id_indivfk
 
Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
 
With Me.Recordset
    .MoveFirst
    Do Until .EOF
        .Edit
        Select Case .[id_rangfk]
        Case "2"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "3"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "4"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "5"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "6"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        End Select
        .Update
        .MoveNext
    Loop
End With
End Sub

Cordialement.

[hyperion13]

Désolé pour vous, mais Intelligence Artificielle, je ne suis pas.
Mais bon, 8 x 50 = 400
Sauf étourderie de ma part, les démonstrations mathématiques sont justes.

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
Public Function PartMontantHeritage(id_indivfk As Long, _
                                    id_heritfk As Long, _
                                    id_rangfk As Long, _
                                    MontantHeritage As Single) As Single
On Error GoTo ErrorHandler
Dim calcPart As Single
 
Select Case id_rangfk
    Case 2 'mere
    calcPart = (MontantHeritage / 114) * 19 'comment trouvez-vous ce rapport 19/114 ?
    Case 3 'frere
    calcPart = (MontantHeritage / 114) * 10 'comment trouvez-vous ce rapport 10/114 ?
    Case 4 'soeur
    calcPart = (MontantHeritage / 114) * 5 'comment trouvez-vous ce rapport 5/114 ?
    Case 5 'fils
    calcPart = (MontantHeritage / 19) * 2 'comment trouvez-vous ce rapport 2/19 ?
    Case 6 'fille
    calcPart = (MontantHeritage / 19) * 1 'comment trouvez-vous ce rapport 1/19 ?
    Case 7 'epouse
    calcPart = (MontantHeritage / 19) * 1 'je vous laisse le soin de trouver le bon rapport
    Case Else
    calcPart = 0
    End Select
PartMontantHeritage = calcPart
 
ExitHandler:
    Exit Function
ErrorHandler:
    MsgBox "Oups ! Une erreur a été rencontrée :" & vbCrLf & "Error " & Err.Number & ": " & Err.Description
    Resume ExitHandler
End Function

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
Private Sub btnCalcPartage_Click()
Dim dbs As DAO.Database, rst As DAO.Recordset, strSql As String
 
Set dbs = CurrentDb
 
strSql = "SELECT MontantHeritage" _
& " FROM tbIndividu" _
& " WHERE id_indiv = " & Me.id_indivfk
 
Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
 
With Me.Recordset
    .MoveFirst
    Do Until .EOF
        .Edit
        Select Case .[id_rangfk]
        Case "2"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "3"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "4"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "5"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "6"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        Case "7"
            .montant_part = PartMontantHeritage(.id_indivfk, .id_heritfk, .id_rangfk, rst.Fields("MontantHeritage"))
        End Select
        .Update
        .MoveNext
    Loop
End With
End Sub

[morobaboumar]

Sauf votre respect,
Il y a des erreurs de calculs dans votre code



Voici ce que j'ai réalisé avec mon usine à gaz



en faisant ce calcul



J'ai réuni tous les trois cas dans la pièce jointe que je vous poste.
Lien de téléchargement:
https://drop.infini.fr/r/8dWaPL0VUy#...Wi1JM9HrPhMjs=

Cordialement.

[hyperion13]

Quelque chose m'interpelle dans les calculs de votre capture d'écran. Parce que si j'adopte la méthode utilisée au 1er cas de votre Exemple_Partage_Héritage.pdf, je ne trouve pas le même résultat (partie droite img). Le document pdf donne une base 64, avec votre méthode je trouve 80.
Il manque à mon avis une explication de la procédure de décomposition. Enfin je pense.

[morobaboumar]

Bonsoir hyperion13,
Pour 2 épouses 1/8 du montant laissé,
pour les filles 1/2 du montant laissé,
le fils (1/2) * 2 du montant laissé.

Exemple: 100 000 / 8 = 12 500 pour les 2 épouses,

Reste: 100 000 - 12 500 = 87 500 à partager entre les 7 filles et 9 fils sachant que les

filles ont les 1/2 et les fils ont les (1/2) * 2 du montant 87 500

Quelle serait la part de chaque héritier ?

Cordialement.

[argyronet]

Bonjour,

Eh bien tant mieux si une solution a été trouvée et adoptée.
J’arrive un peu tard et le sujet était déjà entre de bonnes mains.

Quoi qu'il en soit, pour donne le focus à un champ en particulier dans un formulaire en mode continu et qu'il y reste, il y a plusieurs méthodes.

Mais il faut faire un choix entre préremplir automatiquement les valeurs et faire en sorte que le focus reste là où une valeur est ambiguë en cas de saisie manuelle.
Il ne fait pas "infantiliser" l'application (ni l’utilisateur d'ailleurs).
Le plus simple consiste à émettre une alerte (message ou Label.Caption et/ou verrouillage sur bouton {couplé au KeyPress Ctrl+F4} permettant de sortir de l'écran). Ainsi, l’utilisateur cherchera de lui-même.


[HORS SUJET]
morobaboumar , pourquoi une Huppe Fascié ?
[/HORS SUJET]

Argy

[tee_grandbois]

bonjour argyronet,
merci pour ton intervention mais ATTENTION: le titre de la discussion est trompeur, il ne s'agit pas, dans les faits, de saisir dans un champ (d'ailleurs tous les contrôles du sous-formulaire sont verrouillés) mais de mettre à jour un champ du jeu de données sur clic d'un bouton et ceci avec une fonction qui retourne le montant de part d'héritage suivant un calcul relativement complexe.
Comme morobaboumar n'est pas, selon ses propres dires, un expert en programmation, il a tenté d'utiliser le déplacement d'un enregistrement à l'autre via les commandes SetFocus et GotoRecord directement dans le formulaire plutôt qu'utiliser MoveNext depuis RecordSet ou RecordSetClone, cela a eu pour conséquence de créer une boucle infinie et un message d'erreur intempestif.

Maintenant, la discussion continue, si j'ai bien compris, sur un problème de calcul incorrect de parts d'héritage

[morobaboumar]

Bonjour les Experts,
bonjour membres du forum,
En réponse à votre question argyronet, je vous signale que tee_grandbois a résolu la discussion
depuis le post #22 .
Maintenant hyperion13 ayant constaté que la présente discussion est en rapport avec celle ci https://www.developpez.net/forums/d2...age-cas-2-3-a/, alors il a souhaité m'en donner une solution pure et simple dans une version ALL IN ONE.
Ce que j'apprécie énormément et que suis entrain d'adapter à mon cas.

En voici une pièce jointe GESTION_DecesSuccessionHeritage





La discussion continue depuis le post #34.

Maintenant, la discussion continue, si j'ai bien compris, sur un problème de calcul incorrect de parts d'héritage

Cordialement.

[morobaboumar]

Bonsoir membres du forum,
J'ai des messages d'erreurs de mon essai d'adaptation:

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
 
Private Sub btnCalcPartage_Click()
Dim dbs As DAO.Database, rst As DAO.Recordset, strSql As String
 
Set dbs = CurrentDb
 
strSql = "SELECT Montant_Net" _
& " FROM Tbl_MontantHeritage_A_Partager" _
& " WHERE ID_LIenFam = " & Me.id_LienParente
 
Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
 
With Me.Recordset
    .MoveFirst
    Do Until .EOF
        .Edit
        Select Case .id_LienParente
        Case "2"
            .Montant_Net = PartMontantHeritage(.id_GestionSucHerit, .id_heritierSuc, .id_LienParente, rst.Fields("Montant_Net"))
        Case "3"
            .Montant_Net = PartMontantHeritage(.id_GestionSucHerit, .id_heritierSuc, .id_LienParente, rst.Fields("Montant_Net"))
        Case "4"
            .Montant_Net = PartMontantHeritage(.id_GestionSucHerit, .id_heritierSuc, .id_LienParente, rst.Fields("Montant_Net"))
        Case "5"
            .Montant_Net = PartMontantHeritage(.id_GestionSucHerit, .id_heritierSuc, .id_LienParente, rst.Fields("Montant_Net"))
        Case "6"
            .Montant_Net = PartMontantHeritage(.id_GestionSucHerit, .id_heritierSuc, .id_LienParente, rst.Fields("Montant_Net"))
        End Select
        .Update
        .MoveNext
    Loop
End With
End Sub

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
Public Function PartMontantHeritage(id_GestionSucHerit As Long, _
                                    id_heritierSuc As Long, _
                                    id_LienParente As Long, _
                                    Montant_Net As Single) As Single
On Error GoTo ErrorHandler
Dim calcPart As Single
 
Select Case id_LienParente
    Case 2 'mere
    calcPart = (Montant_Net / 114) * 19
    Case 3 'frere
    calcPart = (Montant_Net / 114) * 10
    Case 4 'soeur
    calcPart = (Montant_Net / 114) * 5
    Case 5 'fils
    calcPart = (Montant_Net / 19) * 2
    Case 6 'fille
    calcPart = (Montant_Net / 19) * 1
    Case Else
    calcPart = 0
    End Select
PartMontantHeritage = calcPart
 
ExitHandler:
    Exit Function
ErrorHandler:
    MsgBox "Oups ! Une erreur a été rencontrée :" & vbCrLf & "Error " & Err.Number & ": " & Err.Description
    Resume ExitHandler
End Function

Cordialement.

[hyperion13]

Salut tout le monde, marot_r, tee_grandbois argyronet, morobaboumar

bonjour argyronet, ... Maintenant, la discussion continue, si j'ai bien compris, sur un problème de calcul incorrect de parts d'héritage

Bien compris, tu as

Bonjour les Experts, bonjour membres du forum, ...
Maintenant hyperion13 ayant constaté que la présente discussion est en rapport avec celle ci, alors il a souhaité m'en donner une solution pure et simple dans une version ALL IN ONE.
Ce que j'apprécie énormément et que suis entrain d'adapter à mon cas. La discussion continue depuis le post #34.

Je doute que ce forum soit le bon pour résoudre ce problème de calcul de répartition de parts successorales selon différents scenarii.
Si j'ai été amené à évoquer 1er fil de discussion dans lequel je n'étais pas intervenu, c'est en raison du décalage qu'il y avait entre la démonstration de marot_r et vos captures d'écran. On passait d'un dénominateur 6 à un dénominateur 114.

Dans ce fil de discussion on se retrouve avec un dénominateur 19 dans l'une des fonctions de calculs et un dénominateur 114 pour d'autres.
Pour réaliser ce genre de prouesse on ne peut passer que par le ppcm et pgcd. Sauf que ... Et bien non
Ce matin, je me suis même amusé à chercher une solution avec les théorèmes de Thalès et Pythagore. Et bien non
Problème concernant les successions en pays d'Islam, elles font parties des sciences religieuses.
Sur Gogole est mon ennemi, faire une recherche avec ce mot Juz’as-sahm il y a 3 résultats intéressants, un en Fr, 2 en Hindi.

[tee_grandbois]

bonjour,

La discussion continue depuis le post #34.

il faudrait donc en finir avec celle-ci, d'autant qu'elle est marquée

Je doute que ce forum soit le bon pour résoudre ce problème de calcul de répartition de parts successorales selon différents scenarii.

complètement d'accord: pour mon cas, je me cantonne à résoudre des problèmes purement techniques, pas des équations ou problèmes de calcul