[sendbad100]

جميل جداً

ربنا يوفقك  ويعينك ويسهل امرك 

اولا اتمنى تستخدم الكتف ريبورت التي عدلتها لاني غيرت الالوان الذكور اخضر والاناث احمر

ثانياً :- يمكن تعديل الكود كالتالي 

كود :

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

كالتالي 

اضف الاجراء التالي 

كود :

Sub sumAll()
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 Text1_Change()
Call sumAll
End Sub
Private Sub Text2_Change()
Call sumAll
End Sub
Private Sub Text3_Change()
Call sumAll
End Sub
Private Sub Text4_Change()
Call sumAll
End Sub
Private Sub Text5_Change()
Call sumAll
End Sub
Private Sub Text6_Change()
Call sumAll
End Sub
Private Sub Text7_Change()
Call sumAll
End Sub
Private Sub Text8_Change()
Call sumAll
End Sub
Private Sub Text9_Change()
Call sumAll
End Sub
Private Sub Text10_Change()
Call sumAll
End Sub

هذا يسهل عملية التصحيح  بحيث لا تحتاج لتعديل الكل 

والله الموفق