Eng.Qassim قام بنشر أغسطس 27, 2023 مشاركة قام بنشر أغسطس 27, 2023 السلام عليكم اعتقد ان الموضوع تناوله بعض الاخوة الافاضل ...بحثت في المنتدى ولم اجد ضالتي ...ربما السبب في عنوان الموضوع المهم ...اني احتاج لترقيم جديد في النموذج الفرعي لكل فاتورة جديدة عملت ذلك حسب ماتعلمته من منتدانا واساتذتنا الكبار ... حاولت التخلص من كلمة Error التي تظهر لي في السطر الاخير ...ولم افلح invoice1.rar رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 27, 2023 الكاتب مشاركة قام بنشر أغسطس 27, 2023 اعتقد ان المشكلة في ال ItemCode الاكسس لايرى انها Null وانما رقم رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 27, 2023 مشاركة قام بنشر أغسطس 27, 2023 عليكم السلام هل هذه هي الدالة التي تبحث عنها ؟ 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 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 27, 2023 الكاتب مشاركة قام بنشر أغسطس 27, 2023 4 دقائق مضت, ابوخليل said: هل هذه هي الدالة التي تبحث عنها ؟ لا استاذي @ابوخليل انظر الى التسلسل اريد حقل ت 1 2 3 وهكذا ... وهو يعمل لدي مضبوط .. لكن السطر الاخير الذي ليس فيه اي سجلات يعطي كلمة Error الدالة تعمل جيدا معي ...لكن كلمة Error توحي للمستخدم ان هناك خطأ رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر أغسطس 27, 2023 أفضل إجابة مشاركة قام بنشر أغسطس 27, 2023 سبب الخطأ ان قيمة مربع التحرير = صفر وليس null جرب هذا =IIf([ItemCode]=0;Null;Nz(DCount("ItemCode";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1) 2 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 28, 2023 الكاتب مشاركة قام بنشر أغسطس 28, 2023 احسنت استاذ @ابوخليل كنت اظن ان الدالة لاترى الحقل null وانما رقم ..وبفضل الله وفضلك وجدت الحل كان المفروض ان اختار الحقل saleOrder وليس ItemCode =IIf(IsNull([SaleOrder]);Null;Nz(DCount("*";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1) رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 28, 2023 مشاركة قام بنشر أغسطس 28, 2023 دائما تحدث معنا .. يوم كامل ابحث عن سبب لعدم ظهور صورة معينة رغم ان كل الصور تظهر .. والنتيجة كان السبب حرف واحد زائد في احدى الكلمات ... وقد استنجدت باكسس للبحث عن الاخطاء في الاكواد ولكن بلا فائدة لان فيجول لا يعتبرها خطأ حيث انها اصبحت تحمل قيمة ولكن القيمة مغايرة . رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أغسطس 28, 2023 مشاركة قام بنشر أغسطس 28, 2023 2 ساعات مضت, Eng.Qassim said: كنت اظن ان الدالة لاترى الحقل null وانما رقم ..وبفضل الله وفضلك وجدت الحل فكرة اخرى لو جعلت حقل الترقيم في جدول تفاصيل الفاتورة ويبدأ العد في حدث بعد التحديث للحقل ItemCode فلن تظهر كلمة Error ونكتفي بـ Me.txtNewNumber = Nz(DCount("ItemCode", "SalesOrderDetailsT", "SaleID=" & [saleID] & "AND SaleOrder <" & [SaleOrder]), 0) + 1 ونستغني عن الكود الموجود في حدث الحالي للنموذج الفرعي ولكن لو حرف امتناع لامتناع اخونا الشايب رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 28, 2023 الكاتب مشاركة قام بنشر أغسطس 28, 2023 اخونا @شايب سوف يأخذ اخر رقم لجميع الحقول رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أغسطس 29, 2023 مشاركة قام بنشر أغسطس 29, 2023 6 ساعات مضت, Eng.Qassim said: سوف يأخذ اخر رقم لجميع الحقول لا لا بل يحسب بشكل صحيح لكن هل جعلت 10 ساعات مضت, شايب said: لو جعلت حقل الترقيم في جدول تفاصيل الفاتورة ستجد ان الترقيم صحيح الملف مرفق invoice1.accdb 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان