Tout d'abord, bonjour à tous.
Je suis nouveau et si je m'inscris ici c'est parce que j'aimerai avoir votre aide s'il vous plait.

J'ai effectué un formulaire dans un formulaire autrement dit un sous formulaire sous la BDD Access dont son objectif est de faire des recherche sur des palanquées via différents critères. J'ai donc réaliser des boutons avec du code VBA derrière derrière, je me suis fait aider par quelqu'un pour réaliser ce programme.

Si quelqu'un pouvait me mettre des commentaires sous chaque partie importante afin de m'aider à mieux comprendre. Car même si on m'a aidé, j'aimerai tout bien comprendre car je ne comprend pas tout.
Donc si quelqu'un aurait la patience et la gentillesse de me mettre des commentaires sous une autre couleur par exemle pour mon programme, ça serait vraiment sympa, sinon tampis.

Merci d'avance.


PS : Désolé pour mes fautes, j'essaye de faire de mon mieux

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
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
Private Sub btnRmoniteur_Click() 
 
Dim StrSQL As String 
 
 
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 & ";" 
 
 
 
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() 
 
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 = 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 & "# ;" 
 
 
 
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() 
 
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() 
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() 
 
Me.ldrnumero_palanquée = "" 
Me.ldrsortie = "" 
Me.ldrsite = "" 
Me.ldrmoniteur = "" 
 
End Sub