Discussion :

[Pierre67]

Bonjour,

après recherche sur le forum j'ai pas trouvé de réponses.
Sur un formulaire Access 2003, j'ai 2 boutons radio qui si le premier est coché alors le champ B doit prendre la valeur du ChampA que je viens de saisir et si le 2 ème est coché alors il doit m'afficher un nouveau champC de ma table.
Là je ne vois pas où et comment écrire le code.
Si vous avez des pistes .........(je sais que vous les avez
merci à vous

[Gabout]

Bonjour Pierre67,

Je ne vois pas trop où tu vas... tu ne nous en donnes pas beaucoup...

Plutôt que de passer par des boutons-radio, je pense qu'il est plus facile de la faire avec des boutons de commande. Ces deux boutons appelés respectivement cmdCopie et cmdVoir pourraient générer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub cmdCopie_Click()
   Me.ChampB = Me.ChampA
End Sub
Private Sub cmdVoir_Click()
   Me.ChampC.Visible = True
End Sub

Attention cependant, cela ne fonctionne que dans un formulaire présenté en colonnes. Tu ne pourras pas gérer l'aspect visible du champC sur un formulaire continu.

A+

[Pierre67]

Bonsoir Gabout et merci pour ta réponse.
Ma projet est destiné à faire un suivi de dossier avec un formulaire de saisie.
Divers champs (demandeur, localisation, nature de la demande ...) et en suite la date de dépot, vérification si complet/incomplet(2 boutons radio). S'il est complet alors [datecomplet] = [datedepot]. par contre, s'il est incomplet le fait de cocher le bouton radio incomplet me faite appraitre un champ pour la saisie de la date de demande de pièces complémentaires.
peut-être plus clair avec cela ?

[Invité]

Bonsoir
Comme te le dis Gabout tu peux mettre deux boutons.
Tu peux également incorporer tes deux boutons-radios dans un groupe d'option en donnant la valeur 1 à ton bouton complet et 2 à ton bouton incomplet.

Après tu joues sur l'évènement "après mise à jour" de ton groupe d'option

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub CadreOption_AfterUpdate()
    If CadreOption = 1 Then
    Me.ChampB = Me.ChampA
 
    Else
   Me.ChampC.visible = True
    End If
End Sub
 Ceci avec les réserves émises par Gabout

[Pierre67]

Merci à vous,

en copiant à droite et à gauche des bouts de codes, j'étais arrivé à votre proposition.
Merci encore.
A la prochaine sans nul doute