Discussion :

[Piou2fois]

Bonjour
Est-il possible de désactiver les "ctrl+pagedown" "F5" etc. qui font changer mes enregistrements actifs de mon formulaire alors qu'il est piloté via des listes avec :

Code :

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

1
2
3
4
5
6
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.Find "[offres_id] = " & Str(Nz(Me![offres_revision], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Set rs = Nothing

[LedZeppII]

Bonjour,

Tu peux filtrer les touches au niveau du formulaire.
Dans l'onglet «Evénements» de la fenêtre de propriétés du formulaire, mettre la propriété «Aperçu des touches» sur «Oui».
Ensuite gérer l'événement «Sur touche appuyée»

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
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
Select Case KeyCode
    ' Touche F5
    Case vbKeyF5
        KeyCode = 0
    ' Page Précédente, Page Suivante
    Case vbKeyPageUp, vbKeyPageDown
        KeyCode = 0
    ' Ctl + Origine, Fin, Haut, Bas
    Case vbKeyHome, vbKeyEnd, vbKeyUp, vbKeyDown
        If (Shift = acCtrlMask) Then KeyCode = 0
End Select
 
End Sub

A+

[Piou2fois]

Merci LedZeppII
Dommage de devoir faire ça à chaque formulaire
Les exemples que tu as mis dans les Select Case sont exhaustifs où bien il y aurait d'autres raccourcis pénibles à gérer?

[LedZeppII]

Re,

Je ne connais pas tous les raccourcis clavier.

Tu peux aussi envisager de filtrer le formulaire, plutôt que de te déplacer dedans.

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
    Dim strFiltre As String, strTxt As String
 
    strTxt = Nz(Me![offres_revision], "")
 
    If Len(strTxt) > 0 Then
       strFiltre = "[offres_id] = " & strTxt
    End If
 
    If strFiltre = "" Then
       Me.Filter = ""
       Me.FilterOn = False
    Else
       Me.Filter = strFiltre
       Me.FilterOn = True
    End If

Ou bien, tu peux filtrer la source du formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim strFiltre As String, strTxt As String
 
    strTxt = Nz(Me![offres_revision], "")
 
    If Len(strTxt) > 0 Then
       strFiltre = "[offres_id] = " & strTxt
    End If
 
    If strWHERE = "" Then
       Me.RecordSource = "SELECT [Clients].[Code client], [Clients].[Société], [Clients].[Ville], [Clients].[Pays], [Flag] FROM Clients;"
    Else
       Me.RecordSource = "SELECT [Clients].[Code client], [Clients].[Société], [Clients].[Ville], [Clients].[Pays], [Flag] FROM Clients" & " WHERE " & strWHERE
    End If

A+

[Piou2fois]

En effet je vais plutôt filtrer le formulaire, d'autant plus que je filtre sur une clef primaire donc je n'aurai qu'un seul enregistrement actif quoi qu'il arrive.
Merci pour l'astuce, ça m'évitera de m'embêter à gérer les raccourcis clavier.
Je vais transcrire ça à tous mes formulaires.

[Lemouba]

Bonjour à tous,
Merci pour ces exemples.

Mais, j'ai un autre souci,
Comment désactiver aussi la combinaison des touches ( CTRL + virgule) qui donnent directement l'accès à l'éditeur VBA?

Merci beaucoup la réponse