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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
|
Voici le code que j'ai testé pour le format String et j'ai aussi testé pour le format date et j'ai le même problème, aucune ouverture du recordset.
'TEST DateModif sur STRING
Dim ScodeProjet, lCodeProjet As String
Dim MESSAGE, Msg, Style, Title, Reponse, Default
Dim Fichier As String
'------------
Dim sql, sql1 As String
Dim DDateModif, resultatDDat, resultatDDateModif As Date
Dim sDateModif, resultatLCode, resultatNomP, resultatPNomP, resultatEkol, resultatCS As String
Dim resultatAllDat1, resultatDat2, resultatDat3, resultatDat4, resultatDat5, resultatDat6 As String
Dim resultatsDateModif, resultatsDat As String
Dim Paramètre, NomFichier
Sub AccProjet1DPbis2a() '-'-'-'- 3oct2021
On Error GoTo AccProjet1DPBis2a_err
Fichier = "AccordAllocationProjetDP" '
ChDir "C:\Users\" & Environ$("UserName") & "\OneDrive - MEES\PartageMtl\Listes\Allocation\"
ScodeProjet = InputBox("Saisissez le code projet :", "Accord allocation - code de projet.", Default)
sDateModif = InputBox("Inscrire la date de modification:", "Format de la date : aaaa-mm-jj", Default)
Call NomPDF_AccordBisa
'---------------
Paramètre = ScodeProjet & " - " & resultatCS & "-" & resultatEkol & "- " & resultatNomP & ", " & resultatPNomP & " - Allocation P1 " & resultatAllDat1 & " " & resultatsDateModif ' Extraire avec la date de modification
NomFichier = ScodeProjet & " - " & resultatCS & "-" & resultatEkol & "- " & resultatNomP & ", " & resultatPNomP & " - Allocation P1 " & resultatAllDat1 & " " & resultatsDateModif 'sauve avec la date de AllDateProjet
MsgBox "resultatsDateModif " & resultatsDateModif
DoCmd.OutputTo acOutputReport, Fichier, acFormatPDF, Paramètre & ".pdf", False, "", , acExportQualityPrint
MsgBox "Répertoire <Listes\Allocation> = " & NomFichier & ".pdf", vbInformation, "Sauvegarde"
DoCmd.OpenReport Fichier, acViewPreview
Call ImpressionDirecte
MsgBox "Attention, si vous avez créé plusieurs allocations la même journée, il se peut qu'il y ait plusieurs formulaires dans le fichier sauvegardé", vbCritical
AccProjet1DPBis2a_err: Exit Sub
End Sub
'0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-
Sub NomPDF_AccordBisa()
Dim rst As DAO.Recordset
'sql = "SELECT [PrénomParticipant], [NomParticipant], [Ecole], [CS], [DateModif], [AllDateProjet] FROM TbInscriptionsDP WHERE CodeProjet = '" & ScodeProjet & "'" ' AND DateModif = '" & SDateModif & "'"
'sql = "SELECT [PrénomParticipant], [NomParticipant], [Ecole], [CS], [DateModif], [AllDateProjet] FROM TbInscriptionsDP WHERE CodeProjet = '" & ScodeProjet & "'" And DateModif = " & DDateModif & "
sql = "SELECT [PrénomParticipant], [NomParticipant], [Ecole], [CS], [DateModif], [AllDateProjet]" _
& " FROM TbInscriptionsDP" _
& " WHERE CodeProjet = '" & ScodeProjet & "'" _
& " AND DateModif = '" & sDateModif & "'"
Set rst = CurrentDb.OpenRecordset(sql)
resultatPNomP = rst.Fields("PrénomParticipant").Value
resultatNomP = rst.Fields("NomParticipant").Value
resultatEkol = rst.Fields("Ecole").Value
resultatCS = rst.Fields("CS").Value
resultatAllDat1 = rst.Fields("AllDateProjet").Value
MsgBox "resultatAllDat1 " & resultatAllDat1
resultatsDat = rst.Fields("DateModif").Value
MsgBox "resultatsDat " & resultatsDat
resultatsDateModif = Left(rst.Fields("DateModif").Value, 10)
MsgBox "resultatsDateModif " & resultatsDateModif
End Sub |
Partager