Requete:
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:
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
Partager