Discussion :

[Siramane]

Bonjour tout le monde,

J'ai un problème qui est peut-être facile pour vous.
Je veux programmer le message d'erreur suivant :

Code :

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

1
2
3
If Me.txtdebut < Me.txtdebclause Then
      MsgBox "La date de début doit être identique ou postérieure à la début de la clause salariale.", vbOKOnly, "Message d'erreur!"
End If

" Me.txtdebut " est dans le formulaire dans lequel je programme le message d'erreur.

Le problème c'est que "Me.txtdebclause" se trouve dans un autre formulaire qui n'est pas ouvert.

Donc j'ai le message d'erreur suivant :



J'ai fais des recherches mais j'y arrive pas pour le moment.

Merci d'avance pour votre aide.

[nico84]

Bonjour,

Si le 2e formulaire est ouvert cela s'écrit par exemple :

Code :

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

1
2
3
If Me.txtdebut < form_formulaire2.txtdebclause Then
ou 
If Me.txtdebut < forms("formulaire2").txtdebclause Then

Mais s'il n'est pas ouvert il faut aller lire directement dans la table, par exemple :

Code :

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

If Me.txtdebut < dlookup("txtdebclause","latablequivabien","laconditionquivabien") Then

[Malick]

En complément, ce tutoriel de loufab pourrait également vous être très utile :

Les syntaxes d'appel
Interaction des formulaires et des états

.

[Siramane]

Merci les amis... Je vous répondrez vendredi, jour où je travaille, pour vous faire le compte-rendu si cela marche.

Mais pour le moment... "Latablequivabien " serai la table dans lequel se trouve le champ?
Et "laconditionquivabien" serait?
Encore merci....

[Siramane]

Bonjour les amis,

J'ai essayer la fonction Dlookup, mais avec ça, elle part chercher une valeur spécifique du champ de la table. Moi j'aimerai qu'elle part chercher la valeur qui est enregistrer dans le formulaire.

Comment faire?

Avec ce code ci-dessous, elle part chercher la première valeur du champs [DEB_C_SAL] dans la table [DOC]. Et avec une condition, je peux en plus aller chercher une autre valeur du champs.

Mais moi j'aimerai qu'elle parte chercher la valeur qui est enregistrer dans le formulaire (Formulaire_relation_travail_modifier) qui est fermer. La zone de texte dans ce formulaire s'appelle txtdebclause qui à pour source contrôle [DEB_C_SAL] et relier à la table [DOC].

Code :

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

1
2
3
If Me.txtdebut < DLookup("[DEB_C_SAL]", "[DOC]") Then
      MsgBox "La date de début doit être identique ou postérieure à la début de la clause salariale.", vbOKOnly, "Message d'erreur!"
End If

Je suis débutant en programmation et je m'excuse si je ne suis pas assez clair.

Merci encore pour votre aide.

[Robert1957]

Bonjour Siramane,

Je ne comprend pas ce que tu veux dire exactement. Un formulaire fermé n'a pas de valeur, il est vide puisqu'il est fermé. Est-ce que c'est parce que tu ouvres un formulaire à partir du formulaire (Formulaire_relation_travail_modifier) et que tu fermes celui-ci dans la même séquence et que tu veux récupérer l'information qu'il y avait dans le champ txtdebclause au moment de l'action?

Si c'est le cas le moyen le plus simple et efficace est de passé la valeur dans le OpenArgs du DoCmd.

Bonne journée