J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction
de données.
Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ
indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*),
access passe à l'enregistrement suivant sans répéter l'erreur.
Ma Question :
Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_AfterUpdate()
If IsNull(Me![cmbNom]) Then
MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation,
"Erreur"
Me![cmbNom].SetFocus
Exit Sub
End If
....
End Sub
P.S.
Il s'agit de champs qui doivent être complété avec conditions, donc mettre
"Null Interdit" sur oui ne réglera pas mon problème.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RaphK34
peut être la procédure Form_Current
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"If" a écrit dans le message de news: 4195497c$0$19183$ | Bonsoir, | | J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction | de données. | Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ | indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), | access passe à l'enregistrement suivant sans répéter l'erreur. | | Ma Question : | Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ? | | | | Private Sub Form_AfterUpdate() | If IsNull(Me![cmbNom]) Then | MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation, | "Erreur" | Me![cmbNom].SetFocus | Exit Sub | End If | | .... | | End Sub | | | P.S. | Il s'agit de champs qui doivent être complété avec conditions, donc mettre | "Null Interdit" sur oui ne réglera pas mon problème. | |
peut être la procédure Form_Current
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------
"If" <no@no.no> a écrit dans le message de news: 4195497c$0$19183$ba620e4c@news.skynet.be...
| Bonsoir,
|
| J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction
| de données.
| Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ
| indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*),
| access passe à l'enregistrement suivant sans répéter l'erreur.
|
| Ma Question :
| Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
|
|
|
| Private Sub Form_AfterUpdate()
| If IsNull(Me![cmbNom]) Then
| MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation,
| "Erreur"
| Me![cmbNom].SetFocus
| Exit Sub
| End If
|
| ....
|
| End Sub
|
|
| P.S.
| Il s'agit de champs qui doivent être complété avec conditions, donc mettre
| "Null Interdit" sur oui ne réglera pas mon problème.
|
|
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"If" a écrit dans le message de news: 4195497c$0$19183$ | Bonsoir, | | J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction | de données. | Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ | indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), | access passe à l'enregistrement suivant sans répéter l'erreur. | | Ma Question : | Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ? | | | | Private Sub Form_AfterUpdate() | If IsNull(Me![cmbNom]) Then | MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation, | "Erreur" | Me![cmbNom].SetFocus | Exit Sub | End If | | .... | | End Sub | | | P.S. | Il s'agit de champs qui doivent être complété avec conditions, donc mettre | "Null Interdit" sur oui ne réglera pas mon problème. | |
If
J'avais testé cette procédure, mais c'est pas mieux. Merci pour ta réponse
"RaphK34" a écrit dans le message de news: %
peut être la procédure Form_Current
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"If" a écrit dans le message de news: 4195497c$0$19183$ | Bonsoir, | | J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction | de données. | Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ | indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), | access passe à l'enregistrement suivant sans répéter l'erreur. | | Ma Question : | Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ? | | | | Private Sub Form_AfterUpdate() | If IsNull(Me![cmbNom]) Then | MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation, | "Erreur" | Me![cmbNom].SetFocus | Exit Sub | End If | | .... | | End Sub | | | P.S. | Il s'agit de champs qui doivent être complété avec conditions, donc mettre | "Null Interdit" sur oui ne réglera pas mon problème. | |
J'avais testé cette procédure, mais c'est pas mieux.
Merci pour ta réponse
"RaphK34" <nospampizza.mpl@tiscali.fr> a écrit dans le message de news:
%23dXTYGRyEHA.824@TK2MSFTNGP11.phx.gbl...
peut être la procédure Form_Current
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------
"If" <no@no.no> a écrit dans le message de news:
4195497c$0$19183$ba620e4c@news.skynet.be...
| Bonsoir,
|
| J'ai la procédure ci-dessous qui s'applique à un formulaire
d'introduction
| de données.
| Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ
| indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*),
| access passe à l'enregistrement suivant sans répéter l'erreur.
|
| Ma Question :
| Est-il possible d'utiliser une procédure sur ce bouton de déplacement
(>*) ?
|
|
|
| Private Sub Form_AfterUpdate()
| If IsNull(Me![cmbNom]) Then
| MsgBox "Sélectionnez une valeur pour la zone 'Nom' ",
vbInformation,
| "Erreur"
| Me![cmbNom].SetFocus
| Exit Sub
| End If
|
| ....
|
| End Sub
|
|
| P.S.
| Il s'agit de champs qui doivent être complété avec conditions, donc
mettre
| "Null Interdit" sur oui ne réglera pas mon problème.
|
|
J'avais testé cette procédure, mais c'est pas mieux. Merci pour ta réponse
"RaphK34" a écrit dans le message de news: %
peut être la procédure Form_Current
-- -------------------------------------------- Merci de répondre sur le NG Toutes remarques bienvenues !
Pour un contact direct, utiliser: en enlevant nospam. --------------------------------------------
"If" a écrit dans le message de news: 4195497c$0$19183$ | Bonsoir, | | J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction | de données. | Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ | indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), | access passe à l'enregistrement suivant sans répéter l'erreur. | | Ma Question : | Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ? | | | | Private Sub Form_AfterUpdate() | If IsNull(Me![cmbNom]) Then | MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation, | "Erreur" | Me![cmbNom].SetFocus | Exit Sub | End If | | .... | | End Sub | | | P.S. | Il s'agit de champs qui doivent être complété avec conditions, donc mettre | "Null Interdit" sur oui ne réglera pas mon problème. | |
Daniel Carollo
Bonjour If!
Le test devrait se faire _avant_ la mise a jour, afin de permettre l'annulation de l'evenement. Voyez l'evenement BeforeUpdate...
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"If" wrote in message news:4195497c$0$19183$
Bonsoir,
J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction de données. Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), access passe à l'enregistrement suivant sans répéter l'erreur.
Ma Question : Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_AfterUpdate() If IsNull(Me![cmbNom]) Then MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation,
"Erreur" Me![cmbNom].SetFocus Exit Sub End If
....
End Sub
P.S. Il s'agit de champs qui doivent être complété avec conditions, donc mettre "Null Interdit" sur oui ne réglera pas mon problème.
Bonjour If!
Le test devrait se faire _avant_ la mise a jour, afin de permettre
l'annulation de l'evenement. Voyez l'evenement BeforeUpdate...
--
Daniel :-)
Computing Technologies International - www.computing-tech.com - We
provide solutions...
"If" <no@no.no> wrote in message
news:4195497c$0$19183$ba620e4c@news.skynet.be...
Bonsoir,
J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction
de données.
Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ
indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*),
access passe à l'enregistrement suivant sans répéter l'erreur.
Ma Question :
Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*)
?
Private Sub Form_AfterUpdate()
If IsNull(Me![cmbNom]) Then
MsgBox "Sélectionnez une valeur pour la zone 'Nom' ",
vbInformation,
"Erreur"
Me![cmbNom].SetFocus
Exit Sub
End If
....
End Sub
P.S.
Il s'agit de champs qui doivent être complété avec conditions, donc mettre
"Null Interdit" sur oui ne réglera pas mon problème.
Le test devrait se faire _avant_ la mise a jour, afin de permettre l'annulation de l'evenement. Voyez l'evenement BeforeUpdate...
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"If" wrote in message news:4195497c$0$19183$
Bonsoir,
J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction de données. Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), access passe à l'enregistrement suivant sans répéter l'erreur.
Ma Question : Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_AfterUpdate() If IsNull(Me![cmbNom]) Then MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation,
"Erreur" Me![cmbNom].SetFocus Exit Sub End If
....
End Sub
P.S. Il s'agit de champs qui doivent être complété avec conditions, donc mettre "Null Interdit" sur oui ne réglera pas mon problème.
If
Daniel, Merci pour ta réponse.
L'événement Private Sub Form_BeforeUpdate() me donne le message suivant :
L'expression Après MAJ entrée comme paramètre de la propriété de type d'événement est à l'orgine d'une erreur. La déclaration de la procédure ne correspond pas à description de l'événement ou la procédure de même nom.
"Daniel Carollo" a écrit dans le message de news: eM2P%
Bonjour If!
Le test devrait se faire _avant_ la mise a jour, afin de permettre l'annulation de l'evenement. Voyez l'evenement BeforeUpdate...
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"If" wrote in message news:4195497c$0$19183$
Bonsoir,
J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction de données. Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), access passe à l'enregistrement suivant sans répéter l'erreur.
Ma Question : Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_AfterUpdate() If IsNull(Me![cmbNom]) Then MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation,
"Erreur" Me![cmbNom].SetFocus Exit Sub End If
....
End Sub
P.S. Il s'agit de champs qui doivent être complété avec conditions, donc mettre "Null Interdit" sur oui ne réglera pas mon problème.
Daniel,
Merci pour ta réponse.
L'événement Private Sub Form_BeforeUpdate() me donne le message suivant :
L'expression Après MAJ entrée comme paramètre de la propriété de type
d'événement est à l'orgine d'une erreur.
La déclaration de la procédure ne correspond pas à description de
l'événement ou la procédure de même nom.
"Daniel Carollo" <danielc@NO_SPAM_PLEASE.computing-tech.com> a écrit dans le
message de news: eM2P%23bUyEHA.352@TK2MSFTNGP14.phx.gbl...
Bonjour If!
Le test devrait se faire _avant_ la mise a jour, afin de permettre
l'annulation de l'evenement. Voyez l'evenement BeforeUpdate...
--
Daniel :-)
Computing Technologies International - www.computing-tech.com - We
provide solutions...
"If" <no@no.no> wrote in message
news:4195497c$0$19183$ba620e4c@news.skynet.be...
Bonsoir,
J'ai la procédure ci-dessous qui s'applique à un formulaire
d'introduction
de données.
Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ
indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*),
access passe à l'enregistrement suivant sans répéter l'erreur.
Ma Question :
Est-il possible d'utiliser une procédure sur ce bouton de déplacement
(>*)
?
Private Sub Form_AfterUpdate()
If IsNull(Me![cmbNom]) Then
MsgBox "Sélectionnez une valeur pour la zone 'Nom' ",
vbInformation,
"Erreur"
Me![cmbNom].SetFocus
Exit Sub
End If
....
End Sub
P.S.
Il s'agit de champs qui doivent être complété avec conditions, donc
mettre
"Null Interdit" sur oui ne réglera pas mon problème.
L'événement Private Sub Form_BeforeUpdate() me donne le message suivant :
L'expression Après MAJ entrée comme paramètre de la propriété de type d'événement est à l'orgine d'une erreur. La déclaration de la procédure ne correspond pas à description de l'événement ou la procédure de même nom.
"Daniel Carollo" a écrit dans le message de news: eM2P%
Bonjour If!
Le test devrait se faire _avant_ la mise a jour, afin de permettre l'annulation de l'evenement. Voyez l'evenement BeforeUpdate...
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"If" wrote in message news:4195497c$0$19183$
Bonsoir,
J'ai la procédure ci-dessous qui s'applique à un formulaire d'introduction de données. Celui-ci fonctionne bien mais si l'utilisateur ne complète pas le champ indiqué par l'erreur et qu'il appuye sur le bouton de déplacement (>*), access passe à l'enregistrement suivant sans répéter l'erreur.
Ma Question : Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_AfterUpdate() If IsNull(Me![cmbNom]) Then MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation,
"Erreur" Me![cmbNom].SetFocus Exit Sub End If
....
End Sub
P.S. Il s'agit de champs qui doivent être complété avec conditions, donc mettre "Null Interdit" sur oui ne réglera pas mon problème.
3stone
Salut,
dans le texte...
"If" [...]
Ma Question : Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_BeforeUpdate(Cancel as integer) <<<<<<<<< If IsNull(Me![cmbNom]) Then MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation, "Erreur" Me![cmbNom].SetFocus Cancel = true <<<<<<<<<<<
Exit Sub End If
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Salut,
dans le texte...
"If"
[...]
Ma Question :
Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_BeforeUpdate(Cancel as integer) <<<<<<<<<
If IsNull(Me![cmbNom]) Then
MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation,
"Erreur"
Me![cmbNom].SetFocus
Cancel = true <<<<<<<<<<<
Exit Sub
End If
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Ma Question : Est-il possible d'utiliser une procédure sur ce bouton de déplacement (>*) ?
Private Sub Form_BeforeUpdate(Cancel as integer) <<<<<<<<< If IsNull(Me![cmbNom]) Then MsgBox "Sélectionnez une valeur pour la zone 'Nom' ", vbInformation, "Erreur" Me![cmbNom].SetFocus Cancel = true <<<<<<<<<<<
Exit Sub End If
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
