عندي حقل عدد ايام الحضور وحقل ثاني التاريخ اريد بمجرد كتابة عدد الايام يكتب التاريخ مباشرتا

[طاهر الوليدي]

عندي تكست رقمي عدد ايام الحضور اريد عند كتابة 1 يوم يكتب في حقل التاريخ 1/12/2017

وعند كتابة 12 يوم يكتب 12/12/2017 مستندا على الفترة الزمنية لشهر من 1 الى 31/ 12/ 2017م

بمعني يعتبر عدد ايام الحضور يوما في التاريخ ويكون قابل للتكرار في الحقلين لان عدد الموظفين كثير وتتشابه ايام حضورهم وبصرف النظر عن الايجازات والعطل والغياب

حقل:عدد ايام الحضور                                                    حقل : التاريخ

31                                                                             31 - 12 - 2017     طبعا استنادا الى جدول فيه فترتين من  1/12/2017  وحتى 31/12/2017 

تم تعديل ديسمبر 6, 2017 بواسطه طاهر الوليدي

[jjafferr]

وعليكم السلام

 

تفضل:

me.New_Date= DateAdd("d",[Number of Days]-1,DateSerial(Year(Date()),Month(Date()),1))



اي

التاريخ= DateAdd("d",[عدد ايام الحضور]-1,DateSerial(Year(Date()),Month(Date()),1))

 

جعفر

[طاهر الوليدي]

وعليكم السلام استاذي العزيز

ممكن تشرح لي وين اضع الكود 

او ارفاق ملف لاني لم استطيع تنفيذه

تم تعديل ديسمبر 6, 2017 بواسطه طاهر الوليدي

[jjafferr]

يمكن وضعه في حدث "بعد تحديث" حقل "عدد ايام الحضور" 

[طاهر الوليدي]

اخواني الاعزاء التاريخ لم يعتمد على فترة حقلين تاريخيين متغيرين حقل من تاريخ 1/1/2017 الى تاريخ 31/12/2017

الكود المرسل فعلا كان مميز ولكن ياخذ التاريخ الحالي للجهاز انا عندي بيانات لم ادخلها من شهر اكتوبر 2017 ممكن تحويل الكزد السابق الى حقليين متغييرين

[jjafferr]

وعليكم السلام

 

حسب المعلومات اللي اعطيتنا ، عرضنا الجواب

 

ليش ما ترفق قاعدة بياناتك ، وتخبرنا بالضبط اللي تريده ، ونعمل لك التعديل حسب الحقول والبيانات عندك.

 

جعفر

[طاهر الوليدي]

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

الموضوع هو 

حقل1 =عدد ايام الحضور   عندما ادخل رقم من 1 الى31 هنا يحتسب التاريخ  في حقل التاريخ نفس الرقم يوم مثلا 12 انظر النتيجة في حقل التاريخ

حقل 2= تاريخ  12-10-2017    معتمدا على الفترة بين التاريخين التاليين المكتوبه في الحلقين التاليين:

حقل3 = 1/بداية الشهر     1-10-2017م

حقل 4= نهاية الشهر        31-10-2017م 

الفترة ممكن اغيرها حسب العمل وليس حسب التاريخ الحالي للجهاز

[jjafferr]

السلام عليكم

 

اخي طاهر ، رجاء ارفق هذه الجزئية فقط من برنامجك ، علشان نعدل مباشرة عليها ،

ورجاء اعطنا مثال نستطيع ان نقتدي به لعمل اللازم.

 

جعفر

[طاهر الوليدي]

نعتذر بعدم ارسالها كامل تعذر بسبب حجمها وتم ارسال الجزء الذي فيه السؤال 

عندي نموذج رئيسي للفتره زمنية من 1- الى نهاية الشهر 

وعندي نموذج بيانات فيه عدد الحضور والتاريخ 

المطلوب : عند كتابة عدد ايام الحضور يكتب التاريخ مباشرتا معتمدا على الفترة الشهر في الحقلين تم تلوينهم بالاحمر في نموذج الرئيسي

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

بلاضافة في الاستعلام البحث ظهرة مشكلة عند كتابة like تستبدل ب Alike 

مما جعل عملية البحث واختفاء البيانات في النموذج الفرعي 

نرجوا مساعدتكم 

وجزاكم الله الف خير 

 

تم تعديل ديسمبر 14, 2017 بواسطه jjafferr
تم انزال المرفق ، ثم حذفه لأن به معلومات خاصة

[طاهر الوليدي]

في ١٨‏/٦‏/٢٠١٤ at 19:04, kamba_matrix said:

http://www.up-00.com/?U4NQ  جرب دة

 

في ١٩‏/٨‏/٢٠١٧ at 21:27, ابو زاهر said:

لقد عمل الاستاذ @اكرم العريقي

لي هذا الكودMe.endcont = Me.startcont + Me.Alaim

فاسال الله ان يجعله بميزان حسناته فالف شكرا اخي اكرم

 

[jjafferr]

السلام عليكم

 

انا لم اجد غير هذين الحقلين:

.

فما عرفت وين تريد تضع عدد الايام!!

 

اما بالنسبة الى ALike ،

الظاهر ان برنامجك كان adp او كان موصل بـ SQL server ، لأنه كان تلقائيا متحول على 

.

وبعد عمل قاعدة بيانات فاضية ونقل كائنات قاعدة بياناتك فيها ، قبلت Like ، وتم عمل الكود على الحدث بعد تحديث حقل البحث في النموذج.

 

 

رجاء اعطني مثال بالايام من برنامجك واي حقل ، حتى استطيع المساعدة ، فشرحك غير واضح

في 12/14/2017 at 20:54, طاهر الوليدي said:

المطلوب : عند كتابة عدد ايام الحضور يكتب التاريخ مباشرتا معتمدا على الفترة الشهر في الحقلين تم تلوينهم بالاحمر في نموذج الرئيسي

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

 

جعفر

802.zip

[طاهر الوليدي]

2 ساعات مضت, jjafferr said:

السلام عليكم

 

انا لم اجد غير هذين الحقلين:

.

فما عرفت وين تريد تضع عدد

 

اما بالنسبة الى ALike ،

الظاهر ان برنامجك كان adp او كان موصل بـ SQL server ، لأنه كان تلقائيا متحول على 

.

وبعد عمل قاعدة بيانات فاضية ونقل كائنات قاعدة بياناتك فيها ، قبلت Like ، وتم عمل الكود على الحدث بعد تحديث حقل البحث في النموذج.

 

 

رجاء اعطني مثال بالايام من برنامجك واي حقل ، حتى استطيع المساعدة ، فشرحك غير واضح

 

جعفر

802.zip

في ١٨‏/٦‏/٢٠١٤ at 19:04, kamba_matrix said:

http://www.up-00.com/?U4NQ  جرب دة

 

في ١٩‏/٨‏/٢٠١٧ at 21:27, ابو زاهر said:

لقد عمل الاستاذ @اكرم العريقي

لي هذا الكودMe.endcont = Me.startcont + Me.Alaim

فاسال الله ان يجعله بميزان حسناته فالف شكرا اخي اكرم

لك مني خالص الدعاء اخي واستاذي العزيز جعفر حليت لي مشكلتين في سؤالي بارك الله فيك والمشكله  حقل ايام الحضور الذي بعد كلمة رسمي مبشارتا اول حقل مكتوب 20 ياتي بعده التاريخ ومكتوب فيه 17 -10-oct 

المطلوب عند كتابة في حقل ايام الحضور 20 يكتب التاريخ في الحقل الي بعده 20 اكتوبر 2017 بشرط ان الحقلين الاحمرين فوق التاريخ الذي ملون بالاحمر الفترة من 1-10-2017 الى التاريخ 31-10-0217

اذا تغير التاريخ  بعد او قبل يكون تاريخ الحقل الفرعي المرتبط بايام الحضور في نفس الشهر والسنة للحقلين الاحمرين 

بمعني اذا وضعت ايام الحضور 20 يوم  يظهر في حقل التاريخ الذي تحت  اليوم 20 - 10 - 2017 بشرط ان الشهر والسنة مطابق للحقلين الحمرين

تم تعديل ديسمبر 16, 2017 بواسطه طاهر الوليدي

[طاهر الوليدي]

رسم توضيحي يوضح العمل في الفترة مابين 1-5-2017 الى 31-5-2017 فقط اذا غيرة الفترة وانتقلت الى شهر 6 و7 و8 جميع اشهر السنة وتغيرة السنة نفس الفكرة

تم تعديل ديسمبر 18, 2017 بواسطه طاهر الوليدي

[jjafferr]

وعليكم السلام

 

استخدمت هذا الكود على حدث "بعد تحديث" للحقل ايام الحضور:

Option Compare Database
Option Explicit

Private Sub todys_add_AfterUpdate()

    'Me.New_Date = DateAdd("d", [Number of Days] - 1, DateSerial(Year(Date), Month(Date), 1))
    
    'اذا ايام الحضور = صفر ، فلا تكتب شيء في التاريخ
    If Me.todys_add = 0 Then
        Me.[التاريخ] = ""
    
    Else
    'وإلا ، فقم بحساب التاريخ
        Me.[التاريخ] = DateAdd("d", Me.todys_add - 1, DateSerial(Year(Me.Parent.[من تاريخ]), Month(Me.Parent.[من تاريخ]), 1))
    
    End If
    
    
    'اذا كان ناتج التاريخ اكبر من "الى تاريخ" ، فتجاهله واكتب الى تاريخ
    If Me.[التاريخ] > Me.Parent.[الى تاريخ] Then
    
        'Me.[التاريخ] = DateSerial(Year(Me.Parent.[الى تاريخ]), Month(Me.Parent.[الى تاريخ]) + 1, 0)
        Me.[التاريخ] = Me.Parent.[الى تاريخ]

    End If
    
End Sub

 

واستخدمت اعدادت الحقل لأمنع ادخال الايام الغير صحيحة

.

جعفر

802.zip

[طاهر الوليدي]

شهادة شكر وتقدير 

اتقدم بخالص الشكر والتقدير والعرفان الى الاخ العزيز جعفر  اشهد انك عبقري 

الله يبارك في عمرك واولادك واهلك ومالك ويزيدك علم ومعرفه ياااارب

[jjafferr]

[النجاشي]

منذ ساعه, طاهر الوليدي said:

شهادة شكر وتقدير 

اتقدم بخالص الشكر والتقدير والعرفان الى الاخ العزيز جعفر  اشهد انك عبقري 

الله يبارك في عمرك واولادك واهلك ومالك ويزيدك علم ومعرفه ياااارب

يستاهل استاذنا الحبيب@jjafferr  شهاده الشكر والتقدير فهو عالم من علماء الاكسس 

 فيجب علينا الدعاء له ربنا يعطيه الصحه والعافيه ويزيده علما

 

[طاهر الوليدي]

ممكن اسال سؤال متعلق بنفس المثال 

كيف ادخل بيانات الفترة من - والى بصفة شهرية مع الحفاظ على جميع البيانات شهريا كل شهر له خصوصيته 

نموذج الرئيسي فيه تاريخين 

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

 

[jjafferr]

وعليكم السلام

 

عذرا اخي طاهر ، انا فهمي ضعيف بدون مثال!!

 

جعفر

[houari-edu]

في 06/12/2017 at 11:23, jjafferr said:

وعليكم السلام

 

تفضل:

me.New_Date= DateAdd("d",[Number of Days]-1,DateSerial(Year(Date()),Month(Date()),1))



اي

التاريخ= DateAdd("d",[عدد ايام الحضور]-1,DateSerial(Year(Date()),Month(Date()),1))

 

جعفر

أخ جعفر أريد كود مثل هذا مع يعض التعديلات لو سمحت عندي حقلين في جدول واحد حقل [المستوى] به القيم التالية:1234 والحقل الثاني [المعامل] أريده بهذه الصيغة: إذا كان حقل [المستوى]=4 يقابله[المعامل]= 5 إذا كان المستوى =3 يقابله المعامل =2 و هكذا.... و شكرا

[jjafferr]

عفوا اخي houari-edu ، رجاء فتح موضوع خاص لسؤالك.

 

شكرا

جعفر

[طاهر الوليدي]

في ٢٤‏/١٢‏/٢٠١٧ at 13:21, jjafferr said:

وعليكم السلام

 

عذرا اخي طاهر ، انا فهمي ضعيف بدون مثال!!

 

جعفر

نفس المثال المرسل سابقا اخي العزيز  جعفر والمتضمن عدد ايام الحضور كيف احفظ البيانات شهريا بعد التعديل ايام الحضور في الشهر التالي بنفس الكشف