message de validation lors de la modification d'un champ

Version imprimable

Bonjour à tous!

je vous remercie d'avance du temps que vous prendrez pour me lire, je suis débutante en access et en vba de par ailleurs. j'ai crée une base donnée sous access 2010, pour de la facturation, sur mon formulaire ou l'on crée les différentes fiches de facturation , je souhaiterais que toute donnée modifiée d’une fiche devra être confirmée au moment de sa modification par l’utilisateur (non applicable à un ajout de donnée) à défaut, la modification ne sera pas prise en compte. j'ai fais un evenement beforeupdate sur un un champ en test :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Libellé_facturation_BeforeUpdate(Cancel As Integer) If Not IsNull(Forms("EtudeRetraite_Conseil_Excub").Controls("Libellé facturation").Value) Or Forms("EtudeRetraite_Conseil_Excub").Controls("Libellé facturation").Value <> "" Then If (MsgBox("voulez-vous prendre en compte la modification", vbYesNo, "validation")) <> vbYes Then Forms("EtudeRetraite_Conseil_Excub").Controls("Libellé facturation").Undo Cancel = True End If End If End Sub
mais voilà tout marche j'ai le message et si je clique non , la valeur précédente est reprise par contre lorsque je fais un ajout de donnée c'est à dire la case est vide dès le départ j'ai quand même le message :(
je pense que cela vient du fait que le test à savoir si la valeur est null ou vide se fait sur la valeur après remplissage ( ce qui me déconcerte un peu vu que c'est un event beforeupdate, j'avais prévenue je suis nulle!:oops:)
comment faire alors?
Désolé si mes explications ne sont pas claires!

cordialement,

Bonjour essaye cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Libellé_facturation_BeforeUpdate(Cancel As Integer)
 
   dim c as control:set c=me.[Libellé facturation] 'Utilise un objet de type contrôle et y assign le contrôle en cours. Me. refère au formulaire courrant.
 
   If Not IsNull(c) and Not IsEmpty(c) Then
 
      if trim(c)<>"" then
 
         If (MsgBox("voulez-vous prendre en compte la modification", vbYesNo, "validation")) <> vbYes Then
            c.Undo
           Cancel = True
         end if
 
     End If
 
   End If
 
   set c=nothing
 
End Sub

07/10/2014, 16h49
pasfortedutout

bonjour,

merci d'abord pour la rapidité de ta question, j'ai tenté le code que tu m'as donné mais ça ne marche pas :(
j'ai toujours le message de validation lorsque je fais un ajout de donné et non une modification.

OK j'ai fait un test et je pense que c'est cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub V1_BeforeUpdate(Cancel As Integer)
   Dim c As Control: Set c = Me.[Libellé facturation] 'Utilise un objet de type contrôle et y assign le contrôle en cours. Me. refère au formulaire courrant.
 
   If Not IsNull(c) And Not IsEmpty(c) And Not Me.NewRecord Then
 
      If Trim(c) <> "" Then
 
         If (MsgBox("voulez-vous prendre en compte la modification", vbYesNo+vbQuestion, "validation")) <> vbYes Then
            c.Undo
           Cancel = True
         End If
 
     End If
 
   End If
 
   Set c = Nothing
 
End Sub

08/10/2014, 10h42
pasfortedutout

Merci beaucoup ça marche :D!