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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
| Option Compare Database
Option Explicit
Private Sub btnRmoniteur_Click()
'ceci se produit lors d'un clic sur btnRmoniteur
Dim StrSQL As String
' on fabrique ici le sql d'un requête
StrSQL = "select palanquee.NumPalanquee, moniteur.NomMoniteur, "
StrSQL = StrSQL & "site.LibelleSite, palanquee.DatePalanquee from palanquee, moniteur, site "
StrSQL = StrSQL & "where palanquee.NumMoniteur = moniteur.NumMoniteur "
StrSQL = StrSQL & "and palanquee.NumSite=site.NumSite "
StrSQL = StrSQL & "and palanquee.NumMoniteur = " & Me.ldrmoniteur & ";"
Debug.Print sql ' ceci te permet de récupérer le sql dans la fenêtre d'éxécution
' récupère ce sql dans une requête et examine la en mode création
' cette requête sert maintenant de source à ton sous-formulaire
Me.requête_formulaire_palanquée_sous_formulaire.Fo
rm.RecordSource = StrSQL
Me.requête_formulaire_palanquée_sous_formulaire.Re
query
End Sub
Private Sub btnRsite_Click()
' idem que btnRmoniteur_Click, mutatis mutandis (en changeant ce qui doit l'être)
Dim StrSQL1 As String
StrSQL1 = "select palanquee.NumPalanquee, moniteur.NomMoniteur, "
StrSQL1 = StrSQL1 & "site.LibelleSite, palanquee.DatePalanquee from palanquee, moniteur, site "
StrSQL1 = StrSQL1 & "where palanquee.NumMoniteur = moniteur.NumMoniteur "
StrSQL1 = StrSQL1 & "and palanquee.NumSite=site.NumSite "
StrSQL1 = StrSQL1 & "and palanquee.NumSite = " & Me.ldrsite & ";"
Me.requête_formulaire_palanquée_sous_formulaire.Fo
rm.RecordSource = StrSQL1
Me.requête_formulaire_palanquée_sous_formulaire.Re
query
End Sub
Private Sub btnRdate_Click()
Dim StrSQL2 As String
Dim datt As String
' datt = la 7, 8, 9 et 10eme position de ldrsortie (depuis la 7eme sur une longueur de 4
' + slash + équivalent ldrsortie + / suivi des 2 premiers caractères de ldrsortie
datt = Mid(Me.ldrsortie.Value, 7, 4) & "/" & Mid(Me.ldrsortie.Value, 4, 2) & "/" & Left(Me.ldrsortie.Value, 2)
StrSQL2 = "select palanquee.NumPalanquee, moniteur.NomMoniteur, "
StrSQL2 = StrSQL2 & "site.LibelleSite, palanquee.DatePalanquee from palanquee, moniteur, site "
StrSQL2 = StrSQL2 & "where palanquee.NumMoniteur = moniteur.NumMoniteur "
StrSQL2 = StrSQL2 & "and palanquee.NumSite=site.NumSite "
StrSQL2 = StrSQL2 & "and palanquee.DatePalanquee = #" & datt & "# ;"
' debug print StrSQL2 pour visualiser ce que cela donne comme requête
Me.requête_formulaire_palanquée_sous_formulaire.Fo
rm.RecordSource = StrSQL2
Me.requête_formulaire_palanquée_sous_formulaire.Re
query
End Sub
Private Sub btnRnumPalanquee_Click()
' voir les cas précédents
Dim StrSQL3 As String
StrSQL3 = "select palanquee.NumPalanquee, moniteur.NomMoniteur, "
StrSQL3 = StrSQL3 & "site.LibelleSite, palanquee.DatePalanquee from palanquee, moniteur, site "
StrSQL3 = StrSQL3 & "where palanquee.NumMoniteur = moniteur.NumMoniteur "
StrSQL3 = StrSQL3 & "and palanquee.NumSite=site.NumSite "
StrSQL3 = StrSQL3 & "and palanquee.NumPalanquee = " & Me.ldrnumero_palanquée & ";"
Me.requête_formulaire_palanquée_sous_formulaire.Fo
rm.RecordSource = StrSQL3
Me.requête_formulaire_palanquée_sous_formulaire.Re
query
End Sub
Private Sub menu_Click()
'tu ouvres (d'une manière fort compliquée !) un formulaire nommé "Menu"
'DoCmd.OpenForm "menu"
' eût été plus simple
On Error GoTo Err_menu_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_menu_Click:
Exit Sub
Err_menu_Click:
MsgBox err.Description
Resume Exit_menu_Click
End Sub
Private Sub raz_Click()
' tu provoques la remise à blanc des différents champs
Me.ldrnumero_palanquée = ""
Me.ldrsortie = ""
Me.ldrsite = ""
Me.ldrmoniteur = ""
End Sub |
