Modifications d'un champ

Version imprimable

10/11/2007, 13h21
curt

Modifications d'un champ

Bonjour à tous.

Dans un formulaire, sur un champ, je voudrais faire la chose suivante :

- si le champ est vide, autoriser la saisie d'une valeur.
- si le champ n'est pas vide, afficher un MsgBox prévenant que le champ va être modifier et demander de Valider pour continuer ou Annuler pour anuler la saisie.

Merci d'avance et bon week-end à tous.

:bug:

Bonjour,

Sr l'évènement Entrée du champ, tu peux imaginer une procédure évènementielle du type :

Code:

1
2
3
4
5
6
7
8
9
If Not IsEmpty(ActiveControl) Then
    intReponse = MsgBox("La valeur contenue dans le champ va etre modifiée - Voulez vous continuer ?", vbYesNo + vbQuestion)
    If intReponse  = vbNo then
        DoCmd.GoToCOntrol "NouveauChampASaisir"
    Else
         ActiveControl.SelStart = 1
         ActgiveControl.SelLenght = Len(ActiveControl)
    End If
End If

A+

10/11/2007, 15h09
curt

Merci d'avoir répondu aussi vite.

Mais j'obtiens une erreur sur IntReponse (Variable non définie)

Encore merci.
10/11/2007, 19h29
FreeAccess

Bonjour,

Citation:

j'obtiens une erreur sur IntReponse (Variable non définie)
...

....alors comme te l'indique le message d'erreur...il suffit de définir ta variable IntReponse.....;)
Au début de ton code tu doit insérer une ligne du type:

Code:

Dim IntReponse As String

Bonne continuation...:)
11/11/2007, 01h22
curt

Bonjour (je suis très matinal !!!)

ça ne fonctionne pas, ou plus exactement, j'ai des messages d'erreurs.

Code:

DoCmd.GoToCOntrol "NouveauChampASaisir"

où NouveauChampASaisir n'est pas reconnu (Champ Ordre pour moi) !!!

et où

Code:

ActgiveControl.SelLenght = Len(ActiveControl)

me renvoi également une erreur (2109)

J'ai omis de préciser que j'étais avec Access 2003. Le soucis est peut être là ???

Bonne journée. :(
11/11/2007, 08h50
Jeannot45

Hello,

Auteur du code envoyé, il est de mon devoir de voler à ton secours :

Citation:

ActgiveControl.SelLenght = Len(ActiveControl)

Mille excuses, il y a une énorme faute de frappe. Il faut lire :

Code:

ActiveControl.SelLenght = Len(ActiveControl)

si pour toi, le champ à atteindre est "ORDRE" le code devient :

Code:

DoCmd.GoToControl "ORDRE"

Excuses moi encore de t'avoir induit en erreur avec des explications trop succintes.

A+
11/11/2007, 13h02
curt

Bonjour et merci des réponses, mais les problèmes subsistent :

Si je répond OUI à la modification du champ :

Code:

ActgiveControl.SelLenght = Len(ActiveControl)

renvoi une erreur 438 (propriété ou méthode non gérée par cet objet)

Si je répond NON, j'ai une erreur 2109 (il n'y a pas de champ nommé 'Ordre' dans l'enregistrement en cours) alors que le champ en cours de modif est bien 'Ordre'

:(

essai ce code avec l'évènement sur clic pour le champ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub champ_Click()
Dim reponse
 
    If Not IsNull(Me![champ]) Or Not Me![champ] = "" Then
        reponse = MsgBox("le champ va être modifier voulez vous continuer ", vbYesNo, "ATTENTION")
 
        If reponse = vbYes Then
            Me![champ].SetFocus
        Else
            Me![autrechamp].SetFocus
        End If
    End If
 
End Sub