Discussion :

[curt]

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.

[Jeannot45]

Bonjour,

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

Code :

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

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+

[curt]

Merci d'avoir répondu aussi vite.

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

Encore merci.

[FreeAccess]

Bonjour,

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 :

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

Dim IntReponse As String

Bonne continuation...

[curt]

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

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

Code :

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

DoCmd.GoToCOntrol "NouveauChampASaisir"

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

et où

Code :

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

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.

[Jeannot45]

Hello,

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

ActgiveControl.SelLenght = Len(ActiveControl)

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

Code :

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

ActiveControl.SelLenght = Len(ActiveControl)

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

Code :

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

DoCmd.GoToControl "ORDRE"

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

A+

[curt]

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

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

Code :

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

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'

[berti]

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

Code :

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

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