Discussion :

[JenTry]

Bonjour,

J'ai un bouton "nouvel enregistrement" sur mon formulaire
En cliquant sur ce bouton j'ai une boite de dialogue qui s'affiche pour me demander si je veux ou non ajouter un enregistrement.

En cliquant sur oui, je veux que le bouton "nouvel enregistrement" de mon formulaire se desactive mais j'ai le message suivant:
"Impossible de desactiver le controle actif"

Est-ce qu'il y à un moyen de contourner ce problème?

Voici mon code

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
26
27
28
29
30
31
32
Private Sub Btn_NouvelEnregistrement_Click()
 
Dim Msg, Style, Title, Response
 
Msg = "Voulez-vous ajouter un nouvel enregistrement?"    
Style = vbYesNo + vbQuestion + vbDefaultButton1    
Title = "Nouvel enregistrement "    
Response = MsgBox(Msg, Style, Title)
 
    If Response = vbYes Then 
 
                Me.GroupeChoix1.Value = Null
                Me.Btn_NouvelEnregistrement.Enabled = False
 
		On Error GoTo Err_Btn_NouvelEnregistrement_Click
 
    		DoCmd.GoToRecord , , acNewRec 
 
		Exit_Btn_NouvelEnregistrement_Click:
        	Exit Sub
 
		Err_Btn_NouvelEnregistrement_Click:
    		MsgBox Err.Description
    		Resume Exit_Btn_NouvelEnregistrement_Click
 
    Else
 
        	DoCmd.Close    'Ferme le formulaire
 
    End If
 
End Sub

Merci d'avance pour vos réponses

[Invité]

Bonjour

Aprés l'évènement click de ton bouton il faut que tu mettes le focus sur un autre contrôle (un bouton, une zone de texte peu importe) avec l'instruction SetFocus.

Starec

[JenTry]

Merci Starec
Simple comme bonjour mais encore faut-il y penser...