OVH Cloud OVH Cloud

Formulaire champs

4 réponses
Avatar
cliffburton57
Microoft ACCESS 2003
Windows XP

Bonjour à tous,
Je cherche à crée une base de données contenant une liste de matériel.
Ma table principale contient plusieurs champs.

Localisation - Contrat - Type de communication - Adresse IP - N°de Telephone

Mon but est de crée un formulaire simple qui s'adapte en fonction des
informations que je rentre. Je m'explique.
- Si dans le champ localisation (qui est affecté à une liste de choix) je
selectionne Lorraine Nord, j'aimerais qu'il m'affiche que certaines
informations du champs contrats.
- Si dans le champ Type de communication (qui est affecté à une liste de
choix) je selectionne Ethernet, j'aimerais qu'il m'affiche la case Adresse IP
du formulaire mais qu'il me cache la case N°de telephone.

J'espere avoir été le plus clair possible.
Merci d'avance à tous !
@+

4 réponses

Avatar
cliffburton57
Euh .... c'est bon j'ai réussi grâce a ton aide à faire cette partie.
Maintenant le probleme qui se pose c que j'ai un champs de ma base de donnée
: "Contrat" qui doit corresponde a soit: (liste de choix)

Boulay
Bouzonville

dans le cas ou Localisation = "Lorraine Nord"

soit :

Epinal
St Dié

dans le cas ou Localisation = "Lorraine Sud"

Merci d'avance @+
Avatar
Jessy Sempere
Bonjour

Il te faut utiliser par exemple sur l'événement "après mise à jour" du
contrôle TypeCommunication :

If me.typeCommunication = "Ethernet" then
me.CaseAdresseIp.visible = true
Else
me.CaseAdresseIp.visible = false
End if

Après, il existe différent moyen pour faire ce genre de manipulation, on
pourrait imaginé que ta liste type de communication est basée sur une table
contenant les informations sur les champs qui doivent être visible, genre

TypeCom AdresseIp (Type OuiNon)
Téléphone Non
Ethernet Oui

Ensuite, dans ton formulaire tu aurais sur l'événement "après mise à jour"
de ta liste un code dans ce genre :

if DLookup("AdresseIp", "TableTypeCommunication", "TypeCom = '" & Me.Taliste
& "'") = True Then
me.Case.Visible = true
else
me.case.visible = false
end if

L'avantage c'est que ça t'évitera de paramétrer dans le code toutes les
possibilités, c'est les cases à cocher de ta table qui le permettront...

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Microoft ACCESS 2003
Windows XP

Bonjour à tous,
Je cherche à crée une base de données contenant une liste de matériel.
Ma table principale contient plusieurs champs.

Localisation - Contrat - Type de communication - Adresse IP - N°de Telephone

Mon but est de crée un formulaire simple qui s'adapte en fonction des
informations que je rentre. Je m'explique.
- Si dans le champ localisation (qui est affecté à une liste de choix) je
selectionne Lorraine Nord, j'aimerais qu'il m'affiche que certaines
informations du champs contrats.
- Si dans le champ Type de communication (qui est affecté à une liste de
choix) je selectionne Ethernet, j'aimerais qu'il m'affiche la case Adresse IP
du formulaire mais qu'il me cache la case N°de telephone.

J'espere avoir été le plus clair possible.
Merci d'avance à tous !
@+


Avatar
cliffburton57
Merci pour ta reponse rapide Jessy

Néanmoins, je n'arrive pas à faire executer ce code.
Désolé je suis un peu noob dans le domaine de VB.
J'ai mis :

Private Sub Localisation_AfterUpdate(Cancel As Integer)

If Me.Localisation = "Lorraine Nord" Then
Me.Contrat.Visible = True
Else
Me.Contrat.Visible = False
End If

End Sub

et il me met une erreur.
Peut tu encore m'aider ! lol

Merci d'avance !!!
Avatar
ze Titi
Salut cliffburton57 !

Si tu donnais l'erreur envoyée, ça aiderait Jessy...

En ce jour exceptionnel du mercredi 21/02/2007, tu nous as très
généreusement gratifié du message suivant:

Merci pour ta reponse rapide Jessy

Néanmoins, je n'arrive pas à faire executer ce code.
Désolé je suis un peu noob dans le domaine de VB.
J'ai mis :

Private Sub Localisation_AfterUpdate(Cancel As Integer)

If Me.Localisation = "Lorraine Nord" Then
Me.Contrat.Visible = True
Else
Me.Contrat.Visible = False
End If

End Sub

et il me met une erreur.
Peut tu encore m'aider ! lol

Merci d'avance !!!


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info