1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Private Sub NOM_AfterUpdate()
Dim nomselection As String
Dim prenomselection As String
Dim strsql As String
Dim strcondnom As String
Dim strcondprenom As String
Dim strsqlbis As String
nomselection = NOM
prenomselection = Me!NOM.Column(1)
strcondprenom = Chr$(34) & prenomselection & Chr$(34) & "))"
strcondnom = Chr$(34) & nomselection & Chr$(34) & ")"
strsql = "SELECT avertos.NOM, avertos.Prénom, avertos.CLASSE, avertos.[Date de l'averto], avertos.[averto donné par], avertos.Motif, avertos.[Averto à imprimer], avertos.[Averto déjà imprimé], professeurs.Titre, professeurs.Discipline"
strsql = strsql & " FROM avertos INNER JOIN professeurs ON avertos.[averto donné par] = professeurs.NOM"
strsql = strsql & " where ((([avertos].[NOM]) = " & strcondnom & " and (([avertos].[Prénom]) = " & strcondprenom
DoCmd.OpenReport "averto(s) d'un élève", acViewDesign
Reports![averto(s) d'un élève].RecordSource = strsql
DoCmd.OpenReport "averto(s) d'un élève", acViewPreview
End Sub |
Partager