Bonjour, avant de poster j'ai regarder sur la FAQ mais je n'ai pas réussi à faire fonctionner ce qui était indiqué (enfin le résultat obtenu n'est pas bon). Voila mon problème, je veux appeler les candidats concernant une offre, pour l'instant les candidats sont triés par numéro d'identifiant et je voudrais les trier par nom.
Voila le code que j'ai essayé...
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44 Sub ouvrir_listing(ref As String) Dim mabd As Database Set mabd = CurrentDb Dim f As DAO.Recordset Set f = mabd.OpenRecordset("Estpositionnesur") Dim e As DAO.Recordset Set e = mabd.OpenRecordset("Candidat") DoCmd.OpenForm ("Listing_sur_Offre") Forms![Listing_sur_Offre]![reference_offre] = Forms![Modif_Offre]![reference] Dim marko marko = 0 Dim phrase Do Until f.EOF If (f!Num_offre = ref) Then e.MoveFirst Do Until e.EOF If (f!num_candidat = CInt(e!reference_candidat)) Then If (marko = 0) Then Forms![Listing_sur_Offre]![la_liste].RowSource = f!num_candidat marko = 1 Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & e!nom Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & e!prenom Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & e!mail Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & f!etat & " (" & f!date & ")" Forms![Listing_sur_Offre].OrderBy = e!nom Forms![Listing_sur_Offre].OrderByOn = True Else Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & f!num_candidat Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & e!nom Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & e!prenom Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & e!mail Forms![Listing_sur_Offre]![la_liste].RowSource = Forms![Listing_sur_Offre]![la_liste].RowSource & ";" & f!etat & " (" & f!date & ")" Forms![Listing_sur_Offre].OrderBy = e!nom Forms![Listing_sur_Offre].OrderByOn = True End If End If e.MoveNext Loop End If f.MoveNext Loop f.Close e.Close End Sub
Partager