Discussion :

[massi15]

Bonsoir
svp je sollicite votre aide pour finaliser un travail que j'ai déga entamé avec votre aide merci d'avance.
en fait j'ai table avec 05 champs:
1- Nom
2- Prenom
3- NumLicence
4- NumChomeur
5- Resultat
SVP
je souhaiterai que le champ :

- champ "resultat" m'inscrit " ECT" si les champs NumLicence et NumChomeur ne sont pas renseignés.
- champ "resultat" m'inscrit " Cho" si le champ NumLicence est renseigné
- champ "resultat" m'inscrit " Lic" si les champ NumChomeur est renseigné

[rjamin]

Bonjour,

Pour vous donnez une réponse précise il faudrait préciser le type des différents champs
Texte ou numérique ?

Car les tests nécessaire doivent être fait sur 0 si numérique ou Null ou "" si texte.

De plus utiliser Nom comme nom de champ n'est pas recommendable car Nom (Name) est un mot clé dans les versions françaises, il vaut mieux mettre Nom_Travailleur par exemple.

[massi15]

Bonjour,
merci pour vos orientations.
pour ce qui est des champs ils se presentent comme ceci:

1- Nom_adhérant : texte
2- Prenom _adhérant : texte
3- NumLicence_adhérant : numerique
4- NumChomeur_adhérant : numerique
5- Resultat_adhérant : texte
Merci pour votre précieuse aide
mes salutations.

[rjamin]

Bonjour,

Sur l'évènement Réception Focus du champs Resultat_adhérant vous écrivez le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Resultat_Adhérant_GotFocus ()
'Premier test logique
If IsNull(Me.[NumLicence_Adhérant]) and IsNull(Me.NumChomeur_Adhérant) then
<div style="margin-left:40px">Me.[Resultat_Adhérant]="ECT"</div>End If
'Deuxieme test logique
If Me.[NumChomeur_adhérant]>0 and IsNull(Me.[NumLicence_adhérant) then
<div style="margin-left:40px">Me.[Resultat_adhérant] = "Lic"</div>End If
'Troisème test
If IsNull(Me.[NumChomeur_adhérant]) And Me.[NumChomeur_adhérant]>0 then
<div style="margin-left:40px">Me.[Resulta_adhérant]="Cho"</div>End If
 
End Sub

Il y a des <blockQuote> qui se mettent dans les lignes il ne faut pas les recopier.

Il est possible que le test avec IsNull ne fonctionne pas si vous avez mis la valeur par défaut des champs numérique à 0, il faut alors alors remplacer
ISNull([NomChamp]) par Me.[NomChamp]=0

[massi15]

Bonjour,
merci pour votre réponse.
le champ "resultat" par défaut est "ECT", donc les 02 champ ne sont pas renseignés.
si le champ NumLicence_adherant est renseigné alors champ situation = "LIC", si maintenat les 02 champs "NumLicence_adherant " et " NumChomeur_adhérant" sont renseignés, alors champ "resultat" = "CHO"

y'a juste un ptit problème, j'ai remplacer test drnière par ceci malgré ca pas de résultat.

Code :

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

1
2
3
'changement à ce nivaeu là
If (Me.[NumChomeur_adhérant]) >0 And Me.[NumChomeur_adhérant]>0 then<blockquote>Me.[Resulta_adhérant]="Cho"</blockquote>End If
End Sub

le 2eme problème il me change pas le champ "situation"
merci encore pour votre aide qui m'est précieuse.
mes salutations.

[massi15]

Bonjour
merci pour le tout, ca marche à merveille, sauf que le champs "resultat" n'affiche pas à temp le changement, il faut que je quitte l'application pour que les changements prenent effet.
comment faire SVP
merci pour votre aide
mes salutations.