[ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات

كود :

Private Sub Command1_Click()

Dim t As String

t = " مواليد"



ActiveReport1.Shape1.Height = Val(Text9) * -57

ActiveReport1.Shape2.Height = Val(Text10) * -57

ActiveReport1.Shape3.Height = Val(Text7) * -57

ActiveReport1.Shape4.Height = Val(Text8) * -57

ActiveReport1.Shape5.Height = Val(Text5) * -57

ActiveReport1.Shape6.Height = Val(Text6) * -57

ActiveReport1.Shape7.Height = Val(Text3) * -57

ActiveReport1.Shape8.Height = Val(Text4) * -57

ActiveReport1.Shape9.Height = Val(Text1) * -57

ActiveReport1.Shape10.Height = Val(Text2) * -57



ActiveReport1.Label60 = Text1

ActiveReport1.Label61 = Text2

ActiveReport1.Label62 = Text3

ActiveReport1.Label63 = Text4

ActiveReport1.Label64 = Text5

ActiveReport1.Label65 = Text6

ActiveReport1.Label66 = Text7

ActiveReport1.Label67 = Text8

ActiveReport1.Label68 = Text9

ActiveReport1.Label69 = Text10



ActiveReport1.Label11 = t & Text25

ActiveReport1.Label12 = t & Text26

ActiveReport1.Label13 = t & Text27

ActiveReport1.Label14 = t & Text33

ActiveReport1.Label15 = t & Text34



ActiveReport1.Label26 = t & Text25

ActiveReport1.Label27 = t & Text26

ActiveReport1.Label28 = t & Text27

ActiveReport1.Label29 = t & Text33

ActiveReport1.Label30 = t & Text34



ActiveReport1.Show

End Sub

كود :

Private Sub Text1_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text2_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text3_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text4_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text5_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text6_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text7_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text8_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text9_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub

Private Sub Text10_Change()

Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))

End Sub