RecordCount avec un recordset
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:
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
