Requête paramétrée

Merci infiniment Christounet, SUjet résolut ;)

Bonjour,

Si tu veux lire tous les enregistrements, tu dois effectivement utiliser une boucle jusqu'à la fin du recordset,
mais tu n'est pas obligé de lire tous les enregistrements du recordset, tu peux éventuellement sortir de la boucle WHILE avec une deuxième condition. Exemple

Function GetAllPrenoms() As String
  
  Dim AllPrenoms As String
  
  Dim PrenomTrouve As Boolean
  
  AllPrenoms = ""
  PrenomTrouve = False

  Dim RecordRead As Recordset
  Set RecordRead = CurrentDb.OpenRecordset("Noms")
  
  RecordRead.MoveFirst
  
  While PrenomTrouve = False And Not RecordRead.EOF
    If RecordRead.Fields("FirstName") = "Cindy" Then
        PrenomTrouve = True
    Else
        If AllPrenoms = "" Then
            AllPrenoms = RecordRead.Fields("FirstName")
        Else
            AllPrenoms = AllPrenoms + " , " + RecordRead.Fields("FirstName")
        End If
        RecordRead.MoveNext
    End If
  Wend
  
  GetAllPrenoms = AllPrenoms
  
End Function

Dans cet exemple, si le prénom lu est égal à Cindy, la boucle while sera stoppée.

Tu trouveras ici une documentation concernant les différents MOVE que tu peux faire dans un recordset, et tu peux voir qu'il est possible de lire l'enregistrement précédent.
A plus

Salut Christounet :)
merci pour ta réponse, je m'en doutais que les procédures stockées SQL Server ne marcherais pas avec Access. Depuis je suis passé à la programmation VBA. Cela répond très bien à mes besoins car programmer avec VB s'avère très simple.
Pour résumer, ta procédure marcherais surement car me suis converti vers les RecordSet de la technologie ADO. Sa syntaxe est correcte.
Encore merci.
Je vais la tester dès demain au boulo.
Dernière question : Suis-je toujours obligé pour naviguer entre enregistrement du recordset de faire la boucle While tant que je n'attein pas la fin de fichier recordSet?
Cette dernière boucle, puis-je y mettre une autre du même type pour faire des conditions selon la valeur d'un champ de l'enregistrement dans lequel j'y sui et faire un MovePrevious pour retourner vers l'enregistrement de la boucle précédente?

Merci infiniment.

Bonjour,

Sorry pour cette réponse tardive, très long week-end. Je ne pense pas que tu puisses faire cela avec une seule requête, mais je te propose de le faire de la façon suivant
1°) Création d'une fonction dans Acces

Function GetAllPrenoms() As String
  
  Dim AllPrenoms As String
  
  AllPrenoms = ""
    
  Dim RecordRead As Recordset
  Set RecordRead = CurrentDb.OpenRecordset("T_RECEPTION")
  
  RecordRead.MoveFirst
  
  While Not RecordRead.EOF
    If AllPrenoms = "" Then
        AllPrenoms = RecordRead.Fields("P_REC_LASTNAME")
    Else
        AllPrenoms = AllPrenoms + " , " + RecordRead.Fields("FirstName")
    End If
    RecordRead.MoveNext
  Wend
  
  GetAllPrenoms = AllPrenoms
  
End Function

2°) Une requête

SELECT GetAllPrenoms() As AllPrenoms

Je testé les deux sous Access (je n'ai qu'une dizaine de lignes) et cela fonctionne.
A toi de voir
A plus

Salut,
Non je veux concaténer les valeur de P_REC_LASTNAME dans le champs ALL_PRENOM.
Merci,

Bonjour,

J'ai pas très bien compris ta question, veux-tu avoir dans un seul champ la valeur de P_REC_LASTNAME concaténée avec celle de P_REC_FIRSTNAME ?
A plus