Discussion :

[possible924]

Bonjour à tous,
Dans une table dans laquelle se trouve un champ comportant une liste de nombre, 232 233 234 237
je voudrais pouvoir trouver la première occurrence libre, soit 235
Merci par avance pour votre aide
Pierre

[ClaudeLELOUP]

Bonjour,

Voici une fonction qui devrait faire l'affaire.

Elle part du principe que le plus petit nombre actuel est le point de départ.

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
ublic Function OccurrenceLibre(NomTable As String, NomColonne As String) As Long
  Dim Precedent As Long
  Dim rs As Recordset
  Set rs = CurrentDb.OpenRecordset("select " & NomColonne & " From " & NomTable & " Order by " & NomColonne & ";")
  Precedent = rs(NomColonne)
  rs.MoveNext
  Do Until rs.EOF
   If rs(NomColonne) > Precedent + 1 Then
       OccurrenceLibre = Precedent + 1
       Exit Function
     Else
       Precedent = rs(NomColonne)
       rs.MoveNext
   End If
  Loop
  'Si on arrive ici, c'est que tous les N° se suivent
  OccurrenceLibre = Precedent + 1
End Function

P.-S. Ce code requiert la bibliothèque Microsoft DAO X.X ObjectLibrary

[possible924]

Merci,
ça fonctionne parfaitement !
C'est toujours un bonheur de s'adresser aux experts de ce site.
Pierre

[Chtulus]

Bonjour,

Dans ce cas @possible924 pensez à celui qui vous a aider