اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

تم تعديل بواسطه طاهر الوليدي
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه طاهر الوليدي
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

 

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

 

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

الموضوع هو 

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

 

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

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

 

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

 

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

802.Clipboard02.jpg.63b51640545b36be86210d0e071d4ff3.jpg

.

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

 

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

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

802Clipboard01.jpg.e4930d15de1770f84044c09a042cb4fc.jpg

.

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

 

 

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

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

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

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

 

جعفر

802.zip

  • Like 1
رابط هذا التعليق
شارك

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

السلام عليكم

 

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

802.Clipboard02.jpg.63b51640545b36be86210d0e071d4ff3.jpg

.

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

 

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

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

802Clipboard01.jpg.e4930d15de1770f84044c09a042cb4fc.jpg

.

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

 

 

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

 

جعفر

802.zip

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

 

في ١٩‏/٨‏/٢٠١٧ 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 بشرط ان الشهر والسنة مطابق للحقلين الحمرين

تم تعديل بواسطه طاهر الوليدي
رابط هذا التعليق
شارك

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

التوضيح.jpg

تم تعديل بواسطه طاهر الوليدي
رابط هذا التعليق
شارك

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

 

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

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.Clipboard03.jpg.0e2831d021784585e98dd187c4236caf.jpg

.

جعفر

802.zip

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

 

تفضل:


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 و هكذا.... و شكرا

رابط هذا التعليق
شارك

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

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

 

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

 

جعفر

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information