Discussion :

[seb92400]

Bonjour,
Je parcours ce site depuis quelques temps, mais je n'arrive pas exactement à trouver l'info que je cherche... En espérant avoir bien cherché...

Question : Comment faire pour bloquer le déplacement entre enregistrement dans un formulaire ?

Je m'explique : J'ai créé un formulaire pour le boulot afin de référencer les clients et leurs commandes. Lorsque je suis sur une fiche client et ce que j'ai appelé le mode "modification", j'aimerais interdir tout changement d'enregistrement, que ce soit par la touche TAB (ça, je sais faire) ou par la molette de la souris (je sais faire aussi, merci à vous)... Mais également par la touche entrée sur le dernier contrôle ou encore par les touches PageUp ou PageDown, ou par je ne sais quelle autre touche possible... En d'autres termes j'aimerais dire :

Tant que je suis en modif et que je n'ai pas validé les modifs que j'ai faites, il est impossible de changer d'enregistrement...

Merci d'avance...

[Domi2]

Bonjour,

Pour éviter de passer à l'enregistrement suivant avec la touche entrée, met la propriété Cycle du formulaire sur Enregistrement en cours.

Pour les touches page Up et Page Down, met la propriété Aperçu des touches à Oui et sur l'événement Sur touche appuyée, tu places ce code.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If Keycode = vbKeyPageUp or Keycode = vbKeyPageDown then 
 
        Keycode = 0 
 
    End if 
 
End Sub

Ca devrait le faire.

Domi2

[loufab]

Bonjour,

Regarde du coté de la propriété Dirty et la commande Docmd.cancelevent

En les utilisant dans l'événement Sur Activation tu devrais y arriver.

[seb92400]

Merci beaucoup... Je devrais pouvoir m'en sortir avec tout ça... Je pensais simplement qu'il existait une propriété style allow"changer-d'enregisterement" afin d'éviter de paramétrer toutes les touches... Fainéant, moi ??? Meuh nan...
Merci... A bientôt...

[seb92400]

Pas possible... Je viens de m'apercevoir qu'un appui sur Crtl+flèche haut ou bas change également d'enregistrement... Il n'y a donc vraiment aucune solution pour bloquer définitivement ce changement sans avoir à désactiver toutes les touches ???

[loufab]

L'événement Sur activation se produit lors de déplacement d'un enregistrement à un autre. Le problème c'est qu'il se déclenche également à l'ouverture du formulaire (normal puisqu'il y a également positionnement sur un enregistrement)

Pour annuler une evenement il y a la commande docmd.cancelevent.

Avec tout ça (Sur activation, Dirty, NewRecord, CancelEvent) tu devrais t'en sortir.

Cordialement,

[molarisapa]

Bonjour,

Je up ce topic car je recherche une solution pour ce même probleme. => comment désactiver le déplacement d'enregistrement (action possible avec la molette, les pages shift haut et bas...)

j'ai mis ca en place:

Public gJe_Bloque As Boolean

Private Sub Form_Activate()
gJe_Bloque = False
End Sub

Private Sub Form_Current()
'je ne bloque pas à l'ouverture du formulaire
If gJe_Bloque = False Then
gJe_Bloque = True
Else
'passage d'un enregistrement a un autre.
'je bloque
msgbox "Je bloque"
DoCmd.CancelEvent
End If
End Sub

Mon message "Je bloque", apparait bien quand je souhaite bloquer le déplacement mais la commande DoCmd.CancelEvent ne bloque pas? Que faut t'il place dans la zone Else pour annuler le déplacement.

Ou alors existe t'il une autre méthode plus sympas...

Merci