Mettre du code sur un etat access
Résolu/Fermé
A voir également:
- Mettre du code sur un etat access
- Mettre du code sur un etat access ✓ - Forum - Programmation
- Access code VBA dans état ✓ - Forum - Access
- Justifier un texte dans un état Access 2016 ✓ - Forum - Access
- Etats Access, changer la couleur du fond VBA ✓ - Forum - Access
- Calcul de Pourcentage dans un etat Access ✓ - Forum - Access
3 réponses
f894009
Modifié par f894009 le 30/06/2012 à 12:26
- Messages postés
- 16493
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 22 mai 2022
Modifié par f894009 le 30/06/2012 à 12:26
Bonjour,
Exemple pour mettre du code dans un etat ACCESS:
ouvrir l'etat en mode creation
boutons radio (optionx) dans detail
pointer la souris sur l'etat
click droit
propriete evenement: prendre un evenement, definir une procedure evenementielle
click sur les ... pour acceder au VBA
ensuite
fenetre code vba en haut a gauche, liste deroulante, choisir Detail pour obtenir
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
end sub
Supprime le code permettait d'acceder au VBA
Exemple de code: pour Boutons Option
Pour voir les effets du code, il faut ouvrir l'etat par un formulaire et un bouton, pas par un double click sur l'etat (le code ne s'execute pas!!!).
A votre service pour toute aide a ce sujet
Exemple pour mettre du code dans un etat ACCESS:
ouvrir l'etat en mode creation
boutons radio (optionx) dans detail
pointer la souris sur l'etat
click droit
propriete evenement: prendre un evenement, definir une procedure evenementielle
click sur les ... pour acceder au VBA
ensuite
fenetre code vba en haut a gauche, liste deroulante, choisir Detail pour obtenir
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
end sub
Supprime le code permettait d'acceder au VBA
Exemple de code: pour Boutons Option
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) Select Case Me.num_centre Case 1 Me.num_centre.ForeColor = vbRed Me.num_centre.BackColor = vbYellow Me.Option11.Value = True Me.Option13.Value = False Me.Option15.Value = False Case 2 Me.num_centre.ForeColor = vbBlue Me.Option11.Value = False Me.Option13.Value = True Me.Option15.Value = False Case 3 Me.num_centre.ForeColor = vbGreen Me.Option11.Value = False Me.Option13.Value = False Me.Option15.Value = True Case Else End Select End Sub
Pour voir les effets du code, il faut ouvrir l'etat par un formulaire et un bouton, pas par un double click sur l'etat (le code ne s'execute pas!!!).
A votre service pour toute aide a ce sujet