Requete:
Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
SELECT Salaries.MatriculeSal, Salaries.NomSal, Salaries.PrenomSal, Emploi.LibelleEmploi, Services.LibelleServ, Elements_Absences.NumeroAbs, Elements_Absences.DateAbsDeb, Elements_Absences.DuréeAbs, Elements_Absences.EtatAbsence, Types_Absences.LibelleTypeAbs FROM Types_Absences, Elements_Absences, Services, Salaries, Emploi WHERE Types_Absences.NumeroTypeAbs = Elements_Absences.NumeroTypeAbs AND Elements_Absences.MatriculeSal = Salaries.MatriculeSal AND Services.NumeroServ = Salaries.NumeroServ AND Salaries.NumEmploi = Emploi.NumEmploi AND (YEAR(Elements_Absences.DateAbsDeb)= ?) AND (Salaries.MatriculeSal = ?)


et j'ai le code suivant derrière un bouton:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error GoTo gesterror
Dim annee As String
Dim mat As String
DataReport4ListeAbsenceUnSalarie.ConnectionSalar.Open
annee = InputBox("Entrer l'année :", "Liste des employés absents pendant l'année")
mat = InputBox("Entrer le matricule du salarie:", "Absence d'un employé pendant l'année")
DataReport4ListeAbsenceUnSalarie.Orientation = rptOrientLandscape
DataEnvironmentServices.CmdUnSal1anne(annee, mat)
DataReport4ListeAbsenceUnSalarie.CmdUnSal1anne.Close

gesterror:
If Err.Number = 3704 Then
DataEnvironmentServices.ConnectionSalar.Close
End If
le problème se trouve au niveau de la partie en rouge ou je doit normalement rentrer 2 variables differentes notamment: annee et mat