A voir également:
- [VBA et ACCESS] mettre à jour enregistrement
- Mettre a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mettre a jour chromecast - Accueil - Guide TV et vidéo
- Comment mettre à jour ses pilotes - Guide
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
1 réponse
Il y a 2 procédures évenementielles (formulaire), Le champ MaM signifie Mardi matin et BMaM signifie Box (ou Salle)Mardi matin, il s'agit d'une liste déroulante qui contient les salles que l'on peut réserver pour ce jour là.
Le formulaire est affiché en mode feuille de données, il suffit :
pour le jour concerné d'y indiquer son activité et ensuite il suffit de cliquer sur la liste déroulante et d'y choisir les salles encore dispo.
Les 2 procédures ci-dessus permettent la mise à jour dès que l'on a fait son choix (MeDirty=False)
Private Sub BMaM_AfterUpdate()
On Error GoTo Fin
If MsgBox("Etes-vous sur de votre choix ?", vbYesNo + vbInformation, "Question") = vbYes Then
Me.Dirty = False
Else
End If
Exit Sub
Fin:
MsgBox "Cette salle est déjà réservée !!!"
Call BMaM_Click
End Sub
Private Sub BMaM_Click()
Dim A As String
A = ""
Me!MaM = IIf(IsNull(Me!MaM), "", Me!MaM)
If Me!MaM = "" Then
Do Until Me!MaM <> ""
A = InputBox("Entrez d'abord votre activité, svp ")
Me!MaM = A
Loop
Call BMaM_AfterUpdate
End If
Call Box_Fev_2
End Sub
Le formulaire est affiché en mode feuille de données, il suffit :
pour le jour concerné d'y indiquer son activité et ensuite il suffit de cliquer sur la liste déroulante et d'y choisir les salles encore dispo.
Les 2 procédures ci-dessus permettent la mise à jour dès que l'on a fait son choix (MeDirty=False)
Private Sub BMaM_AfterUpdate()
On Error GoTo Fin
If MsgBox("Etes-vous sur de votre choix ?", vbYesNo + vbInformation, "Question") = vbYes Then
Me.Dirty = False
Else
End If
Exit Sub
Fin:
MsgBox "Cette salle est déjà réservée !!!"
Call BMaM_Click
End Sub
Private Sub BMaM_Click()
Dim A As String
A = ""
Me!MaM = IIf(IsNull(Me!MaM), "", Me!MaM)
If Me!MaM = "" Then
Do Until Me!MaM <> ""
A = InputBox("Entrez d'abord votre activité, svp ")
Me!MaM = A
Loop
Call BMaM_AfterUpdate
End If
Call Box_Fev_2
End Sub