Discussion :

[sud825]

Voici l'information de mon pb. j'ai un formulaire pour la gestion des vaccins. J'ai un check box "Chk_TD" et une zone déroulante "Zone_List_TD_Lot". Si je clic sur mon check box je doit entre une information dans ma zone de liste déroulante.

J'aimerais que lorsque je ouvre mon formulaire qu'il est seulement le check box "Chk_TD" de visible et si je clic sur ce dernier , il m'apparâit ma zone déroulante "Zone_List_TD_Lot" et m'oblige à rentrer une informations. Car il est primordiale de renseigner ce dernier. si un clic à été fait sur "Chk_TD".

Dans mon formulaire pour l'instant je peux cliquer sur "Chk_TD" et laisser vide la zone de liste. Ce qui peux créer des erreur de compilations sur différents états futures.

Si quelqu'un à une idées faite moi le savoir.

[FreeAccess]

Bonjour,

..il m'apparâit ma zone déroulante "Zone_List_TD_Lot" et m'oblige à rentrer une informations

Généralement, une Zone de liste n'est pas faites pour cela.....mais plutôt pour effectuer un choix (même s'il y a possibilité d'ajouter une donnée à partir de cette ZDL..)
Ne connaissant pas ton application, je pense que tu saisie des vaccins par rapport à un patient
Pourquoi ne pas utiliser un simple sous-formulaire

[Renardo]

Essai sur procedure clic du bouton a bascule

Code :

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

1
2
3
4
5
If Me.Chk_TD.Value = 0 Then
Me.Liste.Visible = True        
Else
Me.Liste.Visible = False
end if

en suite sur la procedure d'activation du form

Code :

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

1
2
Me.Chk_TD.Value = -1
Me.Liste.Visible = False

[FreeAccess]

Re,

..J'aimerais que lorsque je ouvre mon formulaire qu'il est seulement le check box "Chk_TD" de visible et si je clic sur ce dernier , il m'apparâit ma zone déroulante "Zone_List_TD_Lot"...

Sur l'événement "AprèsMAJ" de ta Case à cocher:

Code :

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

1
2
3
4
5
6
7
Private Sub Chk_TD_AfterUpdate()
If Me.Chk_TD.Value = False Then
        Me.Zone_List_TD_Lot.Visible = False
    ElseIf Me.Chk_TD.Value = True Then
        Me.Zone_List_TD_Lot.Visible = True
    End If
End Sub

Ce type de code ne va agir que sur la propriété Visible/Invisible de ta Zone de Liste....

[sud825]

J'ai mal expliquer ma zone de liste , effectivement je veux effetuer un choix et non ajouter une donnée. Et voici plus d'info pour mon formulaire "sasie". dans ce dernier ce trouve l'information du patient ( Matricule,Nom, prénom etc etc. ) mon formulaire Contient également le Sous Formulaire SF_Vaccins qui me permet d'ajouter les vaccin recu pour ce Patient. Étant donné que le même patient peux revenir plusieurs fois le même formulaire fonctionne pour cette possibilté en utilisant une clé primaire ID de visite Sans doublon et une autre avec son matricule acceptant les doublons.

Je sais pas si mes explications sont plus clairs. Merci de vôtre aide.

Bonjour,

Généralement, une Zone de liste n'est pas faites pour cela.....mais plutôt pour effectuer un choix (même s'il y a possibilité d'ajouter une donnée à partir de cette ZDL..)
Ne connaissant pas ton application, je pense que tu saisie des vaccins par rapport à un patient
Pourquoi ne pas utiliser un simple sous-formulaire

[sud825]

J'ai ajouter une photo avec mon sous formulaire ce qui vous donneras plus d'info avec une brèves explications de ce que je veux faire sur la photo.

[FreeAccess]

Oui, j'avais bien compris ton problème concernant ta case à cocher....

Donc que donne mon code sur ton application
Car avec mon exemple, dès que tu coche cette case à cocher, ta liste déroulante devient visible et inversement dès que tu décoche...

[sud825]

Avec le code que vous m'avez donné, lorsque j'ouvre mon formulaire la zone liste est visible, si clique sur mon check box , elle reste visible , aussitot que le décoche elle disparait.

Voici le code que j'ai appliqué selon vos recommendations.

Code :

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

1
2
3
4
5
6
7
Private Sub Chk_TD_AfterUpdate()
If Me.Chk_TD.Value = False Then
        Me.Zone_List_TD_Lot.Visible = False
    ElseIf Me.Chk_TD.Value = True Then
        Me.Zone_List_TD_Lot.Visible = True
    End If
End Sub

Oui, j'avais bien compris ton problème concernant ta case à cocher....

Donc que donne mon code sur ton application
Car avec mon exemple, dès que tu coche cette case à cocher, ta liste déroulante devient visible et inversement dès que tu décoche...

[FreeAccess]

Avec le code que vous m'avez donné, lorsque j'ouvre mon formulaire la zone liste est visible, si clique sur mon check box , elle reste visible , aussitot que le décoche elle disparait.

C'est normal.....pour que cela fonctionne correctement, il faut lors de la conception de ton formulaire, mettre la propriété Visible = non de ta Zone de liste.....

[Renardo]

Desoler mais je ne suis pas trop d'accord avec toi FreeAccess car meme en mettant visible a non, si il sort et que sa liste est en visible quand il va rentrer sa liste sera encore visble Quand pense tu?

[FreeAccess]

Mais je suis également tout à fait d'accord avec toi Renardo.....

Simplement, je me contente de répondre à sa première question...avec les éléments en notre possession.

J'aimerais que lorsque je ouvre mon formulaire qu'il est seulement le check box "Chk_TD" de visible et si je clic sur ce dernier , il m'apparâit ma zone déroulante "Zone_List_TD_Lot"...

...si il sort et que sa liste est en visible quand il va rentrer sa liste sera encore visble Quand pense tu?

Oui, bien sur......mais ici j'ai pensé que sa case à cocher était indépendante et ne servait qu'a rendre Visible/Invisible sa Zone de liste...
Pour l'instant je ne juge pas le bien fondé de ce qu'il veut effectuer.....

[sud825]

Dans ma base de donnée j'utilise 2 tables, la premières ce nomme "T_infos_Primaire" contient les champs suivant, la clé primaire "Matricule" , Grade , Nom , Prénom , Raison de la visite. Ma 2 ième table ce nomme "T_Vaccins" et contient les champs suivant , la clé primaire ("ID Visite" numéro auto ) 2ième clé "Matricule" îndexé avec doublon et tout les type de vaccin que j'uitilise telle que TD, Polio...Etc. Pour Chacun des Champs telle que (TD de type oui/non) il s'y retrouve également un champ Nommé (TD LOT de type Texte ). et ainsi de suite pour les autres vaccins.

La source de mon formulaire de sasie est la table T_infos_Primaire et dans ce formulaire ce trouve un sous formulaire SF_Vaccins qui à pour source T_Vaccin.

Dans mon travail de tout les jours si je donne un vaccin à une personne je doit absolument indiquer le # de lot associer à la dose donnée. C'est pour cette raison que le Champs TD Lot est primordial à renseigner si j'ai coché sur la case TD dans mon sous formulaire.


Voici l'optique de ma demande, si un patient ce présente et que je le vaccine avec le TD je clique sur la case approprié et je doit séléctioner le lot dans ma zone de liste Zone_List_TD.

La base de donées sera utilisé par différentes personnes et il ne sont pas tous des experts d'ordinateurs. Alors j'essaie de leur simplifier la vie. Et éviter des erreurs futures.

C'est pour cette raison qu'il est préférable lorsque le SF_Vaccin est ouvert qu'il ai seulement les cases à cocher de visible. Si le patient à reçu le Vaccin TD je clique sur la case TD et il faudrait que access me fait apparaitre ma zone de liste en question qui ce trouve à être les numéros de lot pour ce vaccin seulement.

Également il est à noter que chacune des zones de liste fonctionne sous une requête ainsi qu'une table de lot EX: Rqt_TD_Lot et sa source T_TD_Lot.

Car un lot est valide pour plusieurs centaines de doses, et j'aimerais que lorsque je clique sur la case il rend visible la zone de list et inscrit par défaut la dernier valeur entré dans la table T_TD_Lot.




J'en profite pour laisser à vôtre disposition ma base de données.

Merci encore.

Mais je suis également tout à fait d'accord avec toi Renardo.....

Simplement, je me contente de répondre à sa première question...avec les éléments en notre possession.



Oui, bien sur......mais ici j'ai pensé que sa case à cocher était indépendante et ne servait qu'a rendre Visible/Invisible sa Zone de liste...
Pour l'instant je ne juge pas le bien fondé de ce qu'il veut effectuer.....

[rawsrc]

salut,

je me suis permis de zieuter sur ta base et je te conseillerai très fortement de revoir ton modèle conceptuel de données. Comment feras-tu quand il faudra rajouter une nouveau vaccin ? Dans l'application actuelle, tu devras créer une table pour le vaccin et une table pour gérer les lots ! Bonjour la modification, tu vas y perdre tous tes cheveux.

Tu trouveras ci-joint une image d'un mcd de ma conception répondant exactement au même besoin que le tien mais organisé différemment.

[sud825]

Merci j'en suis à mes débuts avec access et je vais t'avouer que les relations j'y connais pas grand choses. Mais je vais suivre vos recommandations.

salut,

je me suis permis de zieuter sur ta base et je te conseillerai très fortement de revoir ton modèle conceptuel de données. Comment feras-tu quand il faudra rajouter une nouveau vaccin ? Dans l'application actuelle, tu devras créer une table pour le vaccin et une table pour gérer les lots ! Bonjour la modification, tu vas y perdre tous tes cheveux.

Tu trouveras ci-joint une image d'un mcd de ma conception répondant exactement au même besoin que le tien mais organisé différemment.

[Renardo]

Ajoute se code

Code :

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

1
2
3
4
Private Sub Form_Current()
Me.Chk_TD = 0
Me.Zone_List_TD_Lot.Visible = False
End Sub

pour les autres liste tu ajoute a la suite

[sud825]

Merci bcp Renardo, tout fonctionne à 100%. Vraiment incroyable ce forum

Ajoute se code

Code :

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

1
2
3
4
Private Sub Form_Current()
Me.Chk_TD = 0
Me.Zone_List_TD_Lot.Visible = False
End Sub

pour les autres liste tu ajoute a la suite