الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اضافه التاريخ تلقائي في الجدول

بدأه alsaeed في 3 أكتوبر 2009 · 7 رد · 4,360 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السادة المشرفين الاخوه الاعضاء

اريد معيار او شرط تنفيذ الاستعلام يضع التاريخ اليومي في الجدول

ملحوظه:

1-الجدول به تواريخ مسبقه مدخله يدوي اريد الكود يكمله عليها بمعنى آخر تاريخ يدوي 2/10/2009 اريد الكود يكمل عليه و يدخل تاريخ اليوم 03/10/2009وبعد ذلك يحدث التاريخ يوم بيوم.

2- يدخل التاريخ حتى لو لم يوجد اي بيانات .

db3.rar

#2

هل تريد طريقة أخرى، أسهل وأضمن:

- إفتح الجدول في وضع التصميم.

- في الحقل المطلوب، أمام خاصية "القيمة الإفتراضية" أكتب التالي:

Date()

مع مراعاة أن نوع الحقل يجب أن يكون (تاريخ/وقت).

وهذا كل شيء!

تم تعديل هذه المشاركة بواسطة Kuwait10 في 4 أكتوبر 2009 في 00:39

#3

الف شكر اخي الكريم جزاء الله خيرا

#4

اخي العزيزKuwait10

......date() غيرالتاريخ من يوم 3 الى يوم 4 في نفس السجل

أنا اريد ان يتم تغييرالتاريخ في الجدول كل يوم في سجل جديد حتى لو لم أدخل اي بيانات مع التاريخ. وجزاء الله خيراً

medo.rar

تم تعديل هذه المشاركة بواسطة alsaeed في 4 أكتوبر 2009 في 06:43

#5

كانت إجابتي السابقة تقوم بإدراج تاريخ اليوم

تلقائيا عند إنشاء سجل جديد.

وأنت تريد أن يتم إدراج التاريخ الحالي يوما بيوم من غير أن تقوم بإدخال بيانات أو إنشاء سجلات جديدة،

حسنا، يجب أن يكون لدينا نموذج البداية مصدر سجلاته الجدول "D" ونقوم فيه بإدراج مربع نص وليكن باسم "txtDate1" مصدر عنصر التحكم فيه هو الحقل "Date1" الموجود بالجدول "D" كما هو بالمثال الذي أرفقته،

في هذا نموذج نقوم بتعريف متغيران:

Dim dteLast As Date
Dim dteNew As Date

في حدث عند التحميل للنموذج، نضع الاوامر التالية:

	dteNew = Now()
	dteLast = DMax("[Date1]", "D")
	If DateDiff("d", dteLast, dteNew) > 0 Then
		DoCmd.GoToRecord , , acNewRec
		Me.txtDate1 = Now()
		DoCmd.RunCommand acCmdSaveRecord
	End If

وهذا كل شيء، حيث كلما يقوم المستخدم بفتح نموذج البداية، يقوم البرنامج بإدراج تاريخ اليوم في الجدول، من غير تكرار طبعا.

أعني كل يوم بتاريخه.

من الممكن أيضا أن تقوم بإخفاء مربع النص حتى لايشعر المستخدم بأي شي.

المثال بالمرفقات، في البداية قم بفتح الجدول، وانظر إلى آخر تاريخ مدرج فيه، ثم قم بفتح النموذج وأغلقه، وإرجع للجدول من جديد لتشاهد التغييرات.

db31New.zip

#6

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

تم تعديل هذه المشاركة بواسطة alsaeed في 4 أكتوبر 2009 في 18:36

#7

حقيقة كل شيء ممكن،

ولكن أسألك سؤالا قبل كل شيء،

ما الهدف من هذه العملية؟

وضح لي هدفك حتى أساعدك بالطريقة الصحيحة،

حتى لا نتوسع أكثر بـ "الأكواد"،

دعني أفهم غرضك بالضبط حتى أستطيع أن أحلل المشكلة بالطريقة الصحيحة،

لأن من الواضح نحن نسير لحل غير منطقي.

#8

انا في عملي بأعمل استيراد بيانات خارجيه الى الجدول وبها بيانات و تواريخ اليوم .... طبعاً الايام التي ليست بها عمل... لاتـأتي من ضمن البيانات .....(وعندي في العمل طالبين منى أظهار الايام التي لم يكن بها عمل من ضمن البيانات ) فأنا عملت جدول آخر به تواريخ فقط وقمت بأدخل التاريخ يدوي .... وعملت استعلام وربط جدول البيانات مع جدول التواريخ اليدوي ....وعملت الرابط يشمل كل السجلات عشان يظهر لي مع البيانات في الاستعلام الايام التي به عمل مع الايام التي كانت لاتوجد به عمل( بمعنى آخر تظهر لي التواريخ كامله من أول شهر الى آخر شهر) .

تم تعديل هذه المشاركة بواسطة alsaeed في 5 أكتوبر 2009 في 13:12

مواضيع مشابهة