ترقيم جديد للنموذج الفرعي

[Eng.Qassim]

السلام عليكم 

اعتقد ان الموضوع تناوله بعض الاخوة الافاضل ...بحثت في المنتدى ولم اجد ضالتي ...ربما السبب في عنوان الموضوع

المهم ...اني احتاج لترقيم جديد في النموذج الفرعي لكل فاتورة جديدة 

عملت ذلك حسب ماتعلمته من منتدانا واساتذتنا الكبار ...

حاولت التخلص من كلمة Error التي تظهر لي في السطر الاخير ...ولم افلح 

 

invoice1.rar

[Eng.Qassim]

اعتقد ان المشكلة في ال ItemCode

الاكسس لايرى انها Null وانما رقم 

[ابوخليل]

عليكم السلام

هل هذه هي الدالة التي تبحث عنها ؟

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
Exit_RowNum:
    Exit Function
Err_RowNum:
    If Err.Number <> 3021& Then  'Ignore "No bookmark" at new row.
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function
'=RowNum([form])

 

invoice2.rar

[Eng.Qassim]

4 دقائق مضت, ابوخليل said:

هل هذه هي الدالة التي تبحث عنها ؟

لا استاذي @ابوخليل

انظر الى التسلسل 

اريد حقل ت 1 2 3 وهكذا ... وهو يعمل لدي مضبوط .. لكن السطر الاخير الذي ليس فيه اي سجلات يعطي كلمة Error 

الدالة تعمل جيدا معي ...لكن كلمة Error توحي للمستخدم ان هناك خطأ

[ابوخليل]

سبب الخطأ ان قيمة مربع التحرير = صفر  وليس null

جرب هذا

=IIf([ItemCode]=0;Null;Nz(DCount("ItemCode";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)

 

[Eng.Qassim]

احسنت استاذ @ابوخليل

كنت اظن ان الدالة لاترى الحقل null وانما رقم ..وبفضل الله وفضلك وجدت الحل 

كان المفروض ان اختار الحقل saleOrder وليس ItemCode

=IIf(IsNull([SaleOrder]);Null;Nz(DCount("*";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)

 

[ابوخليل]

دائما تحدث معنا ..

يوم كامل ابحث عن سبب لعدم ظهور صورة معينة رغم ان كل الصور تظهر .. والنتيجة كان السبب حرف واحد زائد في احدى الكلمات ... وقد استنجدت باكسس للبحث عن الاخطاء في الاكواد ولكن بلا فائدة لان فيجول لا يعتبرها خطأ حيث انها اصبحت تحمل قيمة ولكن القيمة مغايرة .

[شايب]

2 ساعات مضت, Eng.Qassim said:

كنت اظن ان الدالة لاترى الحقل null وانما رقم ..وبفضل الله وفضلك وجدت الحل 

فكرة اخرى

لو جعلت حقل الترقيم في جدول تفاصيل الفاتورة

ويبدأ العد في حدث بعد التحديث للحقل ItemCode

فلن تظهر كلمة Error

ونكتفي بـ

Me.txtNewNumber = Nz(DCount("ItemCode", "SalesOrderDetailsT", "SaleID=" & [saleID] & "AND SaleOrder <" & [SaleOrder]), 0) + 1

ونستغني عن الكود الموجود في حدث الحالي للنموذج الفرعي

ولكن لو حرف امتناع لامتناع

اخونا الشايب

[Eng.Qassim]

اخونا @شايب

سوف يأخذ اخر رقم لجميع الحقول 

[شايب]

6 ساعات مضت, Eng.Qassim said:

سوف يأخذ اخر رقم لجميع الحقول 

لا لا بل يحسب بشكل صحيح لكن هل جعلت

10 ساعات مضت, شايب said:

لو جعلت حقل الترقيم في جدول تفاصيل الفاتورة

ستجد ان الترقيم صحيح

الملف مرفق

 

 

invoice1.accdb