المساعدة في جمع ساعات الاشتغال

هلا بطويل العمر :)

غالي والطلب رخيص :)

خلي هذا الكود بدل اللي موجود في التقرير:

Me.Total = 0

'1

If Me.txt1 = -1 Then
Me.txt1.Visible = False
Me.tx1.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt1.Visible = True
Me.tx1.Visible = False
End If

'2

If Me.txt2 = -1 Then
Me.txt2.Visible = False
Me.tx2.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt2.Visible = True
Me.tx2.Visible = False
End If

'3

If Me.txt3 = -1 Then
Me.txt3.Visible = False
Me.tx3.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt3.Visible = True
Me.tx3.Visible = False
End If

'4

If Me.txt4 = -1 Then
Me.txt4.Visible = False
Me.tx4.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt4.Visible = True
Me.tx4.Visible = False
End If

'5

If Me.txt5 = -1 Then
Me.txt5.Visible = False
Me.tx5.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt5.Visible = True
Me.tx5.Visible = False
End If

'6

If Me.txt6 = -1 Then
Me.txt6.Visible = False
Me.tx6.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt6.Visible = True
Me.tx6.Visible = False
End If

'7

If Me.txt7 = -1 Then
Me.txt7.Visible = False
Me.tx7.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt7.Visible = True
Me.tx7.Visible = False
End If

'8

If Me.txt8 = -1 Then
Me.txt8.Visible = False
Me.tx8.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt8.Visible = True
Me.tx8.Visible = False
End If

'9

If Me.txt9 = -1 Then
Me.txt9.Visible = False
Me.tx9.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt9.Visible = True
Me.tx9.Visible = False
End If

'10

If Me.txt10 = -1 Then
Me.txt10.Visible = False
Me.tx10.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt10.Visible = True
Me.tx10.Visible = False
End If

'11

If Me.txt11 = -1 Then
Me.txt11.Visible = False
Me.tx11.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt11.Visible = True
Me.tx11.Visible = False
End If

'12

If Me.txt12 = -1 Then
Me.txt12.Visible = False
Me.tx12.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt12.Visible = True
Me.tx12.Visible = False
End If

'13

If Me.txt13 = -1 Then
Me.txt13.Visible = False
Me.tx13.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt13.Visible = True
Me.tx13.Visible = False
End If

'14

If Me.txt14 = -1 Then
Me.txt14.Visible = False
Me.tx14.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt14.Visible = True
Me.tx14.Visible = False
End If

'15

If Me.txt15 = -1 Then
Me.txt15.Visible = False
Me.tx15.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt15.Visible = True
Me.tx15.Visible = False
End If

'16

If Me.txt16 = -1 Then
Me.txt16.Visible = False
Me.tx16.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt16.Visible = True
Me.tx16.Visible = False
End If

'17

If Me.txt17 = -1 Then
Me.txt17.Visible = False
Me.tx17.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt17.Visible = True
Me.tx17.Visible = False
End If

'18

If Me.txt18 = -1 Then
Me.txt18.Visible = False
Me.tx18.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt18.Visible = True
Me.tx18.Visible = False
End If

'19

If Me.txt19 = -1 Then
Me.txt19.Visible = False
Me.tx19.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt19.Visible = True
Me.tx19.Visible = False
End If

'20

If Me.txt20 = -1 Then
Me.txt20.Visible = False
Me.tx20.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt20.Visible = True
Me.tx20.Visible = False
End If

'21

If Me.txt21 = -1 Then
Me.txt21.Visible = False
Me.tx21.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt21.Visible = True
Me.tx21.Visible = False
End If

'22

If Me.txt22 = -1 Then
Me.txt22.Visible = False
Me.tx22.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt22.Visible = True
Me.tx22.Visible = False
End If

'23

If Me.txt23 = -1 Then
Me.txt23.Visible = False
Me.tx23.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt23.Visible = True
Me.tx23.Visible = False
End If

'24

If Me.txt24 = -1 Then
Me.txt24.Visible = False
Me.tx24.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt24.Visible = True
Me.tx24.Visible = False
End If

'25

If Me.txt25 = -1 Then
Me.txt25.Visible = False
Me.tx25.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt25.Visible = True
Me.tx25.Visible = False
End If

'26

If Me.txt26 = -1 Then
Me.txt26.Visible = False
Me.tx26.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt26.Visible = True
Me.tx26.Visible = False
End If

'27

If Me.txt27 = -1 Then
Me.txt27.Visible = False
Me.tx27.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt27.Visible = True
Me.tx27.Visible = False
End If

'28

If Me.txt28 = -1 Then
Me.txt28.Visible = False
Me.tx28.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt28.Visible = True
Me.tx28.Visible = False
End If

'29

If Me.txt29 = -1 Then
Me.txt29.Visible = False
Me.tx29.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt29.Visible = True
Me.tx29.Visible = False
End If

'30

If Me.txt30 = -1 Then
Me.txt30.Visible = False
Me.tx30.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt30.Visible = True
Me.tx30.Visible = False
End If

'31

If Me.txt31 = -1 Then
Me.txt31.Visible = False
Me.tx31.Visible = True
Me.Total = Me.Total + 1
Else
Me.txt31.Visible = True
Me.tx31.Visible = False
End If

جعفر

حياك الله اختي الفاضلة الدكتورة ام عهود :)

المنتدى كان مُظلم الايام الماضيه ، بس اليوم اشوفه منور مرة ثانيه بوجودك :) 

جعفر

وشكرا لكي اختي الفاضلة على تنبيهي :)

هممم ، الظاهر اني جمعت الايام مب الساعات :(

المجموع عندي = 21 يوم ، اما اذا اردت جمع الساعات ، فالرجاء تغيير الاسطر:

Me.Total = Me.Total + 1

الى

Me.Total = Me.Total + 3

جعفر

jjafferr كتب:

هلا بـطويل العمر :)

 

جعفر

اخي الفاضل : جعفر

السلام عليكم ورحمة الله وبركاته

اعلم ان قصدك بارك الله بك في كلمة ( طويل العمر ) في جميع مشاركاتك هي من باب المدح والثناء للشخص 

ولكن اريد منك الإبتعاد عن هذه الكلمه فقد يفهمها من يعرف معناها بالوجه الشرعي على انها سب او شتيمه

لأنها لا تقال إلا لأبليس عليه لعنة الله  فهو الوحيد  طويل العمر منذ بدء الخليقة الى يوم القيامه

قال تعالى : ( قَالَ رَبِّ فَأَنْظِرْنِي إِلَى يَوْمِ يُبْعَثُونَ ( 36 ) قَالَ فَإِنَّكَ مِنَ الْمُنْظَرِينَ ( 37 ) إِلَى يَوْمِ الْوَقْتِ الْمَعْلُومِ ( 38 ) - ( سورة الحجر )

بالتوفيق

وعليكي السلام ورحمة الله وبركاته

شكرا جزيلا لكي اختي الفاضلة على هذا التوضيح ، وان شاء الله الجميع فهم قصدي انه مديح :)

سبحان الله ، طوال الوقت اعمل هذا الشئ بدون تأمل مني ، وبهذه البساطة يمكن عملي ان يكون "هباءً منثورا" ، لا حول ولا قوة إلا بالله.

الله ان شاء الله يجازيك خيرا ، اختي الفاضلة ، دنيا وآخرة :)

جعفر

jjafferr كتب:

وعليكي السلام ورحمة الله وبركاته

 

شكرا جزيلا لكي اختي الفاضلة على هذا التوضيح ، وان شاء الله الجميع فهم قصدي انه مديح :)

سبحان الله ، طوال الوقت اعمل هذا الشئ بدون تأمل مني ، وبهذه البساطة يمكن عملي ان يكون "هباءً منثورا" ، لا حول ولا قوة إلا بالله.

 

الله ان شاء الله يجازيك خيرا ، اختي الفاضلة ، دنيا وآخرة :)

 

جعفر

بارك الله بك اخي الكريم : جعفر

لا يا اخي الكريم ليس الأمر بهذه البساطه او كما تتصورها فإن الله غفور رحيم ولا يؤاخذنا بما كسبنا لأنه هو العلي القدير العالم بالسرائر وبالنيات

فلك في حديث رسول الله صلى الله عليه وسلم اسوة حسنه

قال رسول الله صلى الله عليه وسلم (  إنما الأعمال بالنيات وإنما لكل امرئ ما نوى )  صحيح البخاري

ونعم بالله ، ولا نيأس من رحمة الله :)

ولكي كل الشكر والتقدير اختي الفاضلة ، ولا تنسينا في دعائك :)

جعفر

شكرا جزيلا لك استاذة الكل الدكتورة الفاضلة ام عهود سائلا الله عز وجل ان يمن عليك بالصحة والعافية

شكرا جزيلا لك استاذي الفاضل جعفر سائلا الله عز وجل ان يمن عليك بالصحة والعافية

نعم هذا هو المطلوب