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
| Private Function SourcePhotoCheminement()
Me.RecordSource = "SELECT Tab_Cheminement.Num_Auto_Cheminement," _
& " Tab_Cheminement.Num_Rue," _
& " Tab_Cheminement.Cheminement," _
& " Tab_Cheminement.Description_Chemin," _
& " Tab_Cheminement.Photo_A, Tab_Cheminement.Photo_B" _
& " FROM Tab_Cheminement" _
& " WHERE (((Tab_Cheminement.Num_Rue)=[Formulaires]![Form_Photo_Point_de_contrôle]![Txt_Num_Rue])" _
& " AND ((Tab_Cheminement.Cheminement)=[Formulaires]![Form_Photo_Point_de_contrôle]![List_Itinéraire]));"
End Function
Private Function SourceListItinéraireCheminement()
Me.List_Itinéraire.RowSource = " SELECT Tab_Cheminement.Cheminement," _
& " Tab_Cheminement.Description_Chemin" _
& " FROM Tab_Cheminement" _
& " WHERE (((Tab_Cheminement.Num_Rue) = [Formulaires]![Form_Photo_Point_de_contrôle]![Txt_Num_Rue]))" _
& " ORDER BY Tab_Cheminement.Cheminement;"
Me.List_Itinéraire = Null
Me.List_Itinéraire.Requery
Me.List_Itinéraire = Me.List_Itinéraire.ItemData(0)
Me.Txt_Description = Me.List_Itinéraire.Column(1)
MsgBox "Me.List_Itinéraire.Column(1) " & Me.List_Itinéraire.Column(1)
End Function
Private Function SourcePhotoPassagePiéton()
Me.RecordSource = " SELECT Tab_Passage_Piéton.Num_Auto_Passage_Piéton," _
& " Tab_Passage_Piéton.Num_Rue," _
& " Tab_Passage_Piéton.Passage_Piéton," _
& " Tab_Passage_Piéton.Description_Passage," _
& " Tab_Passage_Piéton.Photo_A, Tab_Passage_Piéton.Photo_B" _
& " FROM Tab_Passage_Piéton" _
& " WHERE Tab_Passage_Piéton.Num_Rue= " & Me.Txt_Num_Rue _
& " AND Tab_Passage_Piéton.Passage_Piéton= '" & Me.List_Itinéraire & "'"
'& " WHERE (((Tab_Passage_Piéton.Num_Rue)=[Formulaires]![Form_Photo_Point_de_contrôle]![Txt_Num_Rue])" _
'& " AND ((Tab_Passage_Piéton.Passage_Piéton)=[Formulaires]![Form_Photo_Point_de_contrôle]![List_Itinéraire]));"
End Function
Private Function SourceListItinérairePassagePiéton()
Me.List_Itinéraire.RowSource = " SELECT Tab_Passage_Piéton.Passage_Piéton," _
& " Tab_Passage_Piéton.Description_Passage," _
& " FROM Tab_Passage_Piéton" _
& " WHERE (((Tab_Passage_Piéton.Num_Rue) = [Formulaires]![Form_Photo_Point_de_contrôle]![Txt_Num_Rue]))" _
& " ORDER BY Tab_Passage_Piéton.Passage_Piéton;"
Me.List_Itinéraire = Null
Me.List_Itinéraire.Requery
Me.List_Itinéraire = Me.List_Itinéraire.ItemData(0)
Me.Txt_Description = Me.List_Itinéraire.Column(1)
MsgBox "Me.List_Itinéraire.Column(1) " & Me.List_Itinéraire.Column(1)
End Function |
Partager