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
|
Private Sub btnExecuterRequetes_Click()
On Error GoTo Catch
If validerParametres Then
obtenirDonneesACTE_OPTO_DT
MsgBox "Exécution terminé"
End If
GoTo Finally
Catch:
'Faire afficher le message d'erreur
MsgBox Err.Description, vbCritical, "Erreur " & Err.Number
JournaliserErreur Err.Number, Err.Source, Err.Description, "OP2008-003"
Finally:
End Sub
Private Sub obtenirDonneesACTE_OPTO_DT()
Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("ACTE_OPTO_DT")
'Paramètres
qdf.Parameters("DEBUT").Value = pDateDebut
'Exécuter la requête
qdf.Execute
End Sub |
Partager