Discussion :

[binouzzz19]

Bonjour a toutes et a tous !!

Je viens de regarder dans le forum pour faire ceci :

Je voudrais que pour chaque personne ayant un nouveau contrat dans quelques mois, un msgBox apparaisse avec le nom, le prénom de la personne pour effectuer un rappel !!

J'effetue cette action au chargement de ma page principale, cela fonctionne mais seulement pour la premiere personne, jaimerais que ca me le fasse pour toutes les personnes concernées!!

J'ai trouvé cette solution, qui donc ne fonctionne que pour la premiere personne

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
Private Sub Form_Load()
 
    'DECLARATION
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
 
    'AFFECTATION
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("SELECT Carriere.*, Personnel.nom, Personnel.prenoms FROM Personnel LEFT JOIN Carriere ON Personnel.numEns=Carriere.numEns WHERE Carriere.dateFin > Date()", dbOpenDynaset)
 
    'EXECUTION
    MsgBox oRst.Fields("nom").Value
 
    'Libération des objets
    oRst.close
    oDb.close
    Set oRst = Nothing
    Set oDb = Nothing
 
End Sub

Bien sur j'ai mis ici seulement Date() pour faire un test au préalable !!
De plus j'avais essayé de mettre prenoms a la suite du nom mais cela ma mis une erreur !!

Je me suis dit que je devais surement faire une boucle mais je ne connais pas la syntaxe !!

Pouvez vous m'aider svp !!

Cordialement

je tiens a préciser que le bout de code a été trouvé dans le forum

[pc75]

Bonjour,

Il faut que tu boucles sur ton recordset

Code :

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

1
2
3
4
5
 
do while not oRst.eof
   MSGBOX .....
   oRst.MoveNext
loop

[Mahefasoa]

c.a.d.

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
 
Private Sub Form_Load()
 
    'DECLARATION
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
 
    'AFFECTATION
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("SELECT Carriere.*, Personnel.nom, Personnel.prenoms FROM Personnel LEFT JOIN Carriere ON Personnel.numEns=Carriere.numEns WHERE Carriere.dateFin > Date()", dbOpenDynaset)
 
    If oRst.RecordCount<>0 Then
        oRst.MoveFirst
        Do While Not oRst.EOF
           'EXECUTION
            MsgBox oRst.Fields("nom").Value
            oRst.MoveNext
            DoEvents
        Loop
    End If
    'Libération des objets
    oRst.close
    oDb.close
    Set oRst = Nothing
    Set oDb = Nothing
 
End Sub