dans un état basée sur une requête j'ai un champ
[heure]. J'aimerais qu'en fonction de la valeur de [heure] se dessine dans
l'état des rectangles (pour un planning) !
ex [heure] = 4 , 4 "cases" dessinées
j'ai donc commencé par dessiner des rectangle (c1, c2, c3, etc ) et écrire
sur ouverture de l'état :
If heures.Value = 4 Then
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = True
End If
If heures.Value = 3 Then
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = False
End If
mais
*j'ai une erreur sur "heures.value" : expression sans paramètres
*peut on fire plus simple (je me vois mal dessiné 50 cases plus le code qui
va avec ...)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
une fois tu parles de Heure et l'autre fois de Heures , est-ce 2 variables ou champ ou une faute de frappe on ne sait pas si les cases s'appliquent à l'état ou à chaque enregistrement ? si tu as tes 50 déjà placés sur ton état tu peux les rendre visibles ou non par cette procédure:
' (Dim Heure As Integer) ??? Dim I As Integer For I = 1 To Heure Me.Controls("C" & I).Visible = True Next For I = Heure + 1 To 50 Me.Controls("C" & I).Visible = False Next ça te mettra visible ou non selon la valeur de heure.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
bonjour à tous ! besoins d'aide !
dans un état basée sur une requête j'ai un champ [heure]. J'aimerais qu'en fonction de la valeur de [heure] se dessine dans l'état des rectangles (pour un planning) !
ex [heure] = 4 , 4 "cases" dessinées
j'ai donc commencé par dessiner des rectangle (c1, c2, c3, etc ) et écrire sur ouverture de l'état :
If heures.Value = 4 Then
c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = True End If If heures.Value = 3 Then c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = False End If
mais *j'ai une erreur sur "heures.value" : expression sans paramètres *peut on fire plus simple (je me vois mal dessiné 50 cases plus le code qui va avec ...)
merci beaucoup !!!!!
fab
Bonjour.
une fois tu parles de Heure et l'autre fois de Heures , est-ce 2 variables
ou champ ou une faute de frappe
on ne sait pas si les cases s'appliquent à l'état ou à chaque enregistrement
?
si tu as tes 50 déjà placés sur ton état tu peux les rendre visibles ou non
par cette procédure:
' (Dim Heure As Integer) ???
Dim I As Integer
For I = 1 To Heure
Me.Controls("C" & I).Visible = True
Next
For I = Heure + 1 To 50
Me.Controls("C" & I).Visible = False
Next
ça te mettra visible ou non selon la valeur de heure.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" <fabthebass@discussions.microsoft.com> a écrit dans le message
de news: FFF7D5E3-10BC-4A89-B389-BAE20F3AEA32@microsoft.com...
bonjour à tous ! besoins d'aide !
dans un état basée sur une requête j'ai un champ
[heure]. J'aimerais qu'en fonction de la valeur de [heure] se dessine dans
l'état des rectangles (pour un planning) !
ex [heure] = 4 , 4 "cases" dessinées
j'ai donc commencé par dessiner des rectangle (c1, c2, c3, etc ) et écrire
sur ouverture de l'état :
If heures.Value = 4 Then
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = True
End If
If heures.Value = 3 Then
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = False
End If
mais
*j'ai une erreur sur "heures.value" : expression sans paramètres
*peut on fire plus simple (je me vois mal dessiné 50 cases plus le code
qui
va avec ...)
une fois tu parles de Heure et l'autre fois de Heures , est-ce 2 variables ou champ ou une faute de frappe on ne sait pas si les cases s'appliquent à l'état ou à chaque enregistrement ? si tu as tes 50 déjà placés sur ton état tu peux les rendre visibles ou non par cette procédure:
' (Dim Heure As Integer) ??? Dim I As Integer For I = 1 To Heure Me.Controls("C" & I).Visible = True Next For I = Heure + 1 To 50 Me.Controls("C" & I).Visible = False Next ça te mettra visible ou non selon la valeur de heure.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
bonjour à tous ! besoins d'aide !
dans un état basée sur une requête j'ai un champ [heure]. J'aimerais qu'en fonction de la valeur de [heure] se dessine dans l'état des rectangles (pour un planning) !
ex [heure] = 4 , 4 "cases" dessinées
j'ai donc commencé par dessiner des rectangle (c1, c2, c3, etc ) et écrire sur ouverture de l'état :
If heures.Value = 4 Then
c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = True End If If heures.Value = 3 Then c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = False End If
mais *j'ai une erreur sur "heures.value" : expression sans paramètres *peut on fire plus simple (je me vois mal dessiné 50 cases plus le code qui va avec ...)
merci beaucoup !!!!!
fab
fabthebass
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée d'une requete sur lequel est basé l'état ! il s'applique donc à tous les enregistrements ! pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
merci beaucoup ...
Bonjour.
une fois tu parles de Heure et l'autre fois de Heures , est-ce 2 variables ou champ ou une faute de frappe on ne sait pas si les cases s'appliquent à l'état ou à chaque enregistrement ? si tu as tes 50 déjà placés sur ton état tu peux les rendre visibles ou non par cette procédure:
' (Dim Heure As Integer) ??? Dim I As Integer For I = 1 To Heure Me.Controls("C" & I).Visible = True Next For I = Heure + 1 To 50 Me.Controls("C" & I).Visible = False Next ça te mettra visible ou non selon la valeur de heure.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
bonjour à tous ! besoins d'aide !
dans un état basée sur une requête j'ai un champ [heure]. J'aimerais qu'en fonction de la valeur de [heure] se dessine dans l'état des rectangles (pour un planning) !
ex [heure] = 4 , 4 "cases" dessinées
j'ai donc commencé par dessiner des rectangle (c1, c2, c3, etc ) et écrire sur ouverture de l'état :
If heures.Value = 4 Then
c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = True End If If heures.Value = 3 Then c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = False End If
mais *j'ai une erreur sur "heures.value" : expression sans paramètres *peut on fire plus simple (je me vois mal dessiné 50 cases plus le code qui va avec ...)
merci beaucoup !!!!!
fab
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée d'une
requete sur lequel est basé l'état ! il s'applique donc à tous les
enregistrements !
pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement
et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
merci beaucoup ...
Bonjour.
une fois tu parles de Heure et l'autre fois de Heures , est-ce 2 variables
ou champ ou une faute de frappe
on ne sait pas si les cases s'appliquent à l'état ou à chaque enregistrement
?
si tu as tes 50 déjà placés sur ton état tu peux les rendre visibles ou non
par cette procédure:
' (Dim Heure As Integer) ???
Dim I As Integer
For I = 1 To Heure
Me.Controls("C" & I).Visible = True
Next
For I = Heure + 1 To 50
Me.Controls("C" & I).Visible = False
Next
ça te mettra visible ou non selon la valeur de heure.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" <fabthebass@discussions.microsoft.com> a écrit dans le message
de news: FFF7D5E3-10BC-4A89-B389-BAE20F3AEA32@microsoft.com...
bonjour à tous ! besoins d'aide !
dans un état basée sur une requête j'ai un champ
[heure]. J'aimerais qu'en fonction de la valeur de [heure] se dessine dans
l'état des rectangles (pour un planning) !
ex [heure] = 4 , 4 "cases" dessinées
j'ai donc commencé par dessiner des rectangle (c1, c2, c3, etc ) et écrire
sur ouverture de l'état :
If heures.Value = 4 Then
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = True
End If
If heures.Value = 3 Then
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = False
End If
mais
*j'ai une erreur sur "heures.value" : expression sans paramètres
*peut on fire plus simple (je me vois mal dessiné 50 cases plus le code
qui
va avec ...)
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée d'une requete sur lequel est basé l'état ! il s'applique donc à tous les enregistrements ! pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
merci beaucoup ...
Bonjour.
une fois tu parles de Heure et l'autre fois de Heures , est-ce 2 variables ou champ ou une faute de frappe on ne sait pas si les cases s'appliquent à l'état ou à chaque enregistrement ? si tu as tes 50 déjà placés sur ton état tu peux les rendre visibles ou non par cette procédure:
' (Dim Heure As Integer) ??? Dim I As Integer For I = 1 To Heure Me.Controls("C" & I).Visible = True Next For I = Heure + 1 To 50 Me.Controls("C" & I).Visible = False Next ça te mettra visible ou non selon la valeur de heure.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
bonjour à tous ! besoins d'aide !
dans un état basée sur une requête j'ai un champ [heure]. J'aimerais qu'en fonction de la valeur de [heure] se dessine dans l'état des rectangles (pour un planning) !
ex [heure] = 4 , 4 "cases" dessinées
j'ai donc commencé par dessiner des rectangle (c1, c2, c3, etc ) et écrire sur ouverture de l'état :
If heures.Value = 4 Then
c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = True End If If heures.Value = 3 Then c1.Visible = True c2.Visible = True c3.Visible = True c4.Visible = False End If
mais *j'ai une erreur sur "heures.value" : expression sans paramètres *peut on fire plus simple (je me vois mal dessiné 50 cases plus le code qui va avec ...)
merci beaucoup !!!!!
fab
Raymond [mvp]
le problème étant de faire apparaître ou non les 50 contrôles nommés C1 à C50, il faut placer cette procédure dans l'événement Détail_Format, ce qui se déclenchera pour chaque enregistrement lu dans la requête.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) Dim I As Integer ' compteur For I = 1 To Heure ' de 1 à la valeur de heure on rend visible Me.Controls("C" & I).Visible = True Next
For I = Heure + 1 To 50 ' de heure +1 à maxi on rend invisible Me.Controls("C" & I).Visible = False Next End Sub
que dire de plus ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée d'une requete sur lequel est basé l'état ! il s'applique donc à tous les enregistrements ! pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
merci beaucoup ...
le problème étant de faire apparaître ou non les 50 contrôles nommés C1 à
C50, il faut placer cette procédure dans l'événement Détail_Format, ce qui
se déclenchera pour chaque enregistrement lu dans la requête.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim I As Integer ' compteur
For I = 1 To Heure ' de 1 à la valeur de heure on rend visible
Me.Controls("C" & I).Visible = True
Next
For I = Heure + 1 To 50 ' de heure +1 à maxi on rend invisible
Me.Controls("C" & I).Visible = False
Next
End Sub
que dire de plus ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" <fabthebass@discussions.microsoft.com> a écrit dans le message
de news: 5BAE0087-30FC-4BE2-A15A-DC8C20C5B117@microsoft.com...
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée
d'une
requete sur lequel est basé l'état ! il s'applique donc à tous les
enregistrements !
pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement
et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
le problème étant de faire apparaître ou non les 50 contrôles nommés C1 à C50, il faut placer cette procédure dans l'événement Détail_Format, ce qui se déclenchera pour chaque enregistrement lu dans la requête.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) Dim I As Integer ' compteur For I = 1 To Heure ' de 1 à la valeur de heure on rend visible Me.Controls("C" & I).Visible = True Next
For I = Heure + 1 To 50 ' de heure +1 à maxi on rend invisible Me.Controls("C" & I).Visible = False Next End Sub
que dire de plus ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée d'une requete sur lequel est basé l'état ! il s'applique donc à tous les enregistrements ! pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
merci beaucoup ...
fabthebass
rien ! ca marche parfaitement !
sincères mercis ! fab
le problème étant de faire apparaître ou non les 50 contrôles nommés C1 à C50, il faut placer cette procédure dans l'événement Détail_Format, ce qui se déclenchera pour chaque enregistrement lu dans la requête.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) Dim I As Integer ' compteur For I = 1 To Heure ' de 1 à la valeur de heure on rend visible Me.Controls("C" & I).Visible = True Next
For I = Heure + 1 To 50 ' de heure +1 à maxi on rend invisible Me.Controls("C" & I).Visible = False Next End Sub
que dire de plus ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée d'une requete sur lequel est basé l'état ! il s'applique donc à tous les enregistrements ! pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
merci beaucoup ...
rien !
ca marche parfaitement !
sincères mercis !
fab
le problème étant de faire apparaître ou non les 50 contrôles nommés C1 à
C50, il faut placer cette procédure dans l'événement Détail_Format, ce qui
se déclenchera pour chaque enregistrement lu dans la requête.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim I As Integer ' compteur
For I = 1 To Heure ' de 1 à la valeur de heure on rend visible
Me.Controls("C" & I).Visible = True
Next
For I = Heure + 1 To 50 ' de heure +1 à maxi on rend invisible
Me.Controls("C" & I).Visible = False
Next
End Sub
que dire de plus ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" <fabthebass@discussions.microsoft.com> a écrit dans le message
de news: 5BAE0087-30FC-4BE2-A15A-DC8C20C5B117@microsoft.com...
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée
d'une
requete sur lequel est basé l'état ! il s'applique donc à tous les
enregistrements !
pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement
et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
le problème étant de faire apparaître ou non les 50 contrôles nommés C1 à C50, il faut placer cette procédure dans l'événement Détail_Format, ce qui se déclenchera pour chaque enregistrement lu dans la requête.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) Dim I As Integer ' compteur For I = 1 To Heure ' de 1 à la valeur de heure on rend visible Me.Controls("C" & I).Visible = True Next
For I = Heure + 1 To 50 ' de heure +1 à maxi on rend invisible Me.Controls("C" & I).Visible = False Next End Sub
que dire de plus ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fabthebass" a écrit dans le message de news:
c une faute de frappe ! [heure] est un champ unique, ce champ est tirée d'une requete sur lequel est basé l'état ! il s'applique donc à tous les enregistrements ! pourrais tu sil te plait décomposer un peux ta solution en vba ??
[heure] est donc mon nombre calculé pour chaque enregistrement et c1,c2,c3,c4,c5 mes carrés placés sur le formulaire!
