اخواني الأفاضل
أرجو مساعدتي في برنامج منبه أعياد الميلاد
حيث لم استطع الحصول على أسماء الأشخاص الذين سوف يكون عيد ميلادهم خلال عشرة أيام من التاريخ الحالي
ولكم جزيل الشكر والتقدير
طـ (العمدة) ـارق
[ تمت الإجابة ]مساعدة في تحديد التاريخ في برنامج منبه عيد الميلاد
اخواني الأعزاء هل من مجيب؟ رحم الله والديكم
السلام عليكم...
- Private Sub Command9_Click()
- Dim RsTenDays As Recordset
- Dim SQLStr As String
- SQLStr = "SELECT bdTbl.Name, bdTbl.Birthdate FROM bdTbl WHERE " & _
- "(DateDiff('d', Date(), DateSerial(Year(Date()), Month([birthdate]), Day([birthdate])))
" & _ - "Between 0 And 10) ORDER BY bdTbl.Name"
- Set RsTenDays = DB.OpenRecordset(SQLStr, dbOpenDynaset)
- List1.Clear
- Do While Not RsTenDays.EOF
- List1.AddItem RsTenDays("Name") & vbTab & vbTab & RsTenDays("Birthdate")
- RsTenDays.MoveNext
- Loop
- RsTenDays.Close
- Set RsTenDays = Nothing
- End Sub
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
الكود الأخير جيد رغم أنى لم اجربه
لكنه يبدو رائعا
عموما لو فيه أى شئ نحن فى الخدمة
أخي الفاضل najy_zl
ماشاء الله تبارك الله
جزاك الله خيرا وبارك فيك وأجرى الخير على يديك
اللهم اني أدعو لك بظهر الغيب عسى الله أن يتقبل منا
لا أجد من الكلام ما أعبر به عن عميق شكري لك أستاذي الفاضل
طارق العمدة
أخي الفاضل najy_zl
يوجد مشكلة بسيطة في هذا الكود وهي انه عند تغيير التاريخ إلى نهاية العام أى يوم 25/12 مثلا يعرض حتى نهاية العام الحالي فقط وليس بداية العام الجديد أشكركم على تجاوبكم وأرجو عدم ازعاجكم ولكم جزيل الشكر والتقدير
ملاحظة لقد تم طرح نفس الموضوع بمنتدي جامعة أهلا عرب على الرابط التالي:
http://www.hiarab.net/article20059.html
طارق العمدة
السلام عليكم...
معك حق إذ لم أنتبه لتلك النقطة. على أية حال تحتاج فقط لتغيير صيغة جملة SQL كالتالي:
- SQLStr = "SELECT bdTbl.Name, bdTbl.Birthdate FROM bdTbl "
- SQLStr = SQLStr & "WHERE (DateDiff('d', Date(), DateSerial(Year(Date()), Month([birthdate])
, Day([birthdate]))) Between 0 And 10) " - SQLStr = SQLStr & "OR (DateDiff('d', Date(), DateSerial(Year(Date()) + 1, Month([birthdate]
), Day([birthdate]))) Between 0 And 10) " - SQLStr = SQLStr & "ORDER BY bdTbl.Name"
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
أخرج ابن أبي الدنيا عن الصادق المصدوق صلى الله عليه وسلم قوله:((إن لله عباداً اختصهم بقضاء حوائج الناس،حببهم إلى الخير،وحبب الخير إليهم،هم الآمنون من عذاب الله يوم القيامة)) بشروا من يسعى في قضاء حوائج الناس بقضاء حوائجه ففي الصحيحين عن عَبْدَ اللَّهِ بْنَ عُمَرَ رَضِيَ اللَّهُ عَنْهُمَا أَنَّ رَسُولَ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ قَالَ: ((الْمُسْلِمُ أَخُو الْمُسْلِمِ لَا يَظْلِمُهُ وَلَا يُسْلِمُهُ وَمَنْ كَانَ فِي حَاجَةِ أَخِيهِ كَانَ اللَّهُ فِي حَاجَتِهِ وَمَنْ فَرَّجَ عَنْ مُسْلِمٍ كُرْبَةً فَرَّجَ اللَّهُ عَنْهُ كُرْبَةً مِنْ كُرُبَاتِ يَوْمِ الْقِيَامَةِ وَمَنْ سَتَرَ مُسْلِمًا سَتَرَهُ اللَّهُ يَوْمَ الْقِيَامَةِ)
لا أستطيع الا أن أقول اللهم فرج عنه كربات يوم القيامة واستره في الدنيا والآخرة
آمين يا رب العاليمن
طارق
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
وصلى الله على سيدنا محمد وعلى آله وصحبة أجمعين
أخي طارق بارك الله فيك بس حبيت أنبهك على حكم عيد الميلاد أثابك الله
ما حكم أعياد الميلاد؟
العلامة/ محمد بن صالح العثيمين -رحمه الله
الحمد لله والصلاة والسلام على رسول الله، وبعد:
فأجاب بقوله: يظهر من السؤال أن المراد بعيد الميلاد عيد ميلاد الإنسان، كلما دارت السنة من ميلاده أحدثوا له عيداً تجتمع فيه أفراد العائلة على مأدبة كبيرة أو صغيرة.
وقولي في ذلك أنه ممنوع؛ لأنه ليس في الإسلام عيد لأي مناسبة سوى عيد الأضحى، وعيد الفطر من رمضان، وعيد الأسبوع وهو يوم الجمعة وفي سنن النسائي عن أنس بن مالك رضي الله عنه قال:كان لأهل الجاهلية، يومان في كل سنة يلعبون فيهما فلما قدم النبي، صلى الله عليه وسلم، المدينة قال : "كان لكم يومان تلعبون فيهما، وقد بدلكم الله بهما خيراً منهما يوم الفطر ويوم الأضحى". ولأن هذا يفتح باباً إلى البدع مثل أن يقول: قائل: إذا جاز العيد لمولد المولود فجوازه لرسول الله -صلى الله عليه وسلم- أولى وكل ما فتح باباً للممنوع كان ممنوعاً. والله الموفق.
بســم الله الـرحمــن الرحيــم
كُنْتُمْ خَيْرَ أُمَّةٍ أُخْرِجَتْ لِلنَّاسِ تَأْمُرُونَ بِالْمَعْرُوفِ وَتَنْهَوْنَ عَنِ الْمُنْكَرِ وَتُؤْمِنُونَ بِاللَّهِ وَلَوْ آَمَنَ أَهْلُ الْكِتَابِ لَكَانَ خَيْرًا لَهُمْ مِنْهُمُ الْمُؤْمِنُونَ وَأَكْثَرُهُمُ الْفَاسِقُونَ (110) سورة آل عمران صدق الله العظيم
وعليكــم السـلام ورحمة الله وبركاتـه..
أخي الفاضل M.555 والله لا نقول إلا ما يرضي ربنا
بســم الله الـرحمــن الرحيــم
إِنَّمَا كَانَ قَوْلَ الْمُؤْمِنِينَ إِذَا دُعُوا إِلَى اللَّهِ وَرَسُولِهِ لِيَحْكُمَ بَيْنَهُمْ أَنْ يَقُولُوا سَمِعْنَا وَأَطَعْنَا وَأُولَئِكَ هُمُ الْمُفْلِحُونَ (51) وَمَنْ يُطِعِ اللَّهَ وَرَسُولَهُ وَيَخْشَ اللَّهَ وَيَتَّقْهِ فَأُولَئِكَ هُمُ الْفَائِزُونَ (52) سورة النور صدق الله العظيم
بارك الله فيك أخي الفاضل وأكثر من أمثالك وجعلنا الله وإياك من الآمرين بالمعروف الناهين عن المنكر وَأُولَئِكَ هُمُ الْمُفْلِحُونَ.
اخواني المشرفين بارك الله فيكم أرجو منكم التفضل رجاءً لا أمراً تغيير عنوان الموضوع أو حذفه فقط مع ترك الكود ليستفيد منه اخواننا في الله فيما يرضي الله عنا فما أحوجنا إليه سبحانه وتعالى. وصلى الله على نبينا محمد وسلم تسليما كثيرا.
جزاكم الله خيرا وأكثر من أمثالكم
وآخر دعوانا أن الحمد لله رب العالمين
بســم الله الـرحمــن الرحيــم
الأخ العزيز. هناك مشكلة في الكود لا أدري ما هي ولكنه لا يعمل ويخرج أخطاء كثيرة
رجاء إن كان في الإستطاعة إرفاق مشروع لتوضيح الكود عملياً
ولك مني كل التحية
اخواني الأفاضل الأكارم بارك الله فيكم
لقد قمت باضافة الكود الصحيح والمشروع يعمل حاليا بشكل جيد
ولكن قمت بتحديث الغرض منه بدلا من استخدامه لتحديد أعياد الميلاد استخدمته لتحديد الموظفين الذين يبلغون سن الخروج على المعاش أو سن التقاعد
أو ما يتعلق بتاريخ الميلاد ويرجى من الاخوة الأفاضل تحديد ظهور الأسماء فقط عند سن ستين عاما.
ولكم جزيل الشكر والتقدير
أخوكم طارق
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
أخي طارق جزاك الله ألف خير فو الله لقد أثلجت صدري بردك
اللهم أغفر له ويسر أمورة اللهم اجزه بالحسنات احسانا وبالسيئات عفوا وغفرانا
اللهم باعد بينه وبين خطاياه كما باعدت بين المشرق والمغرب
لك كل المحبة والتقدير
تم تعديل هذه المشاركة بواسطة M.555 في 17 نوفمبر 2008 في 12:09
السلام عليكــم ورحمـة الله وبركاتــه
اخواني الأفاضل جزاكم الله خيرا
أخي وأستاذي العزيز najy_zl المحترم
أخي الفاضل M.555 المحترم
بارك الله فيكم أرجو المعذرة ولكن هناك اجراءات لم أتمكن منها في هذا المشروع أرجو مساعدتي:
1 - عندما يكون هناك سجل فارغ في حقل تاريخ الميلاد يوجد مشكلة بالبرنامج حاولت حلها ولم أستطيع
2 - ارجو حساب تاريخ الميلاد فقط للموظفين الموجودين بالشركة المستمرين بالعمل كما بالمثال المرفق.
ولكم جزيل الشكر والتقدير
أعرف أني أثقلت عليكم ولكن كرمكم معي شجعني على هذا الطلب
جزاكم الله خيرا وأجزل لكم العطاء ورزقكم خير الدنيا والآخرة
طارق العمدة
السلام عليكم...
تحتوي المرفقات على برنامجك مع التعديلات. توجد توضيحات داخل الكود.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
بسم الله الرحمن الرحيم
قُلْ أَعُوذُ بِرَبِّ الْفَلَقِ (1) مِنْ شَرِّ مَا خَلَقَ (2) وَمِنْ شَرِّ غَاسِقٍ إِذَا وَقَبَ (3) وَمِنْ شَرِّ النَّفَّاثَاتِ فِي الْعُقَدِ (4) وَمِنْ شَرِّ حَاسِدٍ إِذَا حَسَدَ (5)
صدق الله العظيم
أخي الفاضل najy_zl
"بسم الله أرقيك من كل شيء يؤذيك ومن شر كل نفس أو عين حاسد، باسم الله أرقيك".
يعلم الله كم أدعو لك بالرفعة في الداريين .. وأؤمن على دعاء الآخرين لك
وأسأل الله أن يحفظك ويسدد خطاك ويبارك لك ويرزقك العلا من الجنة وهي مطلب كل مؤمن وأسأل الله لك إن كنت متزوجا أن يقر عينك بزوجتك وإن كنت أباً أن يقر عينيك بأبنائك وإن كنت لم تتزوج أن يرزقك الزوجة الصالحة التي تعينك على فعل الخير :lol: :lol: :lol: (وعدم ترك المنتدى) :lol: :lol: :lol:
ويهب لك منها الذرية الصالحة التي تنتفع بهم في الدنيا والآخرة
اللهم إني أدعو لك بظهر الغيب عسى الله أن يتقبل منا
اللهم إنه فرج عني ففرج عنه يا رب العالمين
وآخر دعوانا أن الحمد لله رب العالمين
وصلى اللهم على نبينا محمد وعلى آله وصحبه وسلم
والله لقد صدق ظني
لها رجالها
اللهم حببه إلى الخير وحبب الخير إليه وانفع به يا رب العالمين
آمين
آمين
آمين
يا رب العالمين