عبدالعزيز محمد قام بنشر أغسطس 6, 2023 مشاركة قام بنشر أغسطس 6, 2023 هل من الممكن إضافة ترقيم-للعرض فقط- للسجلات في النماذج المستمرة بعد إنشائها وأصبح في النموذج المستمر عشرات السجلات ؟ مع العلم بأن النموذج المستمر يعتمد على استعلام أي أن الترقيم يأتي بعد اعداد وإدخال السجلات الكثيرة في النموذج المستمر وجزاكم الله كل الخير بحث في المنتدى عن ذلك ولم أجد شيء رابط هذا التعليق شارك More sharing options...
أفضل إجابة Moosak قام بنشر أغسطس 6, 2023 أفضل إجابة مشاركة قام بنشر أغسطس 6, 2023 كود لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم شرح الكود: يوضع في موديول منفصل .. ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form]) الكود: Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) 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]) 3 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر أغسطس 6, 2023 الكاتب مشاركة قام بنشر أغسطس 6, 2023 جزاك الله كل خير وبارك فيك هذا هو المطلوب رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 6, 2023 مشاركة قام بنشر أغسطس 6, 2023 وعليكم السلام 🙂 ومشاركة مع اخي موسى 🙂 وتجد اكثر من طريقة هنا 1 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر أغسطس 7, 2023 الكاتب مشاركة قام بنشر أغسطس 7, 2023 شكرا أخي جعفر على مرورك دائما تكون مشاركتك ذات قيمة ومفيدة رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر أغسطس 7, 2023 الكاتب مشاركة قام بنشر أغسطس 7, 2023 (معدل) وهل يمكننا أن نضع الترقيم في استعلام كما في النماذج المستمرة تم تعديل أغسطس 7, 2023 بواسطه عبدالعزيز محمد رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 7, 2023 مشاركة قام بنشر أغسطس 7, 2023 امامك اربع طرق للترقيم داخل الاستعلام myoutonum: (Select Count(1) FROM tbl1 A WHERE A.Code1 <=tbl1.Code1) ' sql myoutonum: DCount("ID";"tbl1";"ID <='" & [ID] & "'") ' نصي myoutonum: DCount("ID";"tbl1";"ID <=" & [ID]) ' رقمي myoutonum: DCount("ID";"tbl1";"ID <=#" & [ID] & "#") ' تاريخ رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر أغسطس 7, 2023 الكاتب مشاركة قام بنشر أغسطس 7, 2023 هل من الممكن توضيح أكثر خاصة للسطرين الأولين أين مكانهما وحبذا مثال لكل نوع لأانني جربت تلك الطرق ولم أصل لنتيجة ومشكور على المرور على المشاركة رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 7, 2023 مشاركة قام بنشر أغسطس 7, 2023 بارك الله فيك : صاحب الحاجة هو من يضع المثال ضع مثالك في موضوع وعنوان جديد .. لان هذا الموضوع يتكلم عن الترقيم في النموذج رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.