Private Sub Form_Load()
Dim str As String
Dim str2 As String
'visibilité des champs
zmb_scene.Visible = False
zmb_back.Visible = False
zmb_necessaire_scene.Visible = False
zmb_necessaire_back.Visible = False
znom.Visible = False
zprenom.Visible = False
lst_compet.Visible = False
et_message.Visible = False
Cadre16.Visible = False
Cadre24.Visible = False
zselection.Visible = False
lst_scene.Value = "Selectionnez !"
lst_mb.Value = "Selectionnez !"
zselection.Locked = True
et_1.Visible = False
et_2.Visible = False
str = "select CODE_MB, NOM_MB, PRENOM_MB FROM MB_SECURITE ;"
lst_mb.RowSource = str
str2 = "SELECT CODE_SCENE, NOMSCENE FROM SCENE;"
lst_scene.RowSource = str2
End Sub
Private Sub lst_mb_Click()
'
ZONE DE LISTE DEROULANTE = MB_SECURITE
Dim str As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
znom.Visible = True
zprenom.Visible = True
lst_compet.Visible = True
zselection.Visible = True
et_1.Visible = True
et_2.Visible = True
str = "select NOM_MB from MB_SECURITE where CODE_MB ='" & lst_mb.Value & "';"
znom.RowSource = str
str2 = "select PRENOM_MB from MB_SECURITE where CODE_MB ='" & lst_mb.Value & "';"
zprenom.RowSource = str2
str3 = "select C.CODE_COMPE, DESIGN_COMPE from POSSEDER P,COMPETENCES C where (C.CODE_COMPE=P.CODE_COMPE) AND (P.CODE_MB ='" & lst_mb.Value & "');"
lst_compet.RowSource = str3
'si le membre de la sécurité a déja été affecté à une scène :
'afficher l'étiquette pour le signaler
str4 = "select CODE_SCENE from MB_SECURITE where CODE_MB ='" & lst_mb.Value & "';"
Liste76.RowSource = str4
If (Liste76.Value = Null) Then
et_message.Visible = False
et_message.Caption = ""
Else
et_message.Visible = True
et_message.Caption = "ATTENTION! Le membre de la sécurité que vous avez selectionné a déjà été affecté à une scène. Si vous validez ce choix, l'affectation de ce membre changera pour celle que vous avez selectionné."
End If
End Sub
Private Sub lst_scene_Click()
'ZONE DE LISTE DEROULANTE = SCENE
Dim str As String
Dim str1 As String
Dim mb_type As String
Dim mb_type2 As String
Dim scene As String
zmb_scene.Visible = True
zmb_back.Visible = True
zmb_necessaire_scene.Visible = True
zmb_necessaire_back.Visible = True
Cadre16.Visible = True
Cadre24.Visible = True
scene = lst_scene.Value
'membres affectés reelement à cette scene
str = "select MB_SCENE from SCENE where CODE_SCENE = '" & scene & "' ;"
str1 = "select MB_BACKSTAGE from SCENE where CODE_SCENE = '" & scene & "' ;"
zmb_scene.RowSource = str
zmb_back.RowSource = str1
'membres qu'il faudrait réelement à cette scene
mb_type = "select MB_EFFSCENE from TYPE_SCENE where CODE_TYPE = (select CODE_TYPE from SCENE where CODE_SCENE = '" & scene & "') ;"
mb_type2 = "select MB_EFFBACKSTAGE from TYPE_SCENE where CODE_TYPE = (select CODE_TYPE from SCENE where CODE_SCENE = '" & scene & "') ;"
zmb_necessaire_scene.RowSource = mb_type
zmb_necessaire_back.RowSource = mb_type2
End Sub
Private Sub btn_fermer_Click()
DoCmd.Close
DoCmd.OpenForm "MENU_GENERAL"
End Sub
Private Sub btn_valider_Click()
'MEMBRE REELEMENT AFFECTEE A LA SCENE =+1
'ATTENTION SI ON CHANGE FAIRE GAFFE DE RENTIRER UN A LA SCENE PRECEDEMMENT SELECTIONNEE
Dim SQl As String
If (zselection = "") Or (lst_mb = "") Or (lst_scene = "") Then
et_message.Visible = True
et_message.Caption = ("Veuillez entrer tous les champs avant de pouvoir valider l'affectation ")
Else
SQl = "Update MB_SECURITE Set CODE_SCENE = '" & lst_scene.Value & "' where CODE_MB = '" & lst_mb.Value & "'; "
DoCmd.RunSQL SQl
MsgBox ("Enregistrement Effectué")
' une fois enregistrée remise des champs à zéro
'visibilité des champs comme à l'ouverture
zmb_scene.Visible = False
zmb_back.Visible = False
zmb_necessaire_scene.Visible = False
zmb_necessaire_back.Visible = False
znom.Visible = False
zprenom.Visible = False
lst_compet.Visible = False
et_message.Visible = False
Cadre16.Visible = False
Cadre24.Visible = False
zselection.Visible = False
lst_scene.Value = "Selectionnez !"
lst_mb.Value = "Selectionnez !"
End Sub
Partager