Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
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 09/12/2011, 15h06   #1
Candidat au titre de Membre du Club
 
Homme
Étudiant
Inscription : novembre 2011
Messages : 32
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : High Tech - Multimédia et Internet

Informations forums :
Inscription : novembre 2011
Messages : 32
Points : 12
Points : 12
Par défaut Pb valeur box sous formulaire

Bonjour, dans un formulaire je dois récupérer des valeur de check box pour pouvoir evaluer des note , j'y arrive.
Le problème arrive lorsque je dois prendre la valeur d'une check box qui est présente dans un sous formulaire, je n'arrive pas a lui attribuer la valeur que je souhaite.
Voici mon code pour attribuer une valeur a une check box du formulaire :
Code :
1
2
3
4
If Check02 = -1 Then
Set rs = db.OpenRecordset("SELECT dechargement2 FROM parametre")
checkD2_result = rs.Fields("dechargement2").Value
End If
cela fonctionne trés bien mais pour la box du sous formulaire elle reste toujours a -1 et devrait etre égale a 4 (valeur présente dans la table) lorsque elle est coché.

J'espère que vous allez pouvoir m'éclairer
juice est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/12/2011, 16h40   #2
Candidat au titre de Membre du Club
 
Homme
Étudiant
Inscription : novembre 2011
Messages : 32
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : High Tech - Multimédia et Internet

Informations forums :
Inscription : novembre 2011
Messages : 32
Points : 12
Points : 12
J'ai trouver , il fallait en fait que je dirige mon recordset vers la table a laquel était lié mon sous formulaire pour ensuite pouvoir modifier la valeur a ma guise !

Code :
1
2
3
4
5
6
7
8
Set rs = db.OpenRecordset("SELECT conformeBox FROM Base_detail ")
conforme = rs.Fields("conformeBox").Value
If conforme = True Then
Set rs = db.OpenRecordset("SELECT detail_colis FROM parametre ")
conforme = rs.Fields("detail_colis").Value
Else
conforme = 0
End If
juice 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 22h17.


 
 
 
 
Partenaires

Hébergement Web