نجوم المشاركات

وعليكم السلام ورحمة الله تعالى وبركاته طلبك غير واضح بالنسبة لي لاكن ربما بما ان عمود B يتضمن دائما كلمة ( رقم القائمة) في اخر صف يمكنك الاعتماد عليها لترقيم الصفحات في عمود C Sub Sequence() Dim k As Long With Sheets("الجدول") k = 1 For Réf = 4 To .Range("B" & .Rows.Count).End(xlUp).Row If .Range("B" & Réf) = "رقم القائمة" Then .Range("C" & Réf) = k k = k + 1 End If Next Réf End With End Sub ترقيم الورقة (1).xlsm

جرب هذا .... Sub CloseAllFormsAndReportsExceptOne() Dim obj As AccessObject For Each obj In CurrentProject.AllForms If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then DoCmd.Close acForm, obj.Name End If Next obj For Each obj In CurrentProject.AllReports If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then DoCmd.Close acReport, obj.Name End If Next obj End Sub

حيا الله اخوي ابوخليل 🙂 نعم ملاحظتي انه دمج قيمتين في حقل واحد ، معرف الطالب - والصف ، لهذا السبب اقترحت عليه ان يفصلهم ويكون لكل واحد منهم حقل مستقل ، اذا الشباب نجحوا جميعا ، فسهل تنقل الصف كله مرة واحدة ، ولكن اذا عندك راسب ، وعندك حقل ناجح/راسب ، وحقل قيمة معرف الطالب ، وحقل الصف ، فببساطة تنقلهم 🙂 بس بما ان اخوي ابوخليل توسط لك ، فاليك الحل بطريقتك : الجدول: . استعلام لتحديث جميع الصفوف ، للناجحين فقط : . والشرح: ناخذ مثلا الرقم 11-002 لا تنسى انك تتعامل مع حقل نص اول حرفين من القيمة (يبدأ باول الحقل ، ويأخذ حرفين) Mid([Class_ID],1,2) وبما ان القيمة نص ، فيجب تحويلها الى رقم Val(Mid([Class_ID],1,2)) ثم نضيف اليها واحد (للانتقال الى الصف التالي) +Val(1) بهذه الطريقة يتم تحويل الرقم 11 الى 12 وتحويل الرقم 13 الى 14 ، وهكذا ثم نريد نستخرج معرّف الطالب (يبدأ من الحرف الثالث ، ويأخذ 4 قيم) Mid([Class_ID],3,4) ولما ندمج جميع الخطوات اعلاه ، تصبح لدينا قيمة التحديث Val(Mid([Class_ID],1,2))+Val(1) & Mid([Class_ID],3,4) 1582.update_student_next_class.accdb.zip

تفضل هذا الترقيم Dim i As Integer, x As Integer For i = 1 To 10 For x = 1 To 5 Debug.Print "(" & Format(i, "0#") & ")" & Format(x, "0##") Next x Next i النتيجة بدون الاقواس Dim i As Integer, x As Integer For i = 1 To 10 For x = 1 To 5 Debug.Print Format(i, "0#") & "-" & Format(x, "0##") Next x Next i End Sub النتيجة

السبب لأن تعديل في الجدول قبلها مسافة " تعديل"

في احد برامجي عملت نفس طريقتك ، "برواز" نموذج فرعي ، واستعملت النماذج الفرعية داخله (بدلا عن عمل تبويب لكل نموذج فرعي) ، في الواقع العمل كان اكثر صعوبة واخذ جهد اكبر في العمل ، لأنه يجب ان نشير "للبرواز" في كل خطوة ، وفي نفس الوقت نشير لإسم النموذج الفرعي لكل عملية خاصة به ، وبدلا عن التبويب للإنتقال من نموذج فرعي لآخر ، استعمل Navigation buttons ، والتي لا يمكن ربطها/لصقها مع النموذج ، سواء الرئيسي او الفرعي !! ولكن ، البرنامج لا يزال الافضل ولا يوجد له مثيل في المؤسسات 🙂

وهل جربت مثالي؟ للعلم ، انت لم تخبرنا الى الآن كيف تريد عمل النموذج الفرعي ، فنحن هنا اعطيناك الكود الذي يقوم بالعمل ، وانت تضع الكود الصحيح على الزر الصحيح على الحدث الصحيح

جرب المرفق <<<<< Database32.accdb

هل جربت مثالي اخي الكريم

جرب المرفق ..... Database32.accdb

تفضل 🙂 اضف النموذج الفرعي ، ثم قم بالتعديل على البيانات ، ثم انقر على زر تعديل ، وحاول تعديل البيانات. كود عدم السماح بتعديل بيانات النموذج الفرعي: Private Sub x22_Click() Me.frm.Form.AllowEdits = False End Sub 1583.Database32.accdb True يعني اسمح (بالتعديل ، او الاضافة او ... ) False يعني لا تسمح (بالتعديل ، او الاضافة او ... )

جرب الزر الاول للتعديل .... frm.SourceObject = "frm_1" frm.Form.AllowEdits = True وهكذا للبقية ..............

عملت لك التعديل في مشاركتي السابقة 🙂

وعليكم السلام 🙂 لما تحدد النموذج الفرعي بالطريقة : me.frm.SourceObject = "frm3" . تستطيع استعمال التالي للتحكم فيه: me.frm.form.AllowEdits = true 'اسمح بتغيير البيانات me.frm.form.AllowDeletions = true 'اسمح بحذف السجل me.frm.form.AllowAdditions = true 'اسمح بإضافة سجلات جديدة

أخي أرجو مراجعة هذه النقاط : الثبات على ترتيب البنود تاريخ استحقاق المعاش مرة تقول دالة لجمع C2 , C3 ومرة تخليه إدخال يدوي لم تضع مثال على مدة افتراضية (3 سنوات او المدة المكملة ايهما افل) اجمالى مدد الاشتراك (بعد جبر كسر الشهر) هل تريدها أن تتجاوز الأشهر 11 شهر أم تضاف إلى السنة التاريخ الأفضل أن يكون في خلية واحدة لسهولة الكتابة وسهولة التعامل مع دوال التاريخ ، للجمع بين ما تريد وبين الأفضل قمت بتنسيقها بطريقة توحي بأن كل جز في خلية أرجو المراجعة بشكل دقيق واعتماد ما تريد بشكل نهائي مدة الخدمة حسم وإضافة (1) (2).xlsx

تحسب من إجمالي الدرجة =((إجمالي درجة الموظف)/84)*100 مثال موظف حصل على 71 =(71/84)*100 النتيجة 84.52

السلام عليكم اخي الفاضل محمد اود ان اشكرك على تعب حضرتك معي انا توصلت والحمد لله لحل المشكلة التي كانت تواجهني بأضافة اسم العميل للملف حبيت ان اعرف حضرتك جزاك الله كل خير على تعبك معي

أحتاج بعض الإيضاحات

جزاك الله خيرا

السلام عليكم مشاركة مع احبتي اسهل وآمن طريقة ، ومن خلالها يمكننا المحافظة على بيانات العميل فترة التجربة نتبع الخطوات التالية : 1- تقسيم قاعدة البيانات . 2- في قسم الواجهات نضع الكود المناسب في محرر الفيجوال لتحديد فترة التجربة . 3- نقوم بتحويل الواجهات الى Accde او mde 4- نرسلها للعميل عند انتهاء الفترة التجريبية سيظهر تنبيه للعميل ويقف البرنامج عن العمل ويطالبه بشراء نسخة كاملة حينها نقوم بارسال نسخة من الواجهات اليه .. ( بعد تعطيل كود الفترة ) بكذا نكون حافظنا على حقوقنا وعلى حقوق العميل وذلك بالابقاء على بياناته خلال التجربة

السلام عليكم 🙂 او عمل نموذج جدولي ، للنموذج الرئيسي والفرعي: 1579.DataSheet_Form_inside_DS_Form.accdb.zip

السلام عليكم أتمنى من القائمين على هذا المنتدى المبارك إضافة بنود جديد على قواعد المشاركة في الموقع ومنها : 1- عدم طرح سؤال جديد أو طلب جديد من خلال الردود 2- عدم رفع ملفات تحتوي على معلومات لأشخاص حقيقيين خاصة البند الأول أحدهم يسأل في بداية الموضوع عن معادلة جمع A1 مع B1 وفي نهاية الموضع تكون سويت له برنامج محاسبي. أعان الله الجميع ووفقهم أرجو عدم الزعل فنحن إخوان والصراحة بيننا مطلوبة والعتب على قدر المحبة

وعليكم السلام 🙂 الطريقة الصحيحة هي ، بإعطاء الطالب رقم لا يتغير (حقل رقم الطالب) ، وحقل آخر للصف ، وكلما انتقل الطالب الى الصف التالي ، يمكنك اضافة رقم 1 الى الصف الحالي 🙂 خذها قاعدة: في قواعد البيانات ، وبما ان السرعة مطلوبة ، فإجعل لكل معلومة حقل خاص بها ، وهذا سيسهل عليك ربط الجداول بطريقة مباشرة كذلك.

ياهلا الاخ شايب يقول ان بعض الاستعلامات لا تقبل اضافة معيار وتظهر رسالة خطأ مثلا لو اردنا ان ان نعرض بيانات في نموذج او تقرير مصدر هذه البيانات استعلام ونرغب في عرض البيانات الخاصة بالناجحين فقط فاننا نضع المعيار في الاستعلام على سبيل المثال Forms![frm_1]![tx] اسم النموذج والحقل الذي سيتم اعتباره المعيار وفقا لما نكتبة ناجح او راسب هنا بعض الاستعلام تظهر رسالة محرك قاعدة البيانات microsoft.jet لايتعرف على Forms![frm_1]![tx] كاسم حقل اوتعبير صالح هذه الرسالة تظهر عادة في الاستعلامات الجدولية ولحل المشكلة نحتاج الى اضافة المعلامات بمعنى اننا نحتاج الى تعريف الحقل المحتوي على المعيار ونوعه اخيرا الاخ العزيز شايب يعتذر مقدما ان لم يستطع ايصال المعلومة بشكل بسيط وواضح ويترك الامر للاساتذة والخبراء الكلام

تفضل أخي . ' بمديول عام نلصق Public Function Baba(strReportName As String) DoCmd.SelectObject acReport, strReportName, True DoCmd.PrintOut acPages, 1, 1 End Function ' ثم على زر الطباعة بالفورم Private Sub CmdPrint_Click() Baba(Report_Name) End Sub

ممكن توضيح اكثر اخي العزيز .. لانك كررت سؤالك عدة مرات ..وعدم الاجابة من الاخوة يعني عدم وجود فهم وافي لسؤالك مالذي تقصده بأول صفحة ؟

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته توجد مشكلة في الإكسل عند ترتيب الأسماء العربية أبجدي فتجد أن الإكسل يفرق بين الالف حسب وضع الهمزة وكثير من الحروف وقد يتغلب البعض على هذه المشكلة بكتابة الأسماء دون همزات واحيانا لا يضع مسافة بين الكلمات وقد تم عمل كود يقوم بكل ذلك عنك ويتم عمل عمود به نص الأسم بعد تعديله للترتيب والله الموفق إلى كل خير sort.rar

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