[تمت الاجابة] إضافة تاريخ جديد تلقائيا

[gelani]

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

كيف استطيع إضافة التاريخ تلقائيا بحيث يكون التاريخ اكبر من سابقه. حيث أن كل إضافة تمثل يوم جديد.

جربت date() ولكن بهذه الطريقة تتكرر معي البيانات في حاله ادخال البيانات في نفس اليوم .

مع شكري وتقديري مقدماً.

[أبو آدم]

أخي العزيز

اذا كنت قد أحسنت الفهم عنك ، فاليك المقترح

كل سجل تاريخ جديد ( يلي أكبر تاريخ في الجدول)

حيث أن كل إضافة تمثل يوم جديد

زر سجل جديد يحمل الكود الذي يبني منظومة سجلات من الجدول ومن حقل التاريخ لاستخراج أكبر تاريخ وإظهار التاريخ لليوم التالي كقيمة افتراضية في حقل التاريخ ، وينقلك تلقائيا لاستكمال التسجيل لمعلومات الحقل التالي ....

واليك الشرح الصامت ..

و المرفق

والله من وراء القصد

NA_MaxDate.rar

[gelani]

أسأل الله العظيم رب العرش الكريم أن يزيدك علماً وأن ينفع بك المسلمين وأن يجزيك عنا خير الجزاء .

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

وبماان الكود مرتبط بزر الإضافة فهل بالامكان جعل إضافة التاريخ بمجرد إضافة قيمة في الحقل بدلا من الضغط على الزر .

تحياتي وشكري لك خاصة ولجميع اعضاء المنتدى عامة .

[gelani]

عزيزي عند ادخال بيانات على النموذج لاحظت تكرار التاريخ لبعض الأيام .

مع رجائي بشرح مفصل عن كيفية استخدامه في نموذج آخر .

تحياتي وتقديري

[أبو آدم]

أخي العزيز

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

لذلك لا بد من فهم روتين (بروتوكول) العمل داخل النموذج ، لتحديد الحركة داخل الكود

أدخلت مجموعة سجلات ولم يحصل معي تكرار ، أعدت صياغة الكود ، حيث كان الاول لتوضيح الفكرة

الآن عند ادخال الاسم (بعد التحديث) لحقل strName يتم تنفيذ الكود على افتراض ان ادخال الاسم سابق مباشرة للادخال التلقائي للتاريخ

بغض النظر عن الحقول السابقة أو اللاحقة

Private Sub strName_AfterUpdate()

Dim rs As ADODB.Recordset, MyVal As Date

Dim x As Date


Set rs = New ADODB.Recordset

'Open a Connection to the Recordset

rs.Open "SELECT MAX(strDate) from Table1", CurrentProject.Connection

rs.MoveFirst

MyVal = (rs.Fields(0).Value) + 1

x = Format(MyVal, "yyyy/mm/dd")

rs.Close

Set rs = Nothing


 Me.strName.SetFocus

 Me.strDate = x


End Sub

كما يمكنك استخدام الكود في اي نموذج لتطبيق نفس الروتين

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

والله من وراء القصد ...

NA_MaxDate_UP.rar

[gelani]

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

[أبو آدم]

حياك الله

ويكفينا دعاء بظهر الغيب