لماذا الاصفار لا تظهر في الرقم المسلسل ؟

عزيزي ،،،، إذا كان الحقل ( نصي ) من المفترض أن يقبل الطريقة التي تريدها

أما إذا كان ( رقمي ) فلن يقبل ,,,,

غير الحقل إلى ( نصي ) ،،،، ثم أكتب هذا الكود

017010030315D

كما هو سوف يحفظه في الجدول كما أضفته بالصفر ,,,,,

شاكر

منقول من منتدى

اذا كان الحقل نصي:

DoCmd.RunSQL "INSERT into Table1 (nom,dgdf) values ('toto','" & Format(num, "000") & "') "

منقول من منتدى

اذا كان الحقل نصي:

DoCmd.RunSQL "INSERT into Table1 (nom,dgdf) values ('toto','" & Format(num, "000") & "') "

و الله أعلم

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

نعم ... عند بداية الكود فهو تحول الى حقل رقمي وتظهر الاصفار كما يلي:-

Private Sub ID_BRD_AfterUpdate()

Dim i As Integer

i = DCount("[sTOCK MAIN]![iD_BRD]", "STOCK MAIN", "([sTOCK MAIN]![iD_BRD]=FORMS![ENTER-NEW-STOCK]![iD_BRD]) ")

If i = Null Then

i = 0

Me![sTOCK_SR] = i + 1

Else

Me![sTOCK_SR] = i + 1

End If

ولكن تختفي الاصفار عند وضعه في الحقل النصي كما هو واضح

[bRAND] = DLookup("[bRAND]", "BRAND", "[iD_BRD]=FORMS![ENTER-NEW-STOCK]![iD_BRD]")

[sTOCK_ID] = [sTOCK_SR] & [iD_CAT] & [iD_BRD] & [iD_PAK] & [iD_SIZE] & [iD_WTH]

[sTOCK_DESC] = [CATEGORY] & " " & [bRAND] & " " & [rdesc] & " " & Me![WIDTH] & "(" & " شد " & [iD_PAK] & " قياس " & Me! & ")"

'Me![COUNTBRND].Form.Requery

End Sub

فلماذا يحصل هذا؟

والسلام ختام

أخي الكريم ،،،،، لماذا لا تضع مثالاً لتعديله ،،،، على حسب ما تريد ؟؟؟؟؟

شاكر الزين

السلام عليكم

الصراحة على ما يبدو كان في ضغط زيادة

المهم انحلت المشكلة ببساطة شديدة جدا لم اكن اتوقعها وهذا بفضل ربي وبفضل هذا المنتدى الرائع والقائمين عليه والمشاركين فيه

فقط اضفت هذا الكود

e![sTOCK_SR] = Format([sTOCK_SR], "000")

فاصبح كالاتي

Private Sub ID_BRD_AfterUpdate()

Dim i As Integer

i = DCount("[sTOCK MAIN]![iD_BRD]", "STOCK MAIN", "([sTOCK MAIN]![iD_BRD]=FORMS![ENTER-NEW-STOCK]![iD_BRD]) ")

If i = Null Then

i = 0

Me![sTOCK_SR] = i + 1

Me![sTOCK_SR] = Format([sTOCK_SR], "000")

Else

Me![sTOCK_SR] = i + 1

Me![sTOCK_SR] = Format([sTOCK_SR], "000")

End If

والسلام ختام