Discussion :

[hugo69]

J'ai fais une fonction dans un module.

Je voudrais que si la case d'une ligne appelée est cochée, on empeche la modification des champs de la ligne.

mais le Screen.ActiveControl ne fais rien, pourtant ma msgbox apparait bien.

J'ai mis l'evenement sur BeforeUpdate:

Code :

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

1
2
3
4
5
6
7
8
9
Function Changement(monSave As String)
 
    If (getVal(monSave) = True) Then
 
        MsgBox "Vous ne pouvez pas modifier cette valeur, l'opération est validée, il faut d'abord l'annuler."
        Screen.ActiveControl.Undo
 
    End If
End Function

merci

[helas]

Le Cancel pourrait être utile

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub LeChamp_BeforeUpdate(Cancel As Integer)
    If getVal(monSave)  Then
 
        MsgBox "Vous ne pouvez pas modifier cette valeur, l'opération est validée, il faut d'abord l'annuler."
 
        Cancel = True
 
        Screen.ActiveControl.Undo
 
    End If
 
End Sub

[hugo69]

ca marche impeccable.

Merci bcp.

Voici exactement ce que j'utilise:

L'endoit ou on appel le controle:

Code :

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

1
2
3
4
Private Sub TauxCommission_BeforeUpdate(Cancel As Integer)
Changement "TR_SAVE", Cancel
 
End Sub

ma procedure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Changement(monSave As String, Cancel As Integer)
 
    If getVal(monSave) Then
 
        MsgBox "Vous ne pouvez pas modifier cette valeur, l'opération est validée, il faut d'abord l'annuler."
 
        Cancel = True
 
        Screen.ActiveControl.Undo
 
    End If
End Function