محمود أبوسيف قام بنشر ديسمبر 4, 2014 مشاركة قام بنشر ديسمبر 4, 2014 (معدل) كيفية عمل ترقيم تلقائي لنموذج فرعي خاص بإدخال درجات التلاميذ . حين أن هذا النموذج ليس له جدول ID أو جدول ترقيم . فكيف يتم ذلك للدخول إلي النموذج المقصود ( ok ثم نصف العام ثم إدخال الإنجاز نصف العام ) لتجهيز الانجاز 2015 .rar تم تعديل ديسمبر 4, 2014 بواسطه Mahmoud330 رابط هذا التعليق شارك More sharing options...
عبدالرحمن هاشم قام بنشر ديسمبر 4, 2014 مشاركة قام بنشر ديسمبر 4, 2014 اخي الفاضل أعذرني لم أفهم طبيعة مرفقك لربما بعض الجداول قمت بتقسيمها ولم ترفق مع برنامجك عموما أقترح أن تجعل الترقيم في استعلام النموذج باستخدام هذا المعيار.. أتمنى تفي بالغرض New_Num: Format(DCount("stu_code";"amal_alsanaنصف";"stu_code <=" & [stu_code]);"0") لتجهيز الانجاز 2015 .rar رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر ديسمبر 4, 2014 الكاتب مشاركة قام بنشر ديسمبر 4, 2014 أخي الكريم عبدالرحمن هاشم أنا أيضاً لم أفهم ماذا تريد أن توضح . ولكن عموماً أنا قمت بإظهار جميع الجداول والإستعلامات والنماذج المخفية . ويتبقي لك التعديل لتجهيز الانجاز 2015 -2.rar رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 4, 2014 مشاركة قام بنشر ديسمبر 4, 2014 استخدم الدالة التالية اكتب مصدر الحقل المراد الترقيم فيه كما يلي =RowNum([Forms]![Data]) حيث data هو اسم النموذج ضع الدالة التالية في موديول جديد 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([Forms]![theNameoftheForm]) 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 4 رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر ديسمبر 4, 2014 الكاتب مشاركة قام بنشر ديسمبر 4, 2014 أستاذ علي جزاك الله كل خير . ولكن كل ما أقوم بتركيب الكود والدالة لا تظبط معي فرجاءاً ممكن حضرتك تقوم بإجراء التعديل اللازم وإرفاقة مرة أخري رابط هذا التعليق شارك More sharing options...
أبو ليمونه قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 استخدم الدالة التالية اكتب مصدر الحقل المراد الترقيم فيه كما يلي =RowNum([Forms]![Data]) حيث data هو اسم النموذج ضع الدالة التالية في موديول جديد 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([Forms]![theNameoftheForm]) 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 اخي علي شكرا لك على الكود ... انا اعاني نفس المشكلة ... الكود الذي ارفقته يعمل بسلاسلة مع النماذج ولكن لا يعمل مع النماذج الفرعية في عند الفتح النموذج الاساسي الذي يحتوي على نموذج فرعي تكون النتيجة هكذا #Type! هل من حل لهذه المشكلة ؟؟؟ وشكرا لكم ،،، رابط هذا التعليق شارك More sharing options...
أبو ليمونه قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 (معدل) الحل هو بوضع مصدر الحقل : =rownum([Form]) تم تعديل ديسمبر 14, 2014 بواسطه أبو ليمونه رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر ديسمبر 15, 2014 الكاتب مشاركة قام بنشر ديسمبر 15, 2014 الأخ الكريم أبو ليمونه شكرأ لإهتمامك ولكن الكود لم يقم بالمطلوب ويظهر #Name? فهل من الممكن لحضرتك أن تقوم بإجراء التعديل اللازم وإرفاقة مرة أخري . رابط هذا التعليق شارك More sharing options...
أبو ليمونه قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 هلا فيك عند وضع الكود السابق في مربع النص يجب ان تنشأ مودل جديد وتضع فيه الكود التالي: Option Compare Database 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 رابط هذا التعليق شارك More sharing options...
أبو ليمونه قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 هلا فيك ... القاعدة المرفقة مدرج فيها كم هائل من الاكواد منها حماية ومنها اخفاء ... يجب تحرير القاعدة من الاكواد المدرجة وتحويلها الى صيغة (.accdb) وسوف يعمل الكود معاك... مجرد تخمين ... لانني مبتدأ مثلك .. تحياتي لك رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر ديسمبر 15, 2014 الكاتب مشاركة قام بنشر ديسمبر 15, 2014 هلا فيك ... القاعدة المرفقة مدرج فيها كم هائل من الاكواد منها حماية ومنها اخفاء ... يجب تحرير القاعدة من الاكواد المدرجة وتحويلها الى صيغة (.accdb) وسوف يعمل الكود معاك... مجرد تخمين ... لانني مبتدأ مثلك .. تحياتي لك شكراً لك أخي أبو ليمونه . وجاري المحاولة رابط هذا التعليق شارك More sharing options...
alisadeg قام بنشر نوفمبر 16, 2022 مشاركة قام بنشر نوفمبر 16, 2022 بارك الله فيك يأخ على وياليمونة جزاكم الله خيرا وزادكم من علمه رابط هذا التعليق شارك 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.