Forum du club des d�veloppeurs et IT Pro - Access

[AC-365] Mise � jour conccurrents d'un r ecord

retraite83 — Sun, 24 May 2026 08:22:42 GMT

Bonjour,

j'ai une question basique, mais j'ai besoin d'une piste pour y r�pondre, je n'ai aucune exp�rience sur ACCESS

Tout d'abord je maitrise bien VBA Excel et j'ai �cris une application (600 macros environ) bas�e exclusivement sur des fichiers Excel

Pour optimiser maintenant je voudrai remplacer certains fichiers demandant � �tre partag�s par une base, pour comprendre j'ai donc cr�� une base ACCESS sur un serveur avec un record contenant la valeur 1

Ma macro Excel sait maintenant acc�der � la base, faire + 1 sur la valeur, la mettre � jour et l'afficher (= 2)

Mon probl�me est le suivant : si je lance simultan�ment la m�me macro sur un second PC il n'y a pas de blocage de la mise � jour et � la fin des ex�cutions les valeurs affich�es sont = 2

Ce qui dans mon application cr��ra un doublon sur le N�

A mon sens l'avantage d'une base comme ACCESS est justement de g�rer les acc�s concurrents, il doit bien y avoir un param�tre ou une action � faire pour cela (je n'ai rien vu dans les docs que j'ai lus)

Merci

[AC-2019] Ouverture d'un fichier PDF

adelion7015 — Sun, 10 May 2026 14:13:39 GMT

Bonjour,

C'est la 2eme fois que je traite de ce sujet, du fait que je change d'endroit et bizarrement, ca ne marche jamais au premier coup.

Avant, en cliquant sur un bouton j'arrivais a ouvrir des fichiers PDF, j'utilisais le chemin suivant :

Code:

1
2
3
Private Sub visudoc_Click()
ShellExecute 0, "open", "P:\Budget_DB\sce_contrats\Visa_budget\" & Me.Id_affaire & ".pdf", vbNullString, vbNullString, 1
End Sub

En ayant le module suivant :

Code:

1
2
3
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Le probl�me c'est que quand je clique, rien ne se passe.

Une petite aide s'il vous plait.

Merci.

Salutations

[AC-2019] Calcul dur�e entre ann�es

adelion7015 — Sat, 09 May 2026 14:13:57 GMT

Bonjour,

Dans la requ�te que j'ai cr��e, j'ai un champ cens� calcul� l'intervalle en mois entre l'ann�e de d�but et l'ann�e de fin, j'ai alors �crits ceci :

Code:

Exercice_fin: AjDate("""yyyy""";([Durée]-Int([Durée]))*1;AjDate("m";[Durée];[Exercice_debut]))

A l'execution de la requete j'ai ce resultat : #Fonct!

Malgr� plusieurs tentative, franchement je ne comprend pas trop ou est l'erreur.

Merci pour votre aide.

Salutations.

[AC-2019] Cr�ation d'une requete regroupement et sommes

adelion7015 — Wed, 06 May 2026 16:47:34 GMT

Bonjour,

S'il vous plait, est il possible de cr�er une requ�te pour regrouper les regions et les natures comptable et faire la somme des montants ? je n'y arrive pas.

Merci d'avance

Mes salutations.

Images attach�es

Actions avant fermeture d'un formulaire

Depite — Tue, 05 May 2026 06:41:55 GMT

Bonjour � tous,
Lors de la fermeture de formulaires j'ai parfois besoin d'ex�cuter diff�rentes actions utilisant des valeurs affect�es � des variables de port�e formulaire.
L'id�e est d'utiliser l'�v�nement Form_Unload qui est le premier d�clench� lors de la fermeture et qui permet l'annulation de l'action hors, lors de l'ex�cution de la proc�dure mais � ce moment-l� toutes les variables de formulaire ont d�j� �t� initialis�es :?
Quelqu'un saurait-il comment d�tecter la fermeture du formulaire avant cette r�initialisation des variables ?
Merci.

Exemple:
En-t�te du formulaire

Code:

1
2
3
4
5
6
7
 
Option Compare Database
Option Explicit
 
Dim MonEtat as boolean
dim mObjet as ClassePerso
...

Clic sur un bouton personnalis�:

Code:

1
2
MonEtat = true
set mObjet = new ClassePerso

Fermeture du formulaire:

Code:

1
2
3
4
5
6
...
If MonEtat then
   call mObjet.fermer()
   do something
End if
...

Mais MonEtat sera toujours Faux, de m�me que mObjet sera nothing.

[AC-2013] Surbrillance de ligne de Formulaire

morobaboumar — Sat, 25 Apr 2026 18:20:14 GMT

Bonsoir membres du forum,
Est il possible de combiner les codes de surbrillance dans la mise en forme conditionnelle:

Code:

[Sous_Designation] Comme "*" & [TxtRecherche] & "*" Et [NumAutoSCmdSousDesign]=[txtCodePersonneActive]

Cordialement.

Images attach�es

[AC-2013] Espacement des mots dans la zone de texte de Recherche

morobaboumar — Fri, 24 Apr 2026 19:43:29 GMT

Bonsoir membres du forum !
Recherche de m�thode d'espacement de mots dans une zone de txt de Recherche. Exemple un nom et pr�noms: Doukara Wandakara:

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 Sub TxtRecherche_Change()
    Dim strFiltre As String
    Dim valRecherche As String
    Dim tempRecherche As String
 
    valRecherche = Me.TxtRecherche.Text
 
    If valRecherche = "" Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        ' GESTION DES ESPACES : remplace l'espace par un joker *
        tempRecherche = Replace(Me.TxtRecherche.Text, " ", "* ")
 
 strFiltre = "[Sous_Designation] LIKE '*" & tempRecherche & "*'"
 
        ' GESTION DES ACCENTS
        tempRecherche = Replace(tempRecherche, "a", "[aàâä]")
        tempRecherche = Replace(tempRecherche, "e", "[eéèêë]")
        tempRecherche = Replace(tempRecherche, "i", "[iîï]")
        tempRecherche = Replace(tempRecherche, "o", "[oôö]")
        tempRecherche = Replace(tempRecherche, "u", "[uùûü]")
        tempRecherche = Replace(tempRecherche, "c", "[cç]")
 
        strFiltre = "[Sous_Designation] LIKE '*" & tempRecherche & "*' OR " & _
                    "CStr([NumAutoSCmdSousDesign]) LIKE '*" & valRecherche & "*'"
 
        Me.Filter = strFiltre
        Me.FilterOn = True
 
        Me.TxtRecherche.SetFocus
        Me.TxtRecherche.SelStart = Len(valRecherche)
    End If
End Sub

Bien � vous!

Code VBA qui v�rifie s'il y a une connexion Internet sur l'ordinateur

rcarlyp — Sat, 28 Mar 2026 08:33:53 GMT

Bonjour,
j'aimerais creer un CODE VBA dans un formulaire ACCESS permettant de verifier s'il ya une connexion d'internet et renvoyer le mot "online" dans un champ si la connexion d'internet est etablit et OFLINE si il n'y a pas d'internet. Comment faire s'il vous plait?

[AC-2013] Erreur dans le SQL Access 2013

morobaboumar — Thu, 26 Mar 2026 00:07:22 GMT

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
' ==========================================================
' PROCEDURE DE CALCUL DE L'HERITAGE (CAS : EPOUSES + ENFANTS)
' ==========================================================
Private Sub btnCalculerPartage_Click()
    Dim db As DAO.Database
    Dim rsH As DAO.Recordset
    Dim rsCharges As DAO.Recordset
    Dim strSql As String
 
    ' Variables financières
    Dim mBrute As Double, mNette As Double, tCharges As Double, wassiyyah As Double
    Dim pEpouseTotale As Double, pFille As Double
    Dim nFils As Integer, nFilles As Integer, nEpouses As Integer
    Dim mFinal As Double, sFraction As String, sBase As String, idCalculID As Long
 
    On Error GoTo Err_Proc
    Set db = CurrentDb
 
    ' --- 1. RÉCUPÉRATION DES CHIFFRES (Table Tbl_Montant_Et_Charges) ---
    strSql = "SELECT * FROM Tbl_Montant_Et_Charges WHERE id_defunt=" & Me.id_defunt
    Set rsCharges = db.OpenRecordset(strSql)
 
    If rsCharges.EOF Then
        MsgBox "ERREUR : Aucune donnée financière trouvée pour ce défunt.", vbCritical
        rsCharges.Close: Exit Sub
    End If
 
    mBrute = Nz(rsCharges!Masse_Brute, 0)
    tCharges = Nz(rsCharges!Frais_Funeraires, 0) + Nz(rsCharges!Dettes, 0) + Nz(rsCharges!Pension_Alimentaire, 0)
    wassiyyah = Nz(rsCharges!Leg_Wassiyyah, 0)
    mNette = mBrute - tCharges - wassiyyah
    rsCharges.Close
 
    ' --- 2. COMPTAGE (Utilisation de id_defunt tel que vu sur l'image) ---
    ' Vérifiez que 7=Epouse, 5=Fils, 6=Fille dans votre table de référence
    nEpouses = DCount("*", "T_Heritier", "id_defunt=" & Me.id_defunt & " AND ID_LienFamille_Herit=7")
    nFils = DCount("*", "T_Heritier", "id_defunt=" & Me.id_defunt & " AND ID_LienFamille_Herit=5")
    nFilles = DCount("*", "T_Heritier", "id_defunt=" & Me.id_defunt & " AND ID_LienFamille_Herit=6")
 
    ' --- 3. NETTOYAGE DES ANCIENS CALCULS ---
    db.Execute "DELETE FROM T_Resultat WHERE id_heritier IN (SELECT id_heritier FROM T_Heritier WHERE id_defunt=" & Me.id_defunt & ")", dbFailOnError
    db.Execute "DELETE FROM T_Calcul_Synthese WHERE id_defunt=" & Me.id_defunt, dbFailOnError
 
    ' --- 4. ARCHIVAGE DANS T_CALCUL_SYNTHESE ---
    ' Str() transforme la virgule en point, évitant l'erreur "Trop peu de paramètres"
    strSql = "INSERT INTO T_Calcul_Synthese (id_defunt, date_calcul, masse_brute_calculee, total_charges_deduites, montant_wassiyyah, masse_nette_finale, nb_heritiers_total, statut_calcul) " & _
             "VALUES (" & Me.id_defunt & ", Now(), " & Str(mBrute) & ", " & Str(tCharges) & ", " & Str(wassiyyah) & ", " & Str(mNette) & ", " & (nFils + nFilles + nEpouses) & ", 'Validé')"
    db.Execute strSql, dbFailOnError
 
    idCalculID = db.OpenRecordset("SELECT @@IDENTITY").Fields(0)
 
    ' --- 5. CALCULS ISLAMIQUES (1/8 pour épouses, reste 2 pour 1 pour enfants) ---
    If nEpouses > 0 Then pEpouseTotale = mNette * (1 / 8) Else pEpouseTotale = 0
 
    Dim mResteEnfants As Double
    mResteEnfants = mNette - pEpouseTotale
 
    ' Calcul de la part d'une fille (base de calcul)
    If (nFils * 2 + nFilles) > 0 Then
        pFille = mResteEnfants / ((nFils * 2) + nFilles)
    Else
        pFille = 0
    End If
 
    ' --- 6. RÉPARTITION INDIVIDUELLE ---
    Set rsH = db.OpenRecordset("SELECT * FROM T_Heritier WHERE id_defunt=" & Me.id_defunt)
 
    Do While Not rsH.EOF
        Select Case rsH!ID_LienFamille_Herit
            Case 7 ' Épouses
                mFinal = pEpouseTotale / IIf(nEpouses > 0, nEpouses, 1)
                sFraction = "1/8 partagé": sBase = "Coran 4:12"
            Case 5 ' Fils
                mFinal = pFille * 2
                sFraction = "2 parts": sBase = "Ta'sib (2:1)"
            Case 6 ' Filles
                mFinal = pFille
                sFraction = "1 part": sBase = "Ta'sib (1:1)"
            Case Else
                mFinal = 0: sFraction = "N/A": sBase = "-"
        End Select
 
        strSql = "INSERT INTO T_Resultat (id_heritier, id_calcul, part_fraction, montant_calcule, base_legale) " & _
                 "VALUES (" & rsH!id_heritier & ", " & idCalculID & ", '" & sFraction & "', " & Str(mFinal) & ", '" & sBase & "')"
        db.Execute strSql, dbFailOnError
 
        rsH.MoveNext
    Loop
 
    MsgBox "Calcul terminé avec succès !", vbInformation, "EMS SUCCESSION"
 
Exit_Proc:
    On Error Resume Next
    If Not rsH Is Nothing Then rsH.Close
    Set db = Nothing
    Exit Sub
 
Err_Proc:
    MsgBox "Erreur : " & Err.Description, vbCritical
    Resume Exit_Proc
End Sub

Images attach�es

[AC-2013] Gestion de ZAkat Legale VBA ou SQL Access

morobaboumar — Tue, 24 Mar 2026 04:15:48 GMT

Bonjour membres du forum,
je vous envoie la pi�ce de mon application traitant la Zakat L�gale (l'Aum�ne) afin d'avoir des conseils et suggestions:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
Option Compare Database
Option Explicit
 
 
' ===========================================================================
' FONCTION MAÎTRE : Le chef d'orchestre qui redirige vers le bon calcul
' ===========================================================================
Public Function CalculerZakatUnifie(idU As Variant, idType As Variant, Quantite As Double, _
                                   Optional dateAcq As Variant, _
                                   Optional modeIrrig As String = "") As Variant
 
    ' 1. Sécurité : Si les informations essentielles sont manquantes
    If IsNull(idType) Or Quantite <= 0 Then
        CalculerZakatUnifie = "Saisie incomplète"
        Exit Function
    End If
 
    ' 2. Aiguillage selon l'ID de votre table T_Types_Biens
    Select Case idType
        Case 1, 2, 7 ' Argent (1), Or (2) et Marchandises (7)
            CalculerZakatUnifie = CalculerZakatMonetaireNet(idU, Quantite)
 
        Case 3 ' Moutons / Chèvres
            CalculerZakatUnifie = CalculZakatOvins(CInt(Quantite))
 
        Case 4 ' Vaches / Boeufs
            CalculerZakatUnifie = CalculZakatBovins(CInt(Quantite))
 
        Case 5 ' Récoltes (Céréales / Fruits)
            CalculerZakatUnifie = CalculerZakatAgricole(Quantite, modeIrrig)
 
        Case 6 ' Chameaux
            CalculerZakatUnifie = CalculZakatCamelins(CInt(Quantite))
 
        Case Else
            CalculerZakatUnifie = "ID [" & idType & "] non configuré"
    End Select
End Function
 
Public Function CalculZakatOvins(nbTetes As Integer) As String
    Select Case nbTetes
        Case 0 To 39: CalculZakatOvins = "Rien (Nisab non atteint)"
        Case 40 To 120: CalculZakatOvins = "1 mouton/chèvre"
        Case 121 To 200: CalculZakatOvins = "2 moutons/chèvres"
        Case 201 To 399: CalculZakatOvins = "3 moutons/chèvres"
        Case Is >= 400:
            ' 1 bête par centaine supplémentaire
            CalculZakatOvins = (nbTetes \ 100) & " moutons/chèvres"
    End Select
End Function
 
 
' ===========================================================================
' CALCULS DU BÉTAIL (BOVINS, OVINS, CAMELINS)
' ===========================================================================
Public Function CalculZakatBovins(nbTetes As Integer) As String
    Dim nbTabi As Integer, nbMusinna As Integer
    Select Case nbTetes
        Case 0 To 29: CalculZakatBovins = "Rien (Nisab: 30)"
        Case 30 To 39: CalculZakatBovins = "1 veau d'un an (Tabi')"
        Case 40 To 59: CalculZakatBovins = "1 vache de 2 ans (Musinnah)"
        Case 60 To 69: CalculZakatBovins = "2 veaux d'un an (Tabi')"
        Case Is >= 70
            nbMusinna = nbTetes \ 40
            nbTabi = (nbTetes Mod 40) \ 30
            CalculZakatBovins = nbMusinna & " Musinnah et " & nbTabi & " Tabi'"
    End Select
End Function
 
 
Public Function CalculZakatRecolte(poidsKG As Double, ModeIrrigation As String) As Double
    If poidsKG < 653 Then
        CalculZakatRecolte = 0
    Else
        Select Case ModeIrrigation
            Case "Pluie": CalculZakatRecolte = poidsKG * 0.1
            Case "Artificiel": CalculZakatRecolte = poidsKG * 0.05
            Case Else: CalculZakatRecolte = poidsKG * 0.075
        End Select
    End If
End Function
 
Public Function CalculZakatCamelins(nbTetes As Integer) As String
    Select Case nbTetes
        Case 0 To 4: CalculZakatCamelins = "Rien"
        Case 5 To 9: CalculZakatCamelins = "1 mouton"
        Case 10 To 14: CalculZakatCamelins = "2 moutons"
        Case 15 To 19: CalculZakatCamelins = "3 moutons"
        Case 20 To 24: CalculZakatCamelins = "4 moutons"
        Case 25 To 35: CalculZakatCamelins = "1 jeune chamelle (1 an - Bint Makhad)"
        Case 36 To 45: CalculZakatCamelins = "1 chamelle (2 ans - Bint Labun)"
        Case 46 To 60: CalculZakatCamelins = "1 chamelle (3 ans - Hiqqah)"
        Case 61 To 75: CalculZakatCamelins = "1 chamelle (4 ans - Jadh'ah)"
        Case 76 To 90: CalculZakatCamelins = "2 chamelles (2 ans - Bint Labun)"
        Case 91 To 120: CalculZakatCamelins = "2 chamelles (3 ans - Hiqqah)"
        ' Remplacez la ligne Case Is > 120 par ceci :
        Case Is > 120
        Dim n40 As Integer, n50 As Integer
        ' Règle : 1 Bint Labun par 40 OU 1 Hiqqah par 50
        ' On calcule le nombre de groupes de 50 et le reste par 40
        n50 = nbTetes \ 50
        n40 = (nbTetes Mod 50) \ 40 ' Simplification courante
 
        ' Un calcul plus précis peut être complexe, mais voici une réponse standard :
        CalculZakatCamelins = "Règle des 40/50 applicable (" & n50 & " Hiqqah et " & n40 & " Bint Labun)"
        End Select
End Function
 
 
' ===========================================================================
' CALCULS MONÉTAIRES (AVEC DÉDUCTION DES DETTES)
' ===========================================================================
Public Function CalculerZakatMonetaireNet(idU As Variant, montantBrut As Double) As String
    Dim totalDettes As Double
    Dim montantNet As Double
 
    ' Récupération des dettes de l'utilisateur dans T_Dettes
    If Not IsNull(idU) Then
        totalDettes = Nz(DSum("Montant_Total", "T_Dettes", "ID_User = " & idU), 0)
    Else
        totalDettes = 0
    End If
 
    montantNet = montantBrut - totalDettes
 
    If montantNet <= 0 Then
        CalculerZakatMonetaireNet = "0,00 (Dettes > Avoirs)"
    Else
        ' Taux légal de 2,5%
        CalculerZakatMonetaireNet = Format(montantNet * 0.025, "#,##0.00") & " (Net à 2,5%)"
    End If
End Function
 
 
' ===========================================================================
' CALCUL AGRICOLE
' ===========================================================================
Public Function CalculerZakatAgricole(Quantite As Double, modeIrrig As String) As String
    Dim res As Double
    Select Case modeIrrig
        Case "Pluie": res = Quantite * 0.1: CalculerZakatAgricole = Format(res, "#,##0") & " (Dû à 10%)"
        Case "Artificiel": res = Quantite * 0.05: CalculerZakatAgricole = Format(res, "#,##0") & " (Dû à 5%)"
        Case "Mixte": res = Quantite * 0.075: CalculerZakatAgricole = Format(res, "#,##0") & " (Dû à 7,5%)"
        Case Else: CalculerZakatAgricole = "Précisez l'irrigation"
    End Select
End Function
 
 
 
' ===========================================================================
' NOTES EXPLICATIVES DYNAMIQUES
' ===========================================================================
Public Function ObtenirNoteZakat(idType As Variant) As String
    Select Case idType
        Case 1, 2, 7: ObtenirNoteZakat = "Taux de 2,5% après déduction des dettes. Nisab : ~85g d'or."
        Case 3: ObtenirNoteZakat = "Nisab: 40 têtes. 1 bête de 40 à 120, puis 1 par centaine."
        Case 4: ObtenirNoteZakat = "Nisab: 30 têtes. 1 veau (1 an) par 30 ou 1 vache (2 ans) par 40."
        Case 5: ObtenirNoteZakat = "Nisab: 653kg. Taux variable (5%, 7,5% ou 10%) selon l'irrigation."
        Case 6: ObtenirNoteZakat = "Nisab: 5 têtes. Barème spécifique alternant moutons et chamelles."
        Case Else: ObtenirNoteZakat = "Sélectionnez un bien pour voir la règle."
    End Select
End Function

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Option Compare Database
Option Explicit
 
Private Sub Date_Acquisition_GotFocus()
GererAffichageIrrigation
End Sub
 
Private Sub Form_Current()
    ' Affiche la note dès qu'on change de ligne (enregistrement)
    If Not IsNull(Me.Type_Bien) Then
        Type_Bien_AfterUpdate
    End If
End Sub
 
Private Sub CmdFrm_Configuration_Click()
DoCmd.OpenForm "Frm_Configuration", , , , , acDialog
End Sub
 
Private Sub Date_Acquisition_AfterUpdate()
    ' On relance simplement le calcul global
    ' Cela permet de vérifier instantanément si le Hawl (354j) est atteint
    Quantite_AfterUpdate
End Sub
 
Private Sub ID_User_AfterUpdate()
' --- À AJOUTER AU DÉBUT DE CHAQUE PROCÉDURE ---
If IsNull(Me.ID_User) Or IsNull(Me.Type_Bien) Or IsNull(Me.Quantite) Then
    Me.TxtResultat = "Saisie en cours..."
    Exit Sub
End If
 
End Sub
 
Private Sub Mode_Irrigation_AfterUpdate()
    ' On relance le calcul global dès qu'on change l'irrigation
    Me.TxtResultat = CalculerZakatUnifie(Me.ID_User, Me.Type_Bien, Me.Quantite, Me.Date_Acquisition, Nz(Me.Mode_Irrigation, ""))
End Sub
 
Private Sub Mode_Irrigation_GotFocus()
    GererAffichageIrrigation
End Sub
 
Private Sub Quantite_AfterUpdate()
    ' On force l'enregistrement
    If Me.Dirty Then Me.Dirty = False
 
    ' 1. On calcule le résultat (ce que nous avons déjà fait)
    Me.TxtResultat = CalculerZakatUnifie(Nz(Me.Type_Bien, 0), Nz(Me.Quantite, 0), Me.Date_Acquisition, Nz(Me.Mode_Irrigation, ""))
 
    ' 2. On met à jour la note explicative automatiquement
    Me.TxtNote = ObtenirNoteZakat(Nz(Me.Type_Bien, 0))
End Sub
 
Private Sub GererAffichageIrrigation()
    ' On vérifie si le type de bien actuel est bien "Récoltes" (ID 5)
    If Nz(Me.Type_Bien, 0) = 5 Then
        ' On déverrouille et on change la couleur pour montrer que c'est actif
        Me.Mode_Irrigation.Locked = False
        Me.Mode_Irrigation.Enabled = True
        Me.Mode_Irrigation.BackColor = vbWhite
    Else
        ' On verrouille pour éviter les erreurs sur les autres types de biens
        Me.Mode_Irrigation.Locked = True
        Me.Mode_Irrigation.Enabled = False
        Me.Mode_Irrigation.BackColor = 14211288 ' Gris clair
    End If
End Sub
 
' --- SÉCURITÉ POUR ÉVITER LES MSGBOX D'ERREUR ---
Private Sub VerifierSaisieComplete()
    ' Si l'un des trois champs est vide, on affiche un message d'attente
    If IsNull(Me.ID_User) Or IsNull(Me.Type_Bien) Or IsNull(Me.Quantite) Then
        Me.TxtResultat = "Saisie en cours..."
        Exit Sub
    End If
End Sub
 
 
 
Private Sub Type_Bien_AfterUpdate()
    ' 1. Sécurité
    If IsNull(Me.ID_User) Or IsNull(Me.Type_Bien) Or IsNull(Me.Quantite) Then
        ' On gère quand même l'affichage du champ irrigation
        If Nz(Me.Type_Bien, 0) = 5 Then Me.Mode_Irrigation.Visible = True Else Me.Mode_Irrigation.Visible = False
        Exit Sub
    End If
 
    ' 2. Enregistrement
    If Me.Dirty Then Me.Dirty = False
 
    ' 3. Affichage dynamique de l'irrigation
    If Nz(Me.Type_Bien, 0) = 5 Then
        Me.Mode_Irrigation.Visible = True
        Me.Mode_Irrigation.Enabled = True
    Else
        Me.Mode_Irrigation.Visible = False
        Me.Mode_Irrigation.Value = Null
    End If
 
    ' 4. Calcul et Note
    Me.TxtResultat = CalculerZakatUnifie(Me.ID_User, Me.Type_Bien, Me.Quantite, Me.Date_Acquisition, Nz(Me.Mode_Irrigation, ""))
    Me.TxtNote = ObtenirNoteZakat(Nz(Me.Type_Bien, 0))
End Sub

Cordialement.

Fichiers attach�s

GESTION DE LA ZAKAT LEGALE.zip (67,2 Ko)

Partage base de donn�es Access

Gaya2008 — Mon, 23 Mar 2026 20:27:46 GMT

Bonjour a tous
J'ai cr�� une base donn�es access, version 0ffice 2019, et j'aimerais pouvoir la partager avec mon super user qui lui, est sur un r�seau externe.
Donc je suis l'admin sur mon poste et lui travaille de la maison avec .accde
J'ai scind� les tables (backend) de mon programme .accdb

Le but est que je puisse developper et modifier ma bd durant qu'il travaille.

Merci

[AC-2013] Gestion de la Zakatou-Fitr (Aum�ne) avec VBA Access

morobaboumar — Sun, 22 Mar 2026 00:27:21 GMT

Bonjour membres du forum,
Je soumets � votre appr�ciation une pi�ce jointe de mon application de gestion de la Zakatoul-Fitr (l'aum�ne de fin du ramandan).
A vos souhaits!
Cordialement!

Fichiers attach�s

GESTION DES ZAKAT FITR ET LA ZAKAT LEGALE.zip (94,2 Ko)

[AC-2013] Conversion d'images avec VBA Access

morobaboumar — Sun, 22 Mar 2026 00:20:17 GMT

Bonjour membres du forum !
Apr�s recherches, je soumets � votre appr�ciation la pi�ce-jointe d'une petite application de conversion d'images.
Vous pouvez l'exploiter comme vous le souhaitez!
Cordialement.

Fichiers attach�s

CONVERSION_IMAGES_ET_MONNAIES.zip (57,8 Ko)

conversion lettres en chiffres

MichelBazas — Mon, 16 Mar 2026 09:00:10 GMT

Bonjour,

Je cherche � cr�er des codes GTIN pour des produits et pour ce faire, il me faut transformer les codes lettres des produits en chiffre sur le principe A=1 Z=26.
J'ai essay� de trouver des solutions dans la FAQ mais n'ai pas r�ussi.

Je vous remercie d'avance pour votre aide

Michel

[AC-2013] Cr�er le Code QR de l'Etat_ProcesVerbal_Notes_Candidat

morobaboumar — Thu, 12 Mar 2026 18:03:30 GMT

Bonsoir membres du forum,
Pourriez vous m'aider � cr�er le Code QR de l'Etat_ProcesVerbal_Notes_Candidat ?

Code:

SELECT T_Inscriptions.ID_Inscription, T_Inscriptions.ID_EtabOrigine, T_Inscriptions.AnneeScol, T_Inscriptions.MleEleve_ND, T_Inscriptions.MatriculeNat, T_Inscriptions.SessionID, T_Inscriptions.NumeroTable, R_Saisie_Notes.MatiereID, R_Saisie_Notes.Matiere, R_Saisie_Notes.Coefficient, R_Saisie_Notes.NoteObtenue, T_Resultats_CEPE.TotalPoints, T_Resultats_CEPE.MoyenneGénérale, T_Resultats_CEPE.Rang, T_Inscriptions.MGA, T_Resultats_CEPE.Mention, T_Resultats_CEPE.Decision, GetQRCodeURL([T_Inscriptions].[MatriculeNat]) AS QR_Code_Link, F_Cheminphotoid_Logo([T_Resultats_CEPE]![ID_EtabOrigine],[T_Resultats_CEPE]![AnneeScol]) AS LOGO_1, F_CheminPhotoEleve([T_Resultats_CEPE]![MleEleveND]) AS ImageCandidat, F_Cheminphotoid_Logo_B([T_Resultats_CEPE]![ID_EtabOrigine],[T_Resultats_CEPE]![AnneeScol]) AS LOGO_2 FROM (T_Resultats_CEPE INNER JOIN R_Saisie_Notes ON (T_Resultats_CEPE.ID_EtabOrigine = R_Saisie_Notes.IdEtabOri) AND (T_Resultats_CEPE.AnneeScol = R_Saisie_Notes.AnSco) AND (T_Resultats_CEPE.MleEleveND = R_Saisie_Notes.MleEleveECIND) AND (T_Resultats_CEPE.MatriculeNtl = R_Saisie_Notes.MatriculeNat)) INNER JOIN T_Inscriptions ON (R_Saisie_Notes.IdEtabOri = T_Inscriptions.ID_EtabOrigine) AND (R_Saisie_Notes.AnSco = T_Inscriptions.AnneeScol) AND (R_Saisie_Notes.MleEleveECIND = T_Inscriptions.MleEleve_ND) AND (R_Saisie_Notes.MatriculeNat = T_Inscriptions.MatriculeNat);

Cordialement.

Images attach�es