(تمت الاجابة) كود اضافة سجل جديد

[baraa2007]

عندي نموذج وعايز لما اضغط على زر سجل جديد يشوف اخر رقم ايه ويضيف عليه واحد

يعني لو اخر رقم موجود هو 10 لما اضغط عليه يعمل سجل جديد ياخد رقم 11

وشكرا

[أبو آدم]

تفضل ......

Private Sub Command8_Click()

DoCmd.GoToRecord , , acNewRec

If Me.NewRecord Then

Me!ID = DMax("id", "MytableName") + 1

End If

End Sub

................

[عبد الله قدور]

من خصائص مربع النص id

ضع قيمته الافتراضية

nz(DMax("[id]", "[MytableName]")) + 1

[baraa2007]

شكرا اخي الكريم

[أبو آدم]

يرجى الالتزام بالموضوع الأصلي

المشاركات غير الخاصة بهذا الموضوع تم نقلها لرابط الموضوع الخاص بها ....... http://www.officena.net/ib/index.php?showtopic=41612

............

شكراً

...............

[baraa2007]

اخي الكريم تم تجربة الكود بنجاح ولكن

لما يكون الرقم الموجود 00001 المفروض ان بالكود يكون الرقم الجديد 00002

ولكن النتيجة بتكون 2 بس وبيتجاهل الاصفار الى على الشمال حيث لا قيمة لها عدديا

فما الحل

[أبو آدم]

أخي العزيز

الأصفار تتعلق بتنسيق الحقل في الجدول ، و النموذج ... إجعلها "00000"

..............

[abosmah]

مشكورين