Bonjour,
a la suite de cette question :
J'ai dans 1 formulaire de saisie 1 table dont la clé est constituée de 2
champs : N°ACTE et ANNEE.
Je voudrais que si pour 1 année donnée le N° ne dépasse pas 1 valeur.
Exple: pour année 1998 le Champ N°ACTE ne doit pas être supérieur à 7845 et
je voudrais qu'en cas de mise à jour de ces champs le curseur reste dans le
champ tant qu'1 bonne valeur n'est pas saisie.
Merçi de votre aide
suivie de cette réponse:
Sur l'évenement beforeUpdate
If Me!N°acte>7845 and Me!Année=1998 then
msgbox ....
Cancel =true
Me!N°acte.undo
Me!N°acte.setfocus
end if
J'ai mis dans le champ N°ACTE ceci :
Befort Update
If(IsNull(Me.N°ACTE)=False) and (IsNull(Me.ANNEE)=False) then
If Me.N°ACTE >2620 and Me.ANNEE = 2003 then
MsgBox "................................"
end if
cancel = True
Me.N°ACTE.undo
Me.N°ACTE.SetFocus
end if
Mais à l'execution si je saisie une valeur supérieure à 2620 ce message
d'erreur s'affiche :
Erreur d'exécution 2108
Vous devez enregistré le champ avant d'executer l'action AtteindreControle,
la methode Goto Controle ou la Méthode Set focus
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
le meruvien
bonjour, essaie de mettre la propriété "valide si" du champ N° à <x45
"FEUZ TOFF" a écrit dans le message de news:
Bonjour, a la suite de cette question : J'ai dans 1 formulaire de saisie 1 table dont la clé est constituée de 2 champs : N°ACTE et ANNEE. Je voudrais que si pour 1 année donnée le N° ne dépasse pas 1 valeur. Exple: pour année 1998 le Champ N°ACTE ne doit pas être supérieur à 7845 et je voudrais qu'en cas de mise à jour de ces champs le curseur reste dans le champ tant qu'1 bonne valeur n'est pas saisie. Merçi de votre aide
suivie de cette réponse:
Sur l'évenement beforeUpdate If Me!N°acte>7845 and Me!Année98 then msgbox .... Cancel =true Me!N°acte.undo Me!N°acte.setfocus end if
J'ai mis dans le champ N°ACTE ceci :
Befort Update If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then If Me.N°ACTE >2620 and Me.ANNEE = 2003 then MsgBox "................................" end if cancel = True Me.N°ACTE.undo Me.N°ACTE.SetFocus end if
Mais à l'execution si je saisie une valeur supérieure à 2620 ce message d'erreur s'affiche : Erreur d'exécution 2108 Vous devez enregistré le champ avant d'executer l'action AtteindreControle, la methode Goto Controle ou la Méthode Set focus
Pouvez vous m'aider SVP Merçi
bonjour,
essaie de mettre la propriété "valide si" du champ N° à <x45
"FEUZ TOFF" <FEUZTOFF@discussions.microsoft.com> a écrit dans le message de
news: E40DB2EE-57C4-4D6B-B38C-8C334A62315B@microsoft.com...
Bonjour,
a la suite de cette question :
J'ai dans 1 formulaire de saisie 1 table dont la clé est constituée de 2
champs : N°ACTE et ANNEE.
Je voudrais que si pour 1 année donnée le N° ne dépasse pas 1 valeur.
Exple: pour année 1998 le Champ N°ACTE ne doit pas être supérieur à 7845
et
je voudrais qu'en cas de mise à jour de ces champs le curseur reste dans
le
champ tant qu'1 bonne valeur n'est pas saisie.
Merçi de votre aide
suivie de cette réponse:
Sur l'évenement beforeUpdate
If Me!N°acte>7845 and Me!Année98 then
msgbox ....
Cancel =true
Me!N°acte.undo
Me!N°acte.setfocus
end if
J'ai mis dans le champ N°ACTE ceci :
Befort Update
If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then
If Me.N°ACTE >2620 and Me.ANNEE = 2003 then
MsgBox "................................"
end if
cancel = True
Me.N°ACTE.undo
Me.N°ACTE.SetFocus
end if
Mais à l'execution si je saisie une valeur supérieure à 2620 ce message
d'erreur s'affiche :
Erreur d'exécution 2108
Vous devez enregistré le champ avant d'executer l'action
AtteindreControle,
la methode Goto Controle ou la Méthode Set focus
bonjour, essaie de mettre la propriété "valide si" du champ N° à <x45
"FEUZ TOFF" a écrit dans le message de news:
Bonjour, a la suite de cette question : J'ai dans 1 formulaire de saisie 1 table dont la clé est constituée de 2 champs : N°ACTE et ANNEE. Je voudrais que si pour 1 année donnée le N° ne dépasse pas 1 valeur. Exple: pour année 1998 le Champ N°ACTE ne doit pas être supérieur à 7845 et je voudrais qu'en cas de mise à jour de ces champs le curseur reste dans le champ tant qu'1 bonne valeur n'est pas saisie. Merçi de votre aide
suivie de cette réponse:
Sur l'évenement beforeUpdate If Me!N°acte>7845 and Me!Année98 then msgbox .... Cancel =true Me!N°acte.undo Me!N°acte.setfocus end if
J'ai mis dans le champ N°ACTE ceci :
Befort Update If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then If Me.N°ACTE >2620 and Me.ANNEE = 2003 then MsgBox "................................" end if cancel = True Me.N°ACTE.undo Me.N°ACTE.SetFocus end if
Mais à l'execution si je saisie une valeur supérieure à 2620 ce message d'erreur s'affiche : Erreur d'exécution 2108 Vous devez enregistré le champ avant d'executer l'action AtteindreControle, la methode Goto Controle ou la Méthode Set focus
Pouvez vous m'aider SVP Merçi
Gilles
"FEUZ TOFF" a écrit:
Bonjour, ... J'ai mis dans le champ N°ACTE ceci :
Befort Update If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then If Me.N°ACTE >2620 and Me.ANNEE = 2003 then MsgBox "................................" end if cancel = True Me.N°ACTE.undo Me.N°ACTE.SetFocus end if ...
Bonjour,
le SetFocus (qui provoque l'erreur) est inutile, de même que le Undo, car le fait de mettre Cancel = True dans le BeforeUpdate bloque toute la suite des événements. Tu peux à la limite annuler la saisie en mettant Me.N°ACTE = Null.
Bonne continuation
"FEUZ TOFF" a écrit:
Bonjour,
...
J'ai mis dans le champ N°ACTE ceci :
Befort Update
If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then
If Me.N°ACTE >2620 and Me.ANNEE = 2003 then
MsgBox "................................"
end if
cancel = True
Me.N°ACTE.undo
Me.N°ACTE.SetFocus
end if
...
Bonjour,
le SetFocus (qui provoque l'erreur) est inutile, de même que le Undo, car le
fait de mettre Cancel = True dans le BeforeUpdate bloque toute la suite des
événements. Tu peux à la limite annuler la saisie en mettant Me.N°ACTE = Null.
Befort Update If(IsNull(Me.N°ACTE)úlse) and (IsNull(Me.ANNEE)úlse) then If Me.N°ACTE >2620 and Me.ANNEE = 2003 then MsgBox "................................" end if cancel = True Me.N°ACTE.undo Me.N°ACTE.SetFocus end if ...
Bonjour,
le SetFocus (qui provoque l'erreur) est inutile, de même que le Undo, car le fait de mettre Cancel = True dans le BeforeUpdate bloque toute la suite des événements. Tu peux à la limite annuler la saisie en mettant Me.N°ACTE = Null.