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

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

قام بنشر

الاخوة الاعزاء المحترمين

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

بعد التحية والاحترم رمضان مبارك عليكم جميعاً قبل الزحمه وارغب مساعدتكم في اضهار اليوم الحالي مثل السبت الاحد الاثنين الخ .. كيف الوسيلة زادكم الله علماً .

اخوكم

طفشان زهقان المشغولي

  • Thanks 1
قام بنشر

عفواً

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

اخوكم

طفشان زهقان المشغولي :SHY:

قام بنشر

الاستاذ / القدير محمد طاهر المحترم

حفظه الله

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

اضفة خانة نص وسميتها dd وفي القيمة الافتراضية وضعة هذا () now= وفي تنسيق كتبت "ddd" النتيجه كانت 23/08/1424 10:51:48 م هذه

اولاً شكراً من الاعماق على مرورك الكريم على هذا الموضوع والله يحفظكم

اخوك

طفشان زهقان المشغولي

قام بنشر

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

لإظهار اسم اليوم لتاريخ معين ،،، اعمل مربع نص اجعل مصدر عنصر التحكم له هذا الكود :

=Weekday([Date])
سوف يظهر لك في مربع النص هذا رقم اليوم اعمل مربع نص آخر ليظهر لك فيه ( اسم اليوم ) ،،، مثلاً حدد مربع نص اسمه ( combo2 ) وهذا الذي سوف يظهر فيه اسم اليوم ،،،، أنشيء مربع نص لإدخال التاريخ وليكن اسمه ( date ) ،،، ضع هذا الكود في حدث بعد التحديث لهذا الحقل :
If day = 1 Then

Me![combo2] = "السبت"

ElseIf day = 2 Then

Me![combo2] = "الأحد"

ElseIf day = 3 Then

Me![combo2] = "الإثنين"

ElseIf day = 4 Then

Me![combo2] = "الثلاثاء"

ElseIf day = 5 Then

Me![combo2] = "الأربعاء"

ElseIf day = 6 Then

Me![combo2] = "الخميس"

ElseIf day = 7 Then

Me![combo2] = "الجمعة"

End If

DoCmd.Requery "combo2"

لقد عملت مثالاً لذلك ،،،، عسى أن يفي بالغرض

شاكر

dayname_97.zip

  • Like 1
قام بنشر

أخي العزيز،

جرب استخدام دالة () date في القيمة الإفتراضية للعمود بدلا من () time وفي التنسيق أكتب ddd

مع تحياتي

  • Like 1
قام بنشر

بسم الله الرحمن الرحيم ابد

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

اخوكم

فرحان منطنط المسروري

قام بنشر

طبعا هذا ممكن ،و لكن ...

ليس من التطبيق الجيد تخزين ما يمكن استنتاجه

فتاريخ اليوم كافي لاستنتاج اسمه فى أي وقت

فلا داعي لتخزينه

و عموما لتسجيل البيانات المستنتجة فى جدول ، من المفترض أنك تريد تسجيلها كنص ( اسم اليوم )

ففي حدث بعد التحديث لمربع ادخال و تعديل التاريخ ضع الكود التالي

Private Sub d1_BeforeUpdate(Cancel As Integer)

 Me.dayname = Format(Me.d1, "ddd")


End Sub

علي اساس ان d1 هو مربع ادخال أو تعديل التاريخ

و dayname هو المربع المرتبط بالحقل الذي تريد تخزين اسم اليوم فيه كنص

  • Like 1
قام بنشر

سعادة الاستاذ المحبوب / محمد طاهر المحترم

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

شكراً جربت الكود وظهر التاريخ في الجدول ولكن في حال كان الخانة d1 هي التاريخ الحالي لا يتم اظهار اليوم الحالي في الجدول ،بمعنى ان الخانة d1 هي ()Date= وهي تحسب مراجعة المريض في حال راجع المريض هذا اليوم يقوم موظف الاستقبال بي ادخال البيانات وفي حال طلب الطبيب تقرير عن زيارة المريض يراد ان يعرف الايم التي زار فيها خصوص مرضى الفشل الكلوي ، انا اسف طول عليك بختصر الخانة d1 ليست مربع ادخال أو تعديل التاريخ هي التاريخ الحالي وشكراً هل يمكن يا استاذ محمد

الاستاذ / العزيز شاكر الزين اشكر من كل قلبي وكان مثل رائع شكر مرة ثانية ،وانشاء الله لن انسك من الدعاء انت والاخوة جميعاً

الاستاذ / ابو هادي اسلوبك جميل شكراً

الاستاذ / aaa الاولى اريدك دايم بخير والثانية اتمناء من الله ان يحفظك انت والاستاذ محمد طاهر والاستاذ شاكر الزين والاستاذ ابو هادي والثالثه اصبحت اعشق هذا المنتداى وكل من فيه واسمحولي ان كنت اطلت عليكم

اخوك في الله

فرحان منطنط المسروري :fff::fff::fff:

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information