Discussion :

[AIR193]

Bonjour à tous,

Je rencontre un petit souci avec un de mes formulaires.
Il s'agit d'un formulaire avec un sous formulaire renvoyant des requêtes liées à une table me permettant d'effectuer des tris avec des listes déroulantes.

Dans un but de sécurité j'ai bloqué les touches F11 et Delete avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
If (KeyCode = vbKeyF11) Then
    KeyCode = 0
ElseIf (KeyCode = vbKeyDelete) Then
    KeyCode = 0
End If
 
End Sub

Mais le problème est que lorsque l'on clique sur le sous formulaire ces instructions ne sont plus prises en compte et les touches de nouveaux opérantes.
Est ce possible de bloquer ces touches également pour le sous formulaire ?
Dites moi si je ne suis pas claire.

Merci

[marot_r]

Bonjour.

Il suffit à priori de mettre le même code dans le formulaire inclus dans le contrôle sous-formulaire. As-tu essayé ?

A+

[AIR193]

Bonjour.

Il suffit à priori de mettre le même code dans le formulaire inclus dans le contrôle sous-formulaire. As-tu essayé ?

A+

J'ai essayé de donner ces instructions au sous formulaire mais dans sa feuille de propriétés je n'ai que les évènements "sur entrée" et "sur sortie" et je ne trouve pas "aperçu des touches" pour le sous formulaire".

[bertiny]

Bonjour
Et si tu mets sur l’événement Sur touche activée ?

[AIR193]

Bonjour
Et si tu mets sur l’événement Sur touche activée ?

J'ai mis sur l’événement "Sur touche activée" du formulaire principale mais quand je clique sur le sous formulaire en mode création je n'ai pas cet évènement dans sa feuille de propriété seulement "sur entrée" et "sur sortie".

[bertiny]

Cet événement y est bien sur. Il suffit de double-cliquer sur le carré situé à l'angle supérieur gauche du sous-formulaire en mode création.

[AIR193]

Cet événement y est bien sur. Il suffit de double-cliquer sur le carré situé à l'angle supérieur gauche du sous-formulaire en mode création.

Rien ne se passe quand je double clique, il n'y a que les flèches de déplacement.

[bertiny]

Tu dois avoir ceci


Déjà on a l'impression comme si ton sous-formulaire est utilisé par un autre formulaire ouvert.

[AIR193]

Tu dois avoir ceci


Déjà on a l'impression comme si ton sous-formulaire est utilisé par un autre formulaire ouvert.

Oui c'est le cas je ne sais pas comment ouvrir le sous formulaire indépendamment du formulaire père.

[bertiny]

Non, mon sous-formulaire que j'ai présenté est bien ouvert dans le formulaire principale. Ce que je veux te faire comprendre c'est que, à part le formulaire où ton sous-formulaire est inclus, il y a un autre formulaire qui l'utilise aussi et qui est certainement ouvert. La chose à faire c'est donc fermer tous tes formulaires ouverts que ce soit en mode création qu'en mode formulaire, et ouvrir uniquement ton formulaire en question en mode création. Alors tu verras bien ton sous-formulaire tel qu'il se présente sur le mien.
A défaut, tu identifies le sous-formulaire en question dans le volet de navigation (partie gauche de ton écran ou se trouvent les objets, tables, requêtes, formulaires...) puis tu l'ouvres directement en mode création.

vérifies bien que la requête qui l'alimente existe aussi.

[AIR193]

Non, mon sous-formulaire que j'ai présenté est bien ouvert dans le formulaire principale. Ce que je veux te faire comprendre c'est que, à part le formulaire où ton sous-formulaire est inclus, il y a un autre formulaire qui l'utilise aussi et qui est certainement ouvert. La chose à faire c'est donc fermer tous tes formulaires ouverts que ce soit en mode création qu'en mode formulaire, et ouvrir uniquement ton formulaire en question en mode création. Alors tu verras bien ton sous-formulaire tel qu'il se présente sur le mien.
A défaut, tu identifies le sous-formulaire en question dans le volet de navigation (partie gauche de ton écran ou se trouvent les objets, tables, requêtes, formulaires...) puis tu l'ouvres directement en mode création.

vérifies bien que la requête qui l'alimente existe aussi.

Désoler je suis novice je sais pas si on s'est bien compris je met une capture.
En fait c'est sur le sous formulaire qui affiche la requête que je souhaite agir. Ce sous formulaire n'existe que dans le formulaire et n'apparait pas dans le volet de navigation.

[bertiny]

Cela veut donc dire que le formulaire ne voit pas la requête en question.

[AIR193]

Cela veut donc dire que le formulaire ne voit pas la requête en question.

Si il l'affiche

[bertiny]

Alors je pense que tu dois supprimer le sous-formulaire et le rajouter. (après avoir supprimer, tu portes la requête dans le volet de navigation et poser dans le formulaire). Tu ne peux pas accéder au propriétés de ce dernier si tu ne le vois pas tel que je l'ai présenté.

[tee_grandbois]

bonjour,
il ne s'agit pas d'un sous-formulaire basé sur un formulaire mais d'un objet requête, ce qui explique l'absence de l'évènement en question ... ce n'est donc pas applicable

[AIR193]

bonjour,
il ne s'agit pas d'un sous-formulaire basé sur un formulaire mais d'un objet requête, ce qui explique l'absence de l'évènement en question ... ce n'est donc pas applicable

Il est donc impossible d'y empêcher la suppression ou l'utilisation de F11 ?

[AIR193]

Il faudrait peut être interdire la suppression dans la requête dont l'objet prend sa source mais je ne sais pas comment faire

[bertiny]

Je te propose de créer un sous-formulaire basé sur cette requête

[tee_grandbois]

Il faudrait peut être interdire la suppression dans la requête dont l'objet prend sa source mais je ne sais pas comment faire

il y a une possibilité c'est de mettre le recordset du sous-formulaire en lecture seule:

Code :

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

Me.Resul.Form.RecordsetType = 2

[AIR193]

il y a une possibilité c'est de mettre le recordset du sous-formulaire en lecture seule:

Code :

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

Me.Resul.Form.RecordsetType = 2

Merci beaucoup ça fonctionne très bien pour bloquer la suppression.
Vous auriez une idée pour bloquer la touche F11. J'ai essayé d'activer l'aperçu des touches avec

Code :

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

Me.NOM.Form.KeyPreview = True

mais pas de changement.