Bonjour,

Je débute complétement avec le VBA ... alors tentez d'être cléments si j'ai commis des erreurs grossières...

Voici mon pb: je cherche à faire figurer dans le contenu d'un msgbox dans une procédure afterupdate d'une list box une variable que je tente d'appeler avec un recordset ( je ne sais pas très bien où le placer dans mon 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
Option Compare Database
Sub DAOOpenRecordset()
    Dim db As DAO.Database, rs1 As DAO.Recordset, fld As DAO.Field
    Dim SQL1 As String
 
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(".\Nucléus.mdb")
    SQL1 = "SELECT Table_plafond_emploi.quantite FROM Table_plafond_emploi WHERE (((Table_plafond_emploi.id_categorie_contrat)=1) AND ((Table_plafond_emploi.date_début)<=Now()) AND ((Table_plafond_emploi.date_fin)>=Now()));"
    ' Ouverture du recordset
    Set rs1 = db.OpenRecordset(SQL1, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rs1.Close
    End Sub
 
 
 
Private Sub type_contrat_AfterUpdate()
 
    Dim a, b As Integer
 
    a = SQL1
    b = 750 - 1
    If type_contrat = 1 Then MsgBox "Il vous reste à ce jour " & a & " ETP disponibles" Else MsgBox "Il vous reste à ce jour " & b & " contrats disponibles"
 
 
End Sub
En vous remerciant par avance pour votre aide.