Discussion :

[Jsiorat]

Bonjour à tous,
Je suis intéressé par ce type de mise en forme de boîte de dialogue.
Il s'agit ici d'une BdD Access (gratuite) en forme d'exemple de création de boîte de dialogue.
Téléchargeable à cette adresse : https://www.accessui.com/Products/VBATaskDialog
C'est très instructif.
Est-ce que parmi nous, quelqu'un utilise ces exemples de boîtes de dialogue ?

Voici ce que j'aimerai obtenir :


Je voudrais pouvoir utiliser l'exemple avec des boutons radio (bouton d'option)

Comment procéder pour inscrire le nom de différentes procédures aux différents boutons radio ?
Autrement dit, quand on clique sur [Ok] comment associer l'action à un bouton radio ?

Merci pour votre réponse.

[hyperion13]

Salut
Début de réponse ici ou là

[Jsiorat]

Un grand merci pour ta réponse.
je me suis fait une petite appli pour gérer mes codes-source, qui est maintenant très fonctionnelle.

Voici le résultat de mes cogitations :
Plus de variables globales ... un simple formulaire qui se montre comme ça :
avec le code suivant pour faire fonctionner tout ça :
Pour ouvrir le formulaire :

Code :

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

1
2
 
DoCmd.OpenForm "frm_Choix_Sauvegarde", acNormal, , , , acDialog

Pour le choix et le click sur les boutons [Ok] et [Annuler] :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Option Compare Database
Option Explicit
Private Sub cmd_Cancel_Click()				‘ *** Bouton Annuler
    Me.Cadre1.Undo
    DoCmd.Close acForm, Me.Name			‘ *** Fermeture du frm
End Sub
 
Private Sub cmd_OK_Click()
Select Case Cadre1
    Case 1
        DoCmd.RunCommand acCmdSave
        MsgBox "L'enregistrement a été sauvegardé", , "G C S"      
    Case 2
        Call SauvegardeCode        
    Case 3
        DoCmd.RunCommand acCmdSave
        Call SauvegardeCode    
End Select
    DoCmd.Close acForm, Me.Name			‘ *** Fermeture du frm
End Sub
 
Private Sub Form_Open(Cancel As Integer)		‘ *** Positionnement du frm
    DoCmd.MoveSize 8000, 2500
End Sub

Si cet exemple, simplifié au maximum peut aider quelques uns ici, j'en serai heureux et ce sera un juste retour des choses.