كيف اضع التاريخ في النموذج من الجهاز

إذا كنت تريد أن يظهر التاريخ الموجود بالجهاز على النموذج فإتبع التالي:

1_ ضع مربع نص على النموذج وسمه TxtDate أو أي اسم تريد وفي خصائص النموذج خاصية " عند عداد الوقت أنقر على الزر ذي ثلاث نقاط تظهر الوحدة النمطية ثم أكتب الكود التالي:

  txtDate = Format(Now, "yyyy/mm/dd")

وإذا كنت تريد أن يظهر الشهر اسماً وليس رقماً اضف حرف M إلى حرفي ال M الموجودين في الكود أعلاه وفي حدث " الفاصل الزمني لعداد الوقت " أكت الرقم 1000

أما بالنسبة للترقيم التلقائي فيوجد أجوبة كثيرة وأمثلة في المنتدى على نفس السؤال0

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

لك تحياتي

بالنسبة لسؤالك حول التاريخ فالأخ عضو شرف قد أفادك تماماً

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

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

ومن خصائص هذا الحقل اختر القيمة الافتراضية ومن ثم اكتب فيها الدالة التالية : ()Date=

تمكنك هذه الطريقة من وضع افتراضي لتاريخ اليوم مع امكانية التغيير اذا أردت .

ويمكن استخدام الدالة نفسها ولكن في النموذج .

أما عن موضوع الترقيم التلقائي فعلى ما أعتقد أنك تستخدم هذا الرقم كرقم مسلس لمستند ما .

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

لارجاع التسلسل الى الرقم 1 يجب عليك ظغط قاعدة البيانات

لقد قمت بإضافة سجلات كثيرة قبل الضغط فمالحل

لقد اصبحت ارقام السجلات ( الترقيم التلقائي ) غير متسلسل

مع أن المطلوب التسلسل

فهي اصبحت

1

2

4

8

10

11

12

13

فهناك ارقام ناقصة كيف ارجعها

من دون حذف السجلات الأخيرة ثم ضغط القاعدة

ثم اعادة كتابة السجلات

اريد حلاُ لإرجاع الترقيم من دون هذه الطريقة

وشكرا

على هذا الرابط توجد قاعدة تعرفك بالأرقام المفقودة بعد الحذف

http://www.libya.ly/user/ashrafk/lost.zip

أشرف خليل

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

عندما تحذف وقبل أن تضيف أي بيانات جديدة اضغط قاعدة البيانات .

و أيضا هذا كود للأخ مفرج:

هذا الكود يعيد تصفير الرقم التلقائي لجدول اكسس بعد حذف معلوماته

Private Function valp()
    Dim REC As Recordset
    Dim DB As Database
    Set DB = CurrentDb()
    Set REC = DB.OpenRecordset("اسم الجدول")
    REC.AddNew
    REC!per_id = 0
    REC.Update
End Function

و هذا كود لأبو حمود

هذا كود لإضافة كافة الأرقام الناقصة مع مقياس للتقدم : 

Dim عدد_السجلات, I
Dim القيمة_المعادة
Dim VarReturn As Variant, str As String

عدد_السجلات = DMax("[حقل الترقيم التلقائي]", "اسم الجدول")
str = "تقدم عملية الإضافة ....."

VarReturn = SysCmd(acSysCmdInitMeter, str, عدد_السجلات)
Dim REC As Recordset
    Dim DB As Database
    Set DB = CurrentDb()
    Set REC = DB.OpenRecordset("اسم الجدول")

For I = 1 To عدد_السجلات
القيمة_المعادة = DLookup("[حقل الترقيم التلقائي]", "اسم الجدول", "[حقل الترقيم التلقائي]=" & I)
If IsNull(القيمة_المعادة) Then
    REC.AddNew
    REC![حقل الترقيم التلقائي] = I
    REC.Update
End If
VarReturn = SysCmd(acSysCmdUpdateMeter, I)
Next I
VarReturn = SysCmd(acSysCmdRemoveMeter)

REC.Close
DB.Close

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