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

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

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

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

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

باكرود 2.rar

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

[kaser906]

  في 16‏/2‏/2018 at 14:02, طاهر الوليدي said:

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

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

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

Expand  

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

عند فتح النموذج او في اي حدث تريد استخدم الدالة  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]

  في 16‏/2‏/2018 at 16:01, طاهر الوليدي said:

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

Expand  

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

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

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

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

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

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

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

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

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

  في 26‏/2‏/2018 at 08:13, طاهر الوليدي said:

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

تثبيت التاريخ برمجيا.rarFetching info...

Expand  

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

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

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

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

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

في الحقلين

[kaser906]

  في 16‏/2‏/2018 at 14:37, طاهر الوليدي said:

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

Expand  

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

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

  في 16‏/2‏/2018 at 14:37, طاهر الوليدي said:

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

Expand  

هذا هو طلبك

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

  في 26‏/2‏/2018 at 08:13, طاهر الوليدي said:

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

Expand  

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تحياتي لك

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

  في 26‏/2‏/2018 at 08:44, ابو ياسين المشولي said:

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

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

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

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

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

في الحقلين

Expand  

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

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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