Mettre du code sur un etat access

Résolu
Bonjour,
.
Je debute avec Access et j'ai un problème. Je vous explique : j'ai un champ texte avec 4 valeurs possibles et j'aimerais représenter ça dans mon etat par des radio boutons mais l'assistant création de groupes d'options n'accepte pas les valeurs textuelles. Donc je voudrais faire ça par du code.
J'ai déjà codé en vb.net donc pour le code je devrais m'en sortir mais là je voudrais faire ça avec l'interface d'Access et VBA et je ne sais tout simplement pas par où commencer. Où faut-il mettre le code ? Dans un module ? Sur quel évènement ?
Quelqu'un pourrait-il me détailler la procédure ?
.
Merci beaucoup !

3 réponses

  1. Merci beaucoup pour votre réponse ! En fait j'avais fait quelques tentatives mais sans passer par un formulaire. Je vais donc réessayer et je vous tiens au courant.
    1. 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

      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

      Discussions similaires

      Quick Access service

      4 réponses