Il y a les deux contrôles (1 à 366 et 367 à 732) suivant :
les 366 de zones de texte (1 à 366), si le samedi et le dimanche, BackColor
et ForeColor sont 12632256 sinon 16777215, le module est parfait.
Mais les 366 d'étiquettes (367 à 732), si le samedi alors Caption est "S",
si le dimanche, alors Caption est "D", Sinon Caption est "".
Par exemple :
.......
Me.[376].Caption= "S"
.......
Me.[376].Caption= "D"
.......
Me.[376].Caption= ""
Qui sont seulement un étiquette mais il faut 366 étiquettes (367 à 732), Je
ne sais pas comment ?
Private Sub Report_Activate()
Dim C1 As Control
For Each C1 In Me.Controls
If TypeOf C1 Is TextBox Then
Select Case C1.Name
Case 1 To 366
If C1.Value = 1 Or C1.Value = 7 Then
C1.BackColor = 12632256
C1.ForeColor = 12632256
If C1.Value = 7 Then
Me.[367].Caption = "S"
ElseIf C1.Value = 1 Then
Me.[367].Caption = "D"
End If
Else
C1.BackColor = 16777215
C1.ForeColor = 16777215
Me.[367].Caption = ""
End If
End Select
End If
Next C1
End Sub
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
FujitsuChaos
Laisse tomber
"FujitsuChaos" a écrit dans le message de news: O$
Bonjour
Il y a les deux contrôles (1 à 366 et 367 à 732) suivant : les 366 de zones de texte (1 à 366), si le samedi et le dimanche, BackColor et ForeColor sont 12632256 sinon 16777215, le module est parfait. Mais les 366 d'étiquettes (367 à 732), si le samedi alors Caption est "S", si le dimanche, alors Caption est "D", Sinon Caption est "". Par exemple : ....... Me.[376].Caption= "S" ....... Me.[376].Caption= "D" ....... Me.[376].Caption= "" Qui sont seulement un étiquette mais il faut 366 étiquettes (367 à 732), Je ne sais pas comment ?
Private Sub Report_Activate() Dim C1 As Control For Each C1 In Me.Controls If TypeOf C1 Is TextBox Then Select Case C1.Name Case 1 To 366 If C1.Value = 1 Or C1.Value = 7 Then C1.BackColor = 12632256 C1.ForeColor = 12632256 If C1.Value = 7 Then Me.[367].Caption = "S" ElseIf C1.Value = 1 Then Me.[367].Caption = "D" End If Else C1.BackColor = 16777215 C1.ForeColor = 16777215 Me.[367].Caption = "" End If End Select End If Next C1 End Sub
Merci d'avance
Laisse tomber
"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
O$1eVqweFHA.2740@TK2MSFTNGP10.phx.gbl...
Bonjour
Il y a les deux contrôles (1 à 366 et 367 à 732) suivant :
les 366 de zones de texte (1 à 366), si le samedi et le dimanche,
BackColor et ForeColor sont 12632256 sinon 16777215, le module est
parfait.
Mais les 366 d'étiquettes (367 à 732), si le samedi alors Caption est "S",
si le dimanche, alors Caption est "D", Sinon Caption est "".
Par exemple :
.......
Me.[376].Caption= "S"
.......
Me.[376].Caption= "D"
.......
Me.[376].Caption= ""
Qui sont seulement un étiquette mais il faut 366 étiquettes (367 à 732),
Je ne sais pas comment ?
Private Sub Report_Activate()
Dim C1 As Control
For Each C1 In Me.Controls
If TypeOf C1 Is TextBox Then
Select Case C1.Name
Case 1 To 366
If C1.Value = 1 Or C1.Value = 7 Then
C1.BackColor = 12632256
C1.ForeColor = 12632256
If C1.Value = 7 Then
Me.[367].Caption = "S"
ElseIf C1.Value = 1 Then
Me.[367].Caption = "D"
End If
Else
C1.BackColor = 16777215
C1.ForeColor = 16777215
Me.[367].Caption = ""
End If
End Select
End If
Next C1
End Sub
"FujitsuChaos" a écrit dans le message de news: O$
Bonjour
Il y a les deux contrôles (1 à 366 et 367 à 732) suivant : les 366 de zones de texte (1 à 366), si le samedi et le dimanche, BackColor et ForeColor sont 12632256 sinon 16777215, le module est parfait. Mais les 366 d'étiquettes (367 à 732), si le samedi alors Caption est "S", si le dimanche, alors Caption est "D", Sinon Caption est "". Par exemple : ....... Me.[376].Caption= "S" ....... Me.[376].Caption= "D" ....... Me.[376].Caption= "" Qui sont seulement un étiquette mais il faut 366 étiquettes (367 à 732), Je ne sais pas comment ?
Private Sub Report_Activate() Dim C1 As Control For Each C1 In Me.Controls If TypeOf C1 Is TextBox Then Select Case C1.Name Case 1 To 366 If C1.Value = 1 Or C1.Value = 7 Then C1.BackColor = 12632256 C1.ForeColor = 12632256 If C1.Value = 7 Then Me.[367].Caption = "S" ElseIf C1.Value = 1 Then Me.[367].Caption = "D" End If Else C1.BackColor = 16777215 C1.ForeColor = 16777215 Me.[367].Caption = "" End If End Select End If Next C1 End Sub
