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

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

[AC-2013] Access 2013 export d'un etat en PDF en VBA

CEREMA_Toul — Wed, 11 Mar 2026 13:12:50 GMT

Bonjour, j'ai une application sous access2013 qui comportent diff�rents �tat, j'ai une proc�dure qui permet d'�diter plusieurs etats (3) en PDF et de les fusionner en un seul document, je ne peux pas faire un seul �tat. Cela fonctionne bien sous Access 2013 ((32 bits) mais j'ai un message d'erreur avec le runtime 2013 . Message d'erreur : " L'action OutPutTo a �t� annul�e. J'ai test� l'application avec Access 2021 cela fonctionne bien. Seul le runtime me pose probl�me. Voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
   ' Chemin de sauvegarde des fichiers PDF
  ' Définir les chemins
cheminDossier = [Forms]![FCheminaccès]![chemin] + "Report"
etat3 = "EDXTODYTOsynth"
etat2 = "ERotLocalesynth"
etat1 = "ERSynth"
 
EtatCombine = maDate & "_" & Forms("FchoixTube").Controls("Modifiable7").Value & "_PV"
 
FichierFinal = cheminDossier & EtatCombine & ".pdf"
 
 DoCmd.SetWarnings False
    Application.Echo False
' Exporter chaque état en PDF
Dim val
val = cheminDossier & "etat1.pdf"
On Error GoTo GestionErreur
DoCmd.OutputTo acOutputReport, etat1, acFormatPDF, val
MsgBox ("etat1 créé")
DoCmd.OutputTo acOutputReport, etat2, acFormatPDF, cheminDossier & "etat2.pdf"
MsgBox ("etat2 créé")
DoCmd.OutputTo acOutputReport, etat3, acFormatPDF, cheminDossier & "etat3.pdf"
MsgBox ("etat3 créé")

Je n'ai pas trouv� d'autre solutions qui ne n�cessite aucune intervention de l'op�rateur et qui fonctionne avec le runtime. Si quelqu'un a une id�e, mon approche n'est peut �tre pas la bonne

[AC-2016] Toutes proc�dures inactives

Alexenlair — Mon, 09 Mar 2026 16:21:33 GMT

Bonjour,
Je viens d'installer Microsoft Office Professionnel Plus 2024.
Dans un formulaire, j'incorpore qques proc�dures simples (recherche d'enregistrement sur liste d�roulante, bouton ouvrant une table...) Or, aucune proc�dure ne fonctionne. J'ai plac� des points d'arr�t, mais rien ne se passe.
Apr�s des ann�es d'interruption, je passe de ACCESS 2000 � la nouvelle version. Sans doute ai-je omis une manipulation ou une autre ?
Merci de m'apporter vos lumi�res.
Cordialement,
Alexenlair

Modifier l'icone en haut � gauche d'un formulaire

uzeb31 — Wed, 04 Mar 2026 13:57:00 GMT

Bonjour,

Est-il possible de modifier l'icone tout en haut � gauche d'un formulaire access ? Si oui, comment ?

Je parle bien de cet icone :

Merci !

Cdt,

JL

Images attach�es

[AC-2016] Ouverture d'un formulaire Access filtr� selon la valeur d'un contr�le

uzeb31 — Wed, 04 Mar 2026 10:41:46 GMT

Bonjour � Tous,

Je ne sais pas si je suis au bon endroit pour poster ma demande. Mais, si ce n'est le cas, n'h�sitez pas � me le dire.

J'ai visiblement un souci � l'ouverture d'un formulaire. Je vous explique :

J'ai un formulaire dans lequel se trouve un zone de liste.
Au double clic sur une des lignes de la ZDL, je lui demande d'ouvrir un autre formulaire avec une condition WHERE.

J'y vais pas � pas, et � l'aide de MsgBox je v�rifie de r�cup�rer la bonne valeur pour WHERE.

Voil� la syntaxe :

Code:

DoCmd.OpenForm "fSaisieCdesMat", , , "[T_CdeMat_Ref_Cde]=" & ListeCommandes.Column(2)

fSaisieCdesMat est le formulaire que je cherche � ouvrir.
T_CdeMat_Ref_Cde est bien un champ du formulaire fSaisieCdesMat.
ListeCommandes.Column(2) est bien la valeur que je r�cup�re dans la ZDL (en l'occurrence CDM20260023).

Et voil� une dialogBox qui s'ouvre et qui me demande : "Entrer une valeur de param�tre / CDM20260023

Et si je saisie CDM20260023, �a fonctionne tr�s bien.

Mais pourquoi cette boite de dialog ?

J'esp�re avoir �t� clair.

Et merci � ceux ou celles qui voudront bien me r�pondre

Cdt,

JL

Images attach�es

D�c�s de Fabrice Constans (LOUFAB)

Pierre Fauconnier — Thu, 26 Feb 2026 05:44:56 GMT

Bonjour

Je viens d'apprendre le d�c�s de Fabrice Constans, qui par ses nombreuses contributions sur Access, a aid� un nombre inestimable de d�veloppeurs Access.

Merci Fabrice pour tout ce que tu as apport� � notre communaut�. Paix � ton �me.

Remplissage de champ dans un sous-formulaire refus�

rcarlyp — Sun, 15 Feb 2026 20:10:56 GMT

Bonjour,
je recois un message d'erreur lors de remplissage d'un champ de mon sous-formulaire. J'ai mis en Piece jointe une capture d'ecran!

Merci pour votre aide!

Images attach�es

[AC-2016] Probl�me li�es a un sous formulaire

btheo84 — Thu, 05 Feb 2026 07:59:55 GMT

Bonjour je suis stagiaire et j'�tudie en bts dans le secteur de l'industrie . J'ai un projet sur access de gestion de stock de pi�ce.Comme vous pouvez le voir sur la capture d'�cran, j'ai essay� de cr�er un formulaire avec deux listes d�roulante et j'y ai int�grer un sous formulaire pour que la pi�ce choisi dans la liste d�roulante "sous ensemble " sois afficher . Seulement je ne comprend pas pourquoi la pi�ces afficher sur le sous formulaire ne correspond pas a celle choisis Je vous remercie d'avance de votre aides

Images attach�es