Bonjour tout le monde,
Je vous sollicite car j'ai un problème avec du code VBA et je n'arrive pas a trouver la solution.
Voici mon code :
et mon erreur se situent sur cette ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim db As DAO.Database Dim rst As DAO.Recordset Dim sSQL As String Dim v1 As String v1 = 0 Set db = CurrentDb sSQL = "Select * From RFicheOrganisationNumForm" Set rst = db.OpenRecordset(sSQL) rst.MoveFirst Do Until rst.EOF v1 = v1 + rst!NbStagiaires rst.MoveNext Loop Set rst = Nothing
Ma requete "RFicheOrganisationNumForm" affiche les enregistrements qui comportent le meme NumForm que mon formulaire actif. Mon but etant d'additionner le nombre de stagiaires de chaque enregistrement dans ma variable v1.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set rst = db.OpenRecordset(sSQL)
Voila je pense avoir été clair mais n'hesitez pas à me poser des questions. Si vous voyez un autre moyen de parvenir à faire l'addition de mes stagiaires je suis preneur aussi
Merci!
Partager