Explication code VBA svp

**Guns Of The Patriots** · 06/06/2008, 18h10

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

**ClaudeLELOUP** · 07/06/2008, 16h44

Bon courage !

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
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

**Guns Of The Patriots** · 08/06/2008, 11h41

Envoyé par ClaudeLELOUP

Bon courage !

Code :

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

1
2
 
 Debug.Print sql    ' ceci te permet de récupérer le sql dans la fenêtre d'éxécution

Je comprend tout à fait ton commentaire. C'est le résultat de ma requête, afficher dans le sous-forumlaire ?
Mais néanmoins, je ne vois pas où j'ai écris "Debug.Print sql", c'est toi qui l'a rajouter ?

Merci beaucoup, je vais retravailler dessus pour voir si j'ai tout compris. Merci encore, c'est vraiment sympa.

**ClaudeLELOUP** · 08/06/2008, 13h51

Oui.
Comme cela tu peux visualiser ce que le programme génère comme sql.
C'est toujours intéressant quand tu essaies de comprendre ce qui se passe.
Tu l'enlèves ensuite.

**Guns Of The Patriots** · 08/06/2008, 15h06

Ok, merci bien.

Et pour ce qui est de :

Code :

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

1
2
3
Me.requête_formulaire_palanquée_sous_formulaire.Form.RecordSource = StrSQL 
 
Me.requête_formulaire_palanquée_sous_formulaire.Requery

Si on ne met pas ça, le formulaire ne peut pas fonctionner ?
Je ne comprend pas à quoi ça sert exactement ? C'est à faire fonctionner le formulaire ?

**ClaudeLELOUP** · 10/06/2008, 10h13

Code :

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

1
2
3
4
5
6
 
'Ceci pour aménager le source de ton sous-formulaire 
Me.requête_formulaire_palanquée_sous_formulaire.Form.RecordSource = StrSQL 
'ceci pour le "réveiller" après son opération 
'(on vient de lui greffer une nouvelle source, ce n'est pas rien 
Me.requête_formulaire_palanquée_sous_formulaire.Requery

Pour répondre à ta question précédente (que je n'avais pas vue) :
oui, c'est indispensable !

**Guns Of The Patriots** · 10/06/2008, 12h33

Merci beaucoup !

Explication code VBA svp

VBA Access

Discussions similaires

Partager

Partager