Discussion :

[Cantalou]

Bonjour,

Voici une question toute bête

Je voudrais envoyer un message d'erreur en fonction du contenu d'un champ de mon formulaire principal, après la mise à jour du sous-formulaire.

J'arriver bien à raffraichir l'affichage des champs du formulaire principal, mais pas à afficher le message d'erreur ?

Voici le Sub mis dans le sous-formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Form_AfterUpdate()
Forms![F_Sondages/parcelles]![ZL_surf].Requery
Forms![F_Sondages/parcelles]![Somme_part].Requery
Forms![F_Sondages/parcelles]![Somme_surf].Requery
 
If Forms![F_Sondages/parcelles]![Somme_part] > 100 Then
MsgBox "Attention ! Le total dépasse 100%", vbOKOnly, "Somme des %"
End If
 
End Sub

Où est mon erreur ?

Merci !

[loufab]

Bonjour,

En mode debogage que te renvoi le controle Forms![F_Sondages/parcelles]![Somme_part] ?

Cordialement,

[Cantalou]

Forms![F_Sondages/parcelles]![Somme_part] = Null

!!??

[loufab]

et à l'affichage le controle est vide ?

[Cantalou]

Non non !

il y a 101 donc :
1) le "requery" a bien fonctionné
2) le message d'erreur "Plus de 100%" aurait dû s'afficher !

[loufab]

C'est peut-être un pb de temporisation.

Essaye de mettre un Doevents juste avant le test.

[Cantalou]

Je ne sais pas à quoi sert DoEvents, mais j'ai fait comme tu dis ... et ça marche pô !...

Dommage !

Tiens une petite image pour mieux voir mon form.:

[loufab]

le doevents permet de terminer les taches en cours avant de continuer.

C'est extrement bizarre je viens de faire le test. événement After update du form principal et le message s'affiche bien.

tu as essayé ceci ?

Code :

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

if me.Somme_part > 100 then

[Faw]

Il s'agit d'after update du sous-form pas du form. Mais c'est qd même bizarre.

[Cantalou]

Oui donc Me.somme_part n'est pas connu dans le sous-form.

Mon champ "Somme_part" est une zone de liste indépendante vérouillée dont le contenu est basé sur une requête SQL. Ces précisions ont-elles une importance ?

(A propos de précisions , je suis sur Win Xp pro avec Access 2000.)

merci encore de vous pencher sur mon problème !

[loufab]

ton champ somme_part est dans le formulaire et non le sous-form.

essaye cette syntaxe

Code :

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

me.parent.somme_part

[Cantalou]

Ben non, ça marche pas non-plus ...

Tanpis, je laisse tomber. J'espère que mes utilisateurs ne seront pas assez bêtes pour faire un total qui dépasse les 100% !

Merci quand-même !

(PS: vu que ça avait l'air de marcher chez-vous faudrait que je regarde si j'ai le même problème sur un autre PC)

[loufab]

Je pense que tu te mélange entre les controles du form et ceux du sous-form.

Ton appel evenementiel AfterUpdate est dans le form ou le sous-form ?

[Cantalou]

AfterUpdate est dans le sous-form

[loufab]

Dans ce cas utilise

Code :

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

if me.parent.somme_part > 100 then

ou

Code :

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

if forms!nomduformprincipal.somme_part > 100 then

En effet ton evenement est dans le sous-form et ton controle est dans le form.

Si tu veux une liste exhaustive des appels regarde sur mon tuto ici

http://2gm.free.fr/index.php?page=memo_syntaxe_appel