Discussion :

[foste]

Bonjour,

Je voudrais verifier au moment de la fermeture du form les champs seulement si le record a ete modifié.

J'ai donc mis les verif dans beforeUpdate et un bouton fermer.

Le pb, c'est dans l'ordre : je clique sur le bouton, il ferme, donc il verifie si le record a ete modifie. Si oui, mes champs sont verifies, si ils sont vides, j'ai un gotorecord mais qui ne sert a rien puisque le form est fermé!!

Si je verifie dans le code du bouton fermer avant le close, access verifiera meme si le record n'a pas ete modifie...

qq'1 a une idée ?

Carine

[shwin]

Salut,
montre le code que tu as mit précentement stp!

merci

[foste]

Bouton "Fermer" :

Code :

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

1
2
3
Private Sub Command_Fermer_Click()
    DoCmd.Close
End Sub

Proprietes du form :

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
16
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Len(Me.ST_Nom) > 0 Then
        Me.ST_Nom = StrConv(Me.ST_Nom, vbProperCase)
        Me.ST_Nom.Requery
    Else
        MsgBox "vous devez saisir le Nom !", vbCritical, "Warning"
        DoCmd.GoToControl "ST_Nom"
        DoCmd.CancelEvent
    End If
 
     If IsNull(Me.Code_EEI.Value) Then
        MsgBox "vous devez selectionner une Société !", vbCritical, "Warning"
        DoCmd.GoToControl "Code_EEI"
        DoCmd.CancelEvent
    End If
End Sub

Carine

[Tan]

Tu peux utiliser les paramètres cancel des évènement qui annule l'évènement.
Par exemple pour le beforeUpdate, si les valeur ne sont pas bonnes, tu mets cancel à True et le update ne se fait pas.
L'évènement close à aussi un paramètre cancel qu permet d'éviter la fermeture sous certaines conditions.

Utilises les et tu devrais t'en sortir.
Salut.

[foste]

Le pb c'est que l'action de Fermer s'execute avant le BeforeUpdate.

Il faudrait que SI l'enregistrment a ete change, je valide, SINON, je ferme

Carine

[foste]

J'ai beau tourner ca dans tous les sens, je ne trouve pas .
Personne ne peut m'aider ?

Merci, Carine

[DonFelipe]

et si tu rajoute un focus sur ton before_update dans ton btn fermer :

[foste]

??

[DonFelipe]

oui, dans le code de ton bouton exit... juste avant la comande de sortie tu lui met une comande qui donne le focus à ta textbox sur laquelle tu as ton code evenement Befor_Update....

[foste]

Je comprends pas
Je veux verifier les champs Nom et Prenom que si d'autres champs de la personne ont ete modifies et ne rien faire si l'enregistrement n'a ete que consulté.
Si je renvoi le focus sur ces 2 champs a la fermeture, il obligera l'utilisateur a mettre a jour dans tous les cas.

Carine

[Faw]

Salut,
Désolé si le code n'est pas tout à fait au point mais moi j'aurai tendance
à mettre le contrôle dans la procédure de fermeture de cette façon:

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
16
17
18
19
Private Sub Command_Fermer_Click() 
 
    If Len(Me.ST_Nom) > 0 Then 
        Me.ST_Nom = StrConv(Me.ST_Nom, vbProperCase) 
        Me.ST_Nom.Requery 
    Else 
        MsgBox "vous devez saisir le Nom !", vbCritical, "Warning" 
        DoCmd.GoToControl "ST_Nom" 
        Exit Sub   
    End If 
 
     If IsNull(Me.Code_EEI.Value) Then 
        MsgBox "vous devez selectionner une Société !", vbCritical, "Warning" 
        DoCmd.GoToControl "Code_EEI" 
        Exit Sub
     End If 
Docmd.Close, , acSaveYes
 
End Sub

[DonFelipe]

Je comprends pas
Je veux verifier les champs Nom et Prenom que si d'autres champs de la personne ont ete modifies et ne rien faire si l'enregistrement n'a ete que consulté.
Si je renvoi le focus sur ces 2 champs a la fermeture, il obligera l'utilisateur a mettre a jour dans tous les cas.

...sauf si dans le LostFocus tu mets un message du style "Vous n'avez pas rempli ce champ ! Voulez vous annuler votre création de fiche ?". Ensuite si OUI tu le laisse sortir effectivement de ton form, sinon tu lui redonne le focus pour qu'il saisisse... si jamais il est revenu sur sa décision....

[foste]

Ca y est, j'ai trouve :

Avant Docmd.close je teste If Me.Dirty (enregistrement modifie)

Merci