Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 11/05/2011, 14h29   #1
Candidat au titre de Membre du Club
 
Homme Kevin Merot
En apprentissage (Licence pro)
Inscription : avril 2011
Messages : 41
Détails du profil
Informations personnelles :
Nom : Homme Kevin Merot
Localisation : France, Ain (Rhône Alpes)

Informations professionnelles :
Activité : En apprentissage (Licence pro)
Secteur : Distribution

Informations forums :
Inscription : avril 2011
Messages : 41
Points : 14
Points : 14
Par défaut Formulaire - Valeur par défaut d'une case à cocher en fonction d'une zone de texte

Bonjour,

J'ai une zone de texte (txt_categoriePublier) qui contient un champ d'une table et qui a pour valeur soit "Y" soit "N",

une case à cocher (chk_publier) qui à pour évènement "click"


Code :
1
2
3
4
5
6
7
8
Private Sub chk_publier_Click()
If (Me.chk_publier = -1) Then
    Me.txt_categoriePublier = "Y"
End If
If (Me.chk_publier = 0) Then
    Me.txt_categoriePublier = "N"
End If
End Sub
Cela me permet de mettre Y ou N dans txt_categoriePublier facilement en fonction de la valeur de la case à cocher.

Je voudrais aussi, tout simplement, que quand je lance le formulaire, la valeur par défaut de la case à cocher soit donc "-1" si "Y" et "0" si "N"

Ca ne doit pas être compliquer mais je n'ai aucune idée ou faire ça
je pense qu'il doit y avoir ce genre de code à placer quelque part non ? :


Code :
1
2
3
4
5
6
If (Me.txt_categoriePublier = "Y") Then
    Me.chk_publier.Value = -1
End If
If (Me.txt_categoriePublier = "N") Then
    Me.chk_publier.Value = 0
End If
Merci d'avance pour votre aide
kurtnolan est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/05/2011, 23h14   #2
Membre habitué
 
Homme
Conseil - Consultant en systèmes d'information
Inscription : octobre 2008
Messages : 212
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 51
Localisation : France

Informations professionnelles :
Activité : Conseil - Consultant en systèmes d'information
Secteur : Conseil

Informations forums :
Inscription : octobre 2008
Messages : 212
Points : 126
Points : 126
Bonjour,

Colles ton morceau de code dans l'évènement "Sur activation" de ton formulaire:
Code :
1
2
3
4
5
6
7
8
Private Sub Form_Current()
If (Me.txt_categoriePublier = "Y") Then
    Me.chk_publier.Value = -1
End If
If (Me.txt_categoriePublier = "N") Then
    Me.chk_publier.Value = 0
End If
End Sub
Cela devrait régler ton problème.
Petite question : pourquoi n'utilises-tu pas une variable booléenne directement dans ta table pour définir "txt_categoriePublier", ce qui semblerait plus adaptée ?
Cordialement,
Triton972 est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 12/05/2011, 10h04   #3
Candidat au titre de Membre du Club
 
Homme Kevin Merot
En apprentissage (Licence pro)
Inscription : avril 2011
Messages : 41
Détails du profil
Informations personnelles :
Nom : Homme Kevin Merot
Localisation : France, Ain (Rhône Alpes)

Informations professionnelles :
Activité : En apprentissage (Licence pro)
Secteur : Distribution

Informations forums :
Inscription : avril 2011
Messages : 41
Points : 14
Points : 14
Merci beaucoup, je vais essayer cela.

Pour répondre à ta question, en fait je suis en train de réaliser, dans le cadre de mon stage, une interface d'administration pour le module Virtuemart du site de l’entreprise sous Joomla. Afin par exemple de modifier les catégories de produits, ajouter de nouveaux produits etc...
Car l'entreprise utilise Access et voudrait donc tout faire depuis cette appli.

Donc les tables ne sont pas de moi et je dois respecter les contraintes d'origine de Virtuemart.

Ce n'est pas facile mais je commence à intégrer l'architecture des tables de virtuemart.
kurtnolan est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h56.


 
 
 
 
Partenaires

Hébergement Web