OVH Cloud OVH Cloud

simplification de code

17 réponses
Avatar
tonio
Bonjour,

Y a t il moyen de simplifié ce code?

If (Me.Nbre_Enfants) = "0" Then
Me.Num_Enfant_1 = Null
Me.Num_Enfant_2 = Null
Me.Num_Enfant_3 = Null
Me.Num_Enfant_4 = Null
Me.Num_Enfant_5 = Null
Me.Enfant_1 = Null
Me.Enfant_2 = Null
Me.Enfant_3 = Null
Me.Enfant_4 = Null
Me.Enfant_5 = Null
End If
If (Me.Nbre_Enfants) = "1" Then
Me.Num_Enfant_2 = Null
Me.Num_Enfant_3 = Null
Me.Num_Enfant_4 = Null
Me.Num_Enfant_5 = Null
Me.Enfant_2 = Null
Me.Enfant_3 = Null
Me.Enfant_4 = Null
Me.Enfant_5 = Null
End If
If (Me.Nbre_Enfants) = "2" Then
Me.Num_Enfant_3 = Null
Me.Num_Enfant_4 = Null
Me.Num_Enfant_5 = Null
Me.Enfant_3 = Null
Me.Enfant_4 = Null
Me.Enfant_5 = Null
End If
If (Me.Nbre_Enfants) = "3" Then
Me.Num_Enfant_4 = Null
Me.Num_Enfant_5 = Null
Me.Enfant_4 = Null
Me.Enfant_5 = Null
End If
If (Me.Nbre_Enfants) = "4" Then
Me.Num_Enfant_5 = Null
Me.Enfant_5 = Null
End If

Merci d'avance

--
Tonio
Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de
mail : Mozilla thunderbird
<http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet :
IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger
<http://messenger.msn.fr>

7 réponses

1 2
Avatar
RaphK34
Re,
En basant un sous form sur une requête regroupement avec comme critère
père=PAPA ou mère=MAMAN

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"tonio" a écrit dans le message
de news:
| RaphK34 a écrit dans son message <e# :
| > Re,
| Re,
| > Pourquoi pas dans Tbl_Clients faire un champs PAPA et un champs MAMAN
dans
| > lequel on notera les clefs correspondantes des intéressés ...
| > Ainsi tu peux tout gérer simplement avec une requête
|
| > --
| > @+ Raph.
|
| > --------------------------------------------
| > Merci de répondre sur le NG
| > Toutes remarques bienvenues !
|
| > Pour un contact direct, utiliser:
| > en enlevant nospam.
| > --------------------------------------------
|
| Merci
|
| J'avais pas vu ca dans ce sens là
|
| et dans ce cas comment afficher le nom des enfants dans le fiche du pere
ou de
| la mere
|
|
| --
| Tonio
| Me.[Débutant]=Null
| ;-);-);-)
|
|
Avatar
tonio
RaphK34 a écrit dans son message :
Re,
En basant un sous form sur une requête regroupement avec comme critère
père=PAPA ou mère=MAMAN


une question complémentaire

toujours sur la même table j'ai un champs CONJOINT

j'arrive à sélectionner dans mon form le conjoint avec une Combo et en mettant
le résultat concatené (nom+prénom) dans une zone texte

ma question est de savoir s'il est possible de répercuter ce choix chez le
conjoint.

Ex: Je suis sur la fiche de A
Je sélectionne B comme conjoint
Automatiquement dans la fiche de B, A est choisi comme conjoint

là où ca peux se compliquer c'est qu'il faut changer par concéquence le choix
dans ma zone Grp_Situation_Familiale où j'ai 7 choix possible.

célibataire - Marié - divorcé - pacsé - concubin - veuf - décédé

ex : Je suis sur la fiche de A qui est déclaré comme célibataire
Je change ce statut en marié (par exemple)
Puis je choisis B comme conjoint
Dans l'enregistrement de B, A est enregistré comment conjoint et son
statut passe à Marié

Merci pour votre aide à tous

--
Tonio
Me.[Débutant]=Null
;-);-);-)

Avatar
RaphK34
Re,
Tout est possible, il suffit AfterUpdate de B, de faire une Requête mise à
jour sur B en utilisant les datas de l'enregistrement en cours (Fiche de A)
par exemple.

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"tonio" a écrit dans le message
de news:
| RaphK34 a écrit dans son message :
| > Re,
| > En basant un sous form sur une requête regroupement avec comme critère
| > père=PAPA ou mère=MAMAN
|
| une question complémentaire
|
| toujours sur la même table j'ai un champs CONJOINT
|
| j'arrive à sélectionner dans mon form le conjoint avec une Combo et en
mettant
| le résultat concatené (nom+prénom) dans une zone texte
|
| ma question est de savoir s'il est possible de répercuter ce choix chez le
| conjoint.
|
| Ex: Je suis sur la fiche de A
| Je sélectionne B comme conjoint
| Automatiquement dans la fiche de B, A est choisi comme conjoint
|
| là où ca peux se compliquer c'est qu'il faut changer par concéquence le
choix
| dans ma zone Grp_Situation_Familiale où j'ai 7 choix possible.
|
| célibataire - Marié - divorcé - pacsé - concubin - veuf - décédé
|
| ex : Je suis sur la fiche de A qui est déclaré comme célibataire
| Je change ce statut en marié (par exemple)
| Puis je choisis B comme conjoint
| Dans l'enregistrement de B, A est enregistré comment conjoint et son
| statut passe à Marié
|
| Merci pour votre aide à tous
|
| --
| Tonio
| Me.[Débutant]=Null
| ;-);-);-)
|
|
Avatar
tonio
RaphK34 a écrit dans son message :
Re,
Tout est possible, il suffit AfterUpdate de B, de faire une Requête mise à
jour sur B en utilisant les datas de l'enregistrement en cours (Fiche de A)
par exemple.

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------




Merci encore je me lance et on va voir ce que cela donne



--
Tonio
Me.[Débutant]=Null
;-);-);-)

Avatar
tonio
RaphK34 a écrit dans son message :
Re,
Bonsoir,

Tout est possible, il suffit AfterUpdate de B, de faire une Requête mise à
jour sur B en utilisant les datas de l'enregistrement en cours (Fiche de A)
par exemple.



comment calculer, à l'activation du formulaire client
[ Private Sub Form_Current() ]
le nombre d'enregistrement don le champs Cmb_Num_Père est égal à Txt_Num en le
réinjectant dans Txt_Nbre_Enfants?

Merci


--
Tonio
Me.[Débutant]=Null
;-);-);-)

Avatar
RaphK34
Salut,
Voir la fonction DCount qui est très bien renseignée dans l'aide!

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"tonio" a écrit dans le message
de news:
| RaphK34 a écrit dans son message :
| > Re,
| Bonsoir,
| > Tout est possible, il suffit AfterUpdate de B, de faire une Requête mise
à
| > jour sur B en utilisant les datas de l'enregistrement en cours (Fiche de
A)
| > par exemple.
|
|
| comment calculer, à l'activation du formulaire client
| [ Private Sub Form_Current() ]
| le nombre d'enregistrement don le champs Cmb_Num_Père est égal à Txt_Num
en le
| réinjectant dans Txt_Nbre_Enfants?
|
| Merci
|
|
| --
| Tonio
| Me.[Débutant]=Null
| ;-);-);-)
|
|
Avatar
tonio
RaphK34 a écrit dans son message :
Salut,
Salut,

Voir la fonction DCount qui est très bien renseignée dans l'aide!
J'y cours

--
Merci

@+ Raph.
@+




--
Tonio
Me.[Débutant]=Null
;-);-);-)

1 2