حذف سجل يحتوي على كلمة Delet

وعليكم السلام اخي خالد :)

لحذف الاخطاء:

1. اعمل Compact and Repair

2. شغل الاستعلام :)

للتسلسل حسب السنه:

1. في الجدول ، احذف هذا الشرط ، والذي يجعلك ترى سنة 2010 عبارة عن مجرد صورة ، ولاتوجد السنة في الجدول اصلا (احذفها واحفظ الجدول وانظر في البيانات :) ) ،

2. اعمل هذا الكود في نموذج ادخال البيانات في الجدول tCandidate ،

انا عملت الكود بعد تحديث الاسم:

    'S= Slash
    'N= Serial Number
    'Y= Year
    
    Last_ReCode = DLast("[ReCode]", "tCandidate")
    S = InStr(Last_ReCode, "/")
    N = Mid(Last_ReCode, 1, S - 1)
    Y = Mid(Last_ReCode, S + 1)

    If CDate(Y) = Year(Now()) Then
        Me.ReCode = Format(Val(N) + 1, "0000") & "/" & Year(Now())
    Else
        Me.ReCode = Format(1, "0000") & "/" & Year(Now())
    End If

جعفر

149.DBDDC_be.mdb.zip

جزاك الله خيرا اخي الكريم

الامر Compact and Repair ما وجدته النسخة 2007 وسابقا عملته لكن نسيته ام ما مركز 

تفضل :)

اكسس 2007

http://www.addintools.com/documents/access/images/access2007-compact-repair-ribbon-585-502.png

اكسس 2010/2013

http://www.addintools.com/documents/access/images/access2010-compact-repair-ribbon-560-396.png

جعفر

جزاك الله خيرا اخي جعفر

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

jjafferr كتب:

انا عملت الكود بعد تحديث الاسم:

جعفر

السلام عليكم

بعد التحية اخى جعفر عذرا على عجم توضيح  السؤال

لم استخدم النموذج لانو اصلا لدى نموذج من الجدولين اعلاه وكذلك لدى زر import تصدير بيانات من ملف اكسل

واستخدمت الكود عند الاسم بعد تحديث الاسم بالنسبة للنموذج الانت عملته شغال الكود 100%

وعليكم السلام اخي خالد :)

الحمدلله ان ملفي شغال :)

والآن علشان نعرف شو المشكله في برنامجك ، فلو سمحت تحذف جميع الكائنات اللي فيه ، وارسل لي النموذج فقط ، علشان اشوفه واضبطه ان شاء الله :)

جعفر