طريقة ادراج الساعات و الدقائق و التاريخ و صباحا او مساءا فقط في حقل

تم رفع الملف و لم يظهر

فاضطررت الي عمل رفع له علي الفور شير لانني حديث عهد بالمنتدي و موضوع النقاط فارجو توضيح موضوع النقاط ايضا و الرفع

http://www.4shared.com/file/1hrLzuhb/time_date-insert.html

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

أخي الكريم،

أولاً: من الأفضل أن تحاول دوماً تحويل الأمثلة المرفقة إلى صيغة 2003 حتى يتسنى للجميع المشاركة في الحل؛ أنا مثلاً لا أملك نسخة أكسس 2007.

ثانياً: مسألة التواريخ والوقت قد أشبعت طرحاً في المنتدى وغيره لدرجة يصعب تجاهلها. القليل من البحث في ملفات مساعدة أكسس أولاً ثم في النت ومنه هذا القسم في المنتدى سيعطيك بإذن الله فكرة أكثر وضوحاً من مجرد إجابة مقتضبة.

ثالثاً: حتى لا تتبرم، أشير عليك بمراجعة الدالة Format، فإن بإمكانك أن تستخدمها في تشكيل قيمة تاريخ/وقت بمرونة. كل ما عليك هو أن تستدعي هذه الدالة مع قيمة التاريخ المعطى، كالتالي مثلاً:

MyStr = Format(MyDate, "dd mmmm yyyy hh:mm:ss AMPM")

MyDate هو قيمة التاريخ/وقت التي عندك ابتداءً، من تاريخ الجهاز أو من تقويم أو ما شابه، وMyStr هو الناتج الذي يفصل أجزاء مختلفة من التاريخ منها الساعة والدقيقة والثانية مع المميز am أو pm.

والله أعلم.

السلام عليكم

جزاكم الله خيرا اخي الحبيب احمد مبارك

لقد بحثت مرارا و لم اجد

لكنني لست خبيرا بالاكسيس و لم استطع تطبيق ما تفضلت و كتبته

و لقد قمت برفع الملف بصيغة 2003

فارجو تطبيق الصيغة و رفعها فالموضوع عندي في غاية الاهمية

اخوك سامح

http://www.4shared.com/file/V_CSK14t/time_date-insert_1_.html

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

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

أرجو الاطلاع على الملف المرفق و تجربته...

أخوك أحمد.

time_date-insert.rar

السلام عليكم

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

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

لانه يفك لي كرب كثيرة عند ادخال البيانات

في الانتظار اخي الكريم

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

التعديل الوحيد الذي تم هو في الوحدة النمطية basCalendar في الدالة PopupCalendar، وبالذات في هذا المقطع:

If isFormLoaded(CALENDAR_FORM) Then
        Set frmCal = Forms(CALENDAR_FORM)
        ctl.Value = Format(DateSerial(frmCal!Year, frmCal!Month, frmCal!day), "mm/dd/yyyy") & " " & frmCal!h & ":" & frmCal!m1 & frmCal!m2 & " " & frmCal!pam
        DoCmd.Close A_FORM, CALENDAR_FORM
        Set frmCal = Nothing
    End If

وبالتحديد، هذه الإضافة:

& " " & frmCal!h & ":" & frmCal!m1 & frmCal!m2 & " " & frmCal!pam

من أجل تضمين الوقت بالإضافة إلى التاريخ في القيمة المعادة من نموذج التقويم المنبثق إلى النموذج الذي يحوي الحقل المستقبل (Time_Satage هنا).

لأن التعديل قد تم في وحدة نمطية عامة، وليس مرتبطاً بالحقل المستقبل خاصة، فإنه بإذن الله سوف يعمل دوماً مع أي حقل. فقط تذكر أن تعد هذه الخاصية للحقل كما هي معدة بالنسبة لحقل Time_Stage في النموذج الفرعي:

هذه الخاصية تستدعي الدالة أعلاه عند النقر المزدوج على الحقل...

والله أعلم.

السلام عليكم

جزاكم الله اخي احمد مبارك

و جعله الله في ميزان حسناتك

و جمعنا الله و ايااك و المسلمين مع النبي صلي الله عليه و سلم