bonjour je me demandais comment on fait pour mettre un enregistrement dans un recordset

Je pars du code de quelqu'un d'autre afin de rajouter un autre formulaire. sauf que je ne sais pas comment faire en sorte que le recordcount soit plus grand que 1

je vous mets une partie du code avec le surligné de ou je dois faire en sorte que cela soit plus grand que 1

J'ai aussi essayé de juste passer par dessus, mais plus loin sinon il me mets un erreur de record set vide...


enfin merci beaucoup

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
'Génère un formulaire vierge
Private Sub cmdCreerFormulaire_Click()
On Error GoTo Err_cmdCreerFormulaire_Click
    
    'Variables de travail du ficher Excel(.xls)
    Dim sExcelApp As Excel.Application
    Dim sEWorkbook As Excel.Workbook
    
    'Variables de manipulation de tables
    Dim sRst As DAO.Recordset
    Dim sQdf As DAO.QueryDef
    
    If gIsProcessing Then
        MsgBox "GeCos est présentement en train de traiter une autre demande." & vbCrLf & "GeCos ne peut traiter plus d'une demande à la fois", vbExclamation, "GeCos - Traitement"
        Exit Sub
    End If
    
    gIsProcessing = True
    
    If IsNull(Me.lstFormulaires.Value) Then
        MsgBox "Le formulaire que vous avez sélectionné n'existe pas ou est incomplet." & vbCrLf & vbCrLf & "S.V.P. choisir un autre formulaire.", vbInformation, "GeCos - Génération d'un formulaire"
        GoTo Exit_cmdCreerFormulaire_Click
    End If
    
    'Établissement du paramètre de la requête rqtFormulaireDetails
    Set sQdf = CurrentDb.QueryDefs("rqtFormulaireDetails")
    sQdf.Parameters("pNoFormulaire") = Nz(Me.lstFormulaires.Value, "0")
    
    'Exécution de la requête en lecture
    Set sRst = sQdf.OpenRecordset
    
    If sRst.RecordCount < 1 Then
        MsgBox "Le formulaire que vous avez sélectionné n'existe pas ou est incomplet." & vbCrLf & vbCrLf & "S.V.P. choisir un autre formulaire.", vbExclamation, "GeCos - Génération d'un formulaire"
        GoTo Exit_cmdCreerFormulaire_Click
    End If
    
    sRst.MoveLast
    sRst.MoveFirst
Marie