Discussion :

[fins51]

Bonjour!
je n'ai plus qu'à créer un fichier "mde" de ma base mais dans le code qui suit, je ne sais empecher la question de l'enregistrement de l'état, donc message d'erreur!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Qui peut m'aider, le VBA est du chinois pour moi...

[LedZeppII]

Bonsoir,

ce que tu pourrais faire, c'est avoir comme source de données de l'état la requête

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
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
FROM avertos INNER JOIN professeurs ON avertos.[averto donné par] = professeurs.NOM

puis ouvrir l'état filtré avec une condition (WHERE)

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub NOM_AfterUpdate()
Dim nomselection As String
Dim prenomselection As String
Dim strWhere 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) 
 
strWhere = "([avertos].[NOM] = " & strcondnom & ") and ([avertos].[Prénom] = " & strcondprenom & ")"
 
DoCmd.OpenReport "averto(s) d'un élève", acViewPreview,,strWhere
End Sub

car je pense que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenReport "averto(s) d'un élève", acViewDesign

ne fonctionne pas dans un mde.

A+