عدم تجاوز التسلسل

[Abdelaziz Osman]

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

لدى حقل بالنموذج المرفق باسم  infoo  يتم ادخال بيانات به بالنمط التالى  1/ 2024   ,  2/2024  ,  3/2004     وهكذا ...

 

المطلوب : تقييد الادخال فى حالة تجاوز التسلسل النمطى بعد اخر ادخال اي اذا كان على سبيل المثال آخر سجل هو الفيمة "9/2024"

فلا يجوز تجاوز تسلسل هذة القيمة اذا ادخلت على سبيل المثال "11/2024" او اي قيمة اعلى من ذلك

لان التسلسل الذى عليه الدور هو "10/2024"

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

عدم تجاوز التسلسل.accdb

[Foksh]

عليكم السلام ورحمة الله وبركاته أخي @Abdelaziz Osman ..

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

Private Sub infoo_BeforeUpdate(Cancel As Integer)
    Dim rs As Recordset
    Dim lastValue As String
    Dim newValue As String
    Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 * FROM Mod ORDER BY [infoo] DESC")
    If Not rs.EOF Then
        lastValue = rs("infoo")
    End If
    rs.Close
    newValue = Me.infoo.Value
    If DateValue(newValue) > DateValue(lastValue) Then
        MsgBox "íÑÌì ÇáÊÃßÏ ãä ÇáÊÓáÓá!", , "ÊäÈíå"
        Me.Undo
        Cancel = True
    End If
End Sub

 

وهذا مثالك ,,   عدم تجاوز التسلسل.accdb

[Abdelaziz Osman]

9 دقائق مضت, Foksh said:

MsgBox "íÑÌì ÇáÊÃßÏ ãä ÇáÊÓáÓá!", , "ÊäÈíå"

ماهذه الرسالة ؟؟؟

عندما ادخلت   10/2024    رفض الادخال

يرجى العلم ان الحقل   infoo  ليس حقل تاريخ  لكنه حقل نصى عادى

[Abdelaziz Osman]

كما ان الرقم 2024 هو الرقم المسجل لرقم السنة المسجلة على سيستم تاريخ الكمبيوتر

[kkhalifa1960]

 مشاركة مع استاذ @Foksh تفضل استاذ @Abdelaziz Osman محاولتي ...... وليش ماتستغل حقل الترقيم التلقائي كما بالشرح والمرفق .

                                                                                                                                    

عدم تجاوز التسلسل-1.rar

[Abdelaziz Osman]

فكرة جيدة ولكن اذا تم حذف سجل سيختلف التسلسل

هل من الممكن اخذ التسلسل من الجزء الاول من التسلسل الاخير للسجل السابق

بمعنى ان كان السجل السابق 9/2024 هل من الممكن ان ياخذ رقم 9+1   بدل من ان ياخد من حقل ID

تم تعديل مايو 14 بواسطه Abdelaziz Osman

[kkhalifa1960]

استاذ @Abdelaziz Osman إذا تبغي عند حذف سجل الحفاظ على المعلومات   اتبع محاولتي الأولي .

أما إذا تبغي عند حذف سجل الحفاظ على الترقيم متسلسل أنظر نموذج 2 . بعد حذف السجل رقم 3  كما بالمرفق .

عدم تجاوز التسلسل-2.rar

[Abdelaziz Osman]

لسيادتكم جزيل الشكر

@kkhalifa1960

بالفعل محاولة بالغة المهارة

تم تعديل مايو 14 بواسطه Abdelaziz Osman