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