تثبيت قيمة حقل التاريخ بمربع الصح بنفس طريقة القيمة الافتراضية

[طاهر الوليدي]

عندي حقل التاريخ في نموذج وكلما اضيف بيانات يتطلب مني اضافة التاريخ من جديد

علما ان التاريخ قد يكون من اشهر سابقه يعني لا اجعلة يستدعي من تاريخ الجهاز وانما ادخله يدويا ثم ثبته بمربع الصح حتى ولو غلقت البرنامج يظل ثابت

علما ان قاعده بحولها تنفيذيه بمعنى عدم الاستعانة بخصائص الحقل ووضع القيمة افتراضية هذا مثال بزر 

باكرود 2.rar

تم تعديل فبراير 16, 2018 بواسطه طاهر الوليدي
تم ايجاد مثال مشابه بس بزرار

[kaser906]

6 دقائق مضت, طاهر الوليدي said:

عندي حقل التاريخ في نموذج وكلما اضيف بيانات يتطلب مني اضافة التاريخ من جديد

علما ان التاريخ قد يكون من اشهر سابقه يعني لا اجعلة يستدعي من تاريخ الجهاز وانما ادخله يدويا ثم ثبته بمربع الصح حتى ولو غلقت البرنامج يظل ثابت

علما ان قاعده بحولها تنفيذيه بمعنى عدم الاستعانة بخصائص الحقل ووضع القيمة افتراضية

اعمل حقل في جدول وادخل التاريخ به

عند فتح النموذج او في اي حدث تريد استخدم الدالة  Dlookup لجلب قيمة الحقل من الجدول الى مربع النص بالنموذج

بالتوفيق،،،

[طاهر الوليدي]

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

[AlwaZeeR]

 

استخدم القيمة الافتراضية بهذه الطريقة

في حدث عند التحديث لحقل الاختيار الخاص بك ضع هذا الكود

مع تغيير ما يلزم حسب اسم الحقول لديك

::

مثالك ليس له علاقة بما تقول

Select Case yrchk
Case True
DtField.DefaultValue = """" & Me.DtField & """"
Case Else

End Select

 

[طاهر الوليدي]

نعم مثالي ماهو المطلوب بس لتوصيل الفكرة تم ارسال المثال 

علما ان حقل التاريخ اسمه ta1  وغير منظم  والحقل الثاني ta2 ايضا حقل تاريخ غير منظم ولايستندوا لجدول ولا استعلام هذه الحقول في نموذج فقط

عندما ادخل الفترة بين تاريخين الريدهم يضلوا حتى يتم تغيرهم يدويا حتى ولو اغلقت قاعدة البيانات

تم تعديل فبراير 16, 2018 بواسطه طاهر الوليدي

[kaser906]

تفضل

باكرود 3.accdb

[طاهر الوليدي]

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

بهذا المرفق

تثبت حقول.rar

تم تعديل فبراير 16, 2018 بواسطه طاهر الوليدي

[kaser906]

2 دقائق مضت, طاهر الوليدي said:

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

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

الأمر الطبيعي هنا افراغ الذاكرة المؤقته لجهاز الحاسب وكل التطبيقات ومن ضمنها قاعدة البيانات

الحقلين Ta1  و Ta2  حقلين غير منظمين

السؤال هنا من أين سيتعرف البرنامج على أخر تاريخ قمت باستخدامه  ؟

أذا كانت لديك فكرة تريد تنفيذها من خلال حاجتك لهذه الطريقة فطرحها لعلنا نستفيد منها

[طاهر الوليدي]

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

تثبيت التاريخ برمجيا.rar

[ابو ياسين المشولي]

الان, طاهر الوليدي said:

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

تثبيت التاريخ برمجيا.rar

لو كنت فهمت سوالك كان طلبك موجود عندي من الشهر ومن السنه

كما يوقال فهم السوال نصف الاجابة

هذا يعطيك من اول الشهر الى اخر الشهر

 Me.txtStartDate = DateSerial(Year(txtEndDate), DatePart("m", txtEndDate), 1)

فقط يجب عليك ان تجعل القيمه الافتراضيه date() 

في الحقلين

[kaser906]

في ١٦‏/٢‏/٢٠١٨ at 17:37, طاهر الوليدي said:

عندما ادخل الفترة بين تاريخين الريدهم يضلوا حتى يتم تغيرهم يدويا حتى ولو اغلقت قاعدة البيانات

أخي وليدة بارك الله فيك

لست واضح في طرح مواضيعك ف في كل مشاركة تقوم بتغيير الطلب

في ١٦‏/٢‏/٢٠١٨ at 17:37, طاهر الوليدي said:

عندما ادخل الفترة بين تاريخين الريدهم يضلوا حتى يتم تغيرهم يدويا حتى ولو اغلقت قاعدة البيانات

هذا هو طلبك

وعدة مرة أخرى وقلت برمجيا

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

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

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

فعندما قمت بتغيير التاريخ يدويا لم يحفظ اخر تاريخ

رجع الى الكود واعطاك التاريخ من الكود ولم يثبت التاريخ بعد تغيره يدويا

ثلاثة اشخاص لم يستطيعوا التوصل الى ما تريد

هل المشكلة في طرحك للسؤال ؟

ام المشكلة في فهم سؤالك ؟

ام المشكلة في تغير طلبك في كل مشاركة ؟؟؟؟

حاولنا نخدمك لكن بدل من ان تدخل وتشكر كل من ساهم في موضوعك

اتيت فاردا عضلاتك منتشي بأنك توصلت للمطلوب الذي هو ليس بالمطلوب في مشاركتك

عموما بالتوفيق ،،،

[طاهر الوليدي]

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

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

ولكن من لم اشكره فاليتاكد اني دعوت له دعوة الغائب فانها مستجابة 

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

[ابو ياسين المشولي]

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

وارسلت لك كود يعكيك من بدايه الشهر الى اخر الشهر كما تستطيع ان تجعله من بدايه السنه

تحياتي لك

[طاهر الوليدي]

2 ساعات مضت, ابو ياسين المشولي said:

لو كنت فهمت سوالك كان طلبك موجود عندي من الشهر ومن السنه

كما يوقال فهم السوال نصف الاجابة

هذا يعطيك من اول الشهر الى اخر الشهر

 Me.txtStartDate = DateSerial(Year(txtEndDate), DatePart("m", txtEndDate), 1)

فقط يجب عليك ان تجعل القيمه الافتراضيه date() 

في الحقلين

شكرا جزيلا اخي ابو ياسين على مساعدتك لي دائما بصدر رحب وجزاك الله عني وعن الجميع خيرا هل ممكن اخي ارسال مثال 

[ابو ياسين المشولي]

المثال اخي هو نفس طريقتك عند الفتح اجعل الكود

وفي حقل بدايه السنه ونهايه السنه اجعل القيمه الافتراضيهdate()

الان انا بالجوال

واذا فضيت بعد العصر برفع مثال

[طاهر الوليدي]

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

 

تم تعديل فبراير 26, 2018 بواسطه طاهر الوليدي

[ابو ياسين المشولي]

شوف افتح المرفق

في اللي يعطيك من اول السنه الى تاريخ اليوم

وفي الى اخر الشهر

وفي الى اخر السنه اللي هو تبعك

تثبيت التاريخ برمجيا.rar

[طاهر الوليدي]

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

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

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

1-يعمل المثال في وقت فتح النظام فقط وينحذف اذا غلقت قاعدة البيانات.يظل ثابت حتى ولو تم اغلاق النموذج

2- يمكنكم تغير الفترة كيف ماتشائون يدويا. وهذا مالم نستطيع عمله في الامثله السابقة. او اني لم ادرك ذلك فيها.

تثبت التاريخ بواسطة مدل.rar