Discussion :

[OBIWAN64]

Bonjour,

Je crée actuellement une base de donnée avec ACCESS 2000.
Mon problème est le suivant.
J'ai un formulaire principal qui comprend deux sous-formulaires A et B dans lesquels des données numériques doivent être rentrées.
Tous les champs du sous-formulaire A sont saisis par l'utilisateur.
Arrive alors la saisie du sous-formulaire B.
Je souhaite que lors de cette saisie il y ait une vérification, de sorte que la valeur du champ 1 du sous-formulaire B soit inférieure à la valeur saisie dans le champ 1 du sous-formulaire A (avec bien sur annulation de la saisie si la condition n'est pas remplie).

Merci d'avance pour toute réponse.

[Demco]

Sur l'evenement BeforeUpdate() du controle de ton formulaire B verifie la valeur du controle du formulaire A grace a :
http://access.developpez.com/faq/?page=Ctrl#ctlsForm

Pour annuler la saisie, dans le code de cet evenement tu peux utiliser :

Code :

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

Cancel = True

[OBIWAN64]

Je te remercie pour ton aide.

J'avais trouvé la formulation afin d'indiquer la référence d'un formulaire ou d'un sous-formulaire.

J'ai donc saisi ce qui suit dans l'évènement BeforeUpdate() du contrôle du sous-formulaire B :

If Forms![Formulaire_Principal]![sous_formulaire_B].Form![champs1] >
Forms![Formulaire_Principal]![sous_formulaire_A].Form![champs1] Then [color=red]Cancel = True

Lors de la saisie une erreur 2465 apparaît : impossible de trouver le champ 'sous_formulaire_B' auquel il est fait référence.

Faut-il depuis le sous-formulaire remonter au formulaire principal puis faire exécuter la vérification ? Si oui je ne vois pas comment faire.

Encore merci[/code]

[Arkham46]

salut,

préfère les balise de code ça abîme moins les yeux

tu mets ton code dans le sous-form donc le premier champ est accessible directement
pour le deuxième tu remontes effectivement au parent et tu redescends:

Code :

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

If Me![champs1] > Me.Parent.[sous_formulaire_A].Form![champs1] Then Cancel = True

[OBIWAN64]

Merci Arkham,

Mon problème est résolu.