ابوآمنة قام بنشر فبراير 15, 2019 مشاركة قام بنشر فبراير 15, 2019 السلام عليكم أريد كود أو طريقة لتوليد تواريخ بين فترتين ليومي الخميس والجمعة لمدة سنة . بالمرفق مثال من منتدى اكسل يقوم بتوليد تواريخ بين فترتين بدون استثناء أيام معينة المطلوب هل يمكن تحويل هذا المثال إلى اكسس مع تكرار فقط يومين في الأسبوع مثل يوم الخميس والجمعة ويفضل أن يكون التاريخ هجري . WeekdayCount.rar رابط هذا التعليق شارك More sharing options...
أواب قام بنشر فبراير 16, 2019 مشاركة قام بنشر فبراير 16, 2019 أرفق مثالا للتعديل عليه بتنسيق 2003 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 19, 2019 الكاتب مشاركة قام بنشر فبراير 19, 2019 للرفع رابط هذا التعليق شارك More sharing options...
أواب قام بنشر فبراير 19, 2019 مشاركة قام بنشر فبراير 19, 2019 أرفق مثالا للتعديل عليه بتنسيق 2003 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 19, 2019 الكاتب مشاركة قام بنشر فبراير 19, 2019 المثال بالاكسل موجود وهي نفس الفكره أريد تحويلها إلى أكسس فقط لا غير رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر فبراير 19, 2019 مشاركة قام بنشر فبراير 19, 2019 في ١٥/٢/٢٠١٩ at 20:12, saleh204 said: أريد كود أو طريقة لتوليد تواريخ بين فترتين ليومي الخميس والجمعة لمدة سنة . حدد ؟ بين فترتين والا لمدة سنة ؟ 1 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 19, 2019 الكاتب مشاركة قام بنشر فبراير 19, 2019 شكرا لردك أستاذي الفاضل بين فترتين حتى يكون هناك حرية في الوقت رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر فبراير 19, 2019 مشاركة قام بنشر فبراير 19, 2019 4 ساعات مضت, saleh204 said: شكرا لردك أستاذي الفاضل بين فترتين حتى يكون هناك حرية في الوقت جرب saleh.accdb 2 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 20, 2019 الكاتب مشاركة قام بنشر فبراير 20, 2019 (معدل) DoCmd.SetWarnings False For i = t1 To t2 If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday) values('" & i & "','" & Format(i, "dddd") & "')" Next i DoCmd.SetWarnings True ما شاء الله تبارك الله قمة في الإبداع والاحتراف شكراً هو المطلوب لقد نفست كربة عن أخيك هل بالإمكان إضافة حقل لأشخاص يتكررون كل خمسة مرات : مثل : رمهان= الخميس ، صالح = الجمعة ، مشعل = الخميس ، فهد = الجمعة ، سالم = الخميس ويعيد من جديد على نفس هذه الأشخاص حتى انتهاء الفترة المحددة تم تعديل فبراير 20, 2019 بواسطه saleh204 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 20, 2019 الكاتب مشاركة قام بنشر فبراير 20, 2019 كودك سيفتح لي آفاق كثيرة وسأتعلم منه بمشيئة الله تعالى. رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 20, 2019 الكاتب مشاركة قام بنشر فبراير 20, 2019 أضفت في القاعدة المطلوب وباقي تتفضل علينا بلمساتك الرمهانية saleh2.accdb رابط هذا التعليق شارك More sharing options...
أواب قام بنشر فبراير 20, 2019 مشاركة قام بنشر فبراير 20, 2019 الأخ الكريم رمهان For i = t1 To t2 If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday) values('" & i & "','" & Format(i, "dddd") & "')" Next i نريد أن نفهم هذا الكود أين دلالة الخميس و الجمعة في الكود ؟ وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Barna قام بنشر فبراير 20, 2019 مشاركة قام بنشر فبراير 20, 2019 16 دقائق مضت, أواب said: أين دلالة الخميس و الجمعة في الكود ؟ الارقام 5 و 6 تدل على رقم يومي الخميس والجمعة رابط هذا التعليق شارك More sharing options...
أواب قام بنشر فبراير 20, 2019 مشاركة قام بنشر فبراير 20, 2019 جزاك الله خيرا يا أخي طيب ولو حبينا نحصي ايام الاثنين والخميس والأيام البيض 13 و14 15 من كل شهر عربي (ايام الصيام ) ماذا نكتب ؟ رابط هذا التعليق شارك More sharing options...
أفضل إجابة رمهان قام بنشر فبراير 20, 2019 أفضل إجابة مشاركة قام بنشر فبراير 20, 2019 10 ساعات مضت, saleh204 said: أضفت في القاعدة المطلوب وباقي تتفضل علينا بلمساتك الرمهانية saleh2.accdb جرب ياغالي saleh2.accdb 1 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 20, 2019 الكاتب مشاركة قام بنشر فبراير 20, 2019 شكرا جزيلا من الأعماق سأجرب إذا عدت للمنزل بمشيئة الله تعالى رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر فبراير 20, 2019 الكاتب مشاركة قام بنشر فبراير 20, 2019 Set rs = CurrentDb.OpenRecordset("tbl_names"): rs.MoveFirst DoCmd.SetWarnings False For i = t1 To t2 If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday,xname) values('" & i & "','" & Format(i, "dddd") & "'," & rs(0) & ")" If DLast("id", "tbl_names") = rs(0) Then rs.MoveFirst Else rs.MoveNext End If Next i DoCmd.SetWarnings True ما شاء الله تبارك الله الأمور زي الحلاوة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.