Quelqu'un peut-il m'aider pour m'expliquer le programme s'il vous plait.
Si vous pouviez mettre des commentairs pour m'expliquer avec "'" [Comme si que c'était des commentaires en Php]

Merci d'avance.

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

__________________________________________________
_____