Shivan Rekany

اتفضل اليك هذا الكود If Format(Me.d_rec, "d") <= 15 Then Me.date_effe = DateSerial(Year(Me.d_rec), Month(Me.d_rec), 1) Else Me.date_effe = DateSerial(Year(Me.d_rec), Month(Me.d_rec) + 1, 1) End If وايضا ملفك بعد تعديل لكن لازم تدخل البيانات بواسطة النموذج مع تقدير Base de données1.rar

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

السلام عليكم ورحمة الله وبركاته اخي الكريم قدم خطوة و اعمل تخطيط ما تريد وبعدين ارفق قاعدة بياناتك واطلب ما تريد مع تقدير

اتفضل اخي اليك هذا الكود Dim X As String X = Me.name_amel & ".pdf" DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)", "D:\" & X وهذا ملفك بعد التعديل اذا تريد غير مسار الملف من قرص دي الى اي مكان تريد db1 (7).zip

انا اسمي ( شفان )

انا حسب رأيي الاكواد احسن من الماكروات كون معي للشرح الكود هذا الكود بيحدد فرم داخلي اللي باسم فرم سور اللي داخل نموذج فرم معلومات Forms!frmmaelomat!Frmsub.SetFocus وهذا الكود بيحدد السجل اللي تم بحث عنه DoCmd.RunCommand acCmdSelectRecord وهذا الكود بيحذف اللي حدد من قبل DoCmd.RunCommand acCmdDeleteRecord وهذا الكود بيخلي الكومبوبوكس خالي من البيانات اللي من قبل دخلناه لكي نبحث لريكورد Forms!frmmaelomat!Combo1 = "" وهذا الكود بيعمل ريكويري لنموذج الداخلي لكي بيظهر كل بيانات من جديد Forms!frmmaelomat!Frmsub.Requery لكن هناك اذا بتستخدم مربع نصي للبحث ما عليك الا ان تضع اسم مربع النصي بدل اسم كومبوبوكس هذا والله اعلم مع تقدير

احد اسباب عدم الرد علىمشاركتك هو عدم ارفاق قاعدة بياناتك لذا ممكن ترفق قاعدة بياناتك ؟

ممكن توضح اكتر هل تريد ان بيفتح فورم اخر وتدخل ايام التاجيل او اي هل انا فهمت بالصحيح

السلام عليكم ورحمة الله وبركاته عفوا سيدي انا غيرت تاريخ انتهاء اقامة فيصل الى 30\10\2016 والغرامات طلعت 10 وغيرت الى 29\10\2016 والنتيجة طلعت 20 وكم نقصت التاريخ زاد لكل يوم 10 هل ما كان هذا هو المطلوب او اشرح لي بالتفصيل ما تريد حتى غدا اعود لك من جديد باذن الله

اتفضل ما تريد بعد تعديل test30.rar

ارفق القاعدة اللي بها ذاك الكود لكي نشوفه ولعل وعسى ان نجد الحل مع تقدير

اتفضل ملفك بعد تعديل test40.rar

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

عفوا منك اخي محمد لكن تكدر توضح اكثر اي تكتب النماذج بدل نموذج او نموذج اخر

لهذا انا من مشاركة السابقة اضفت لك حقل اضافي باسم ID وعملت لك علاقة راس باطراف وبهذا تكدر ان توصل الى المطلوب

اتفضل مع شرح بالصور غيرنا مصدر مربع نصي الاجمالي الدرجات الى نفسه اي يعني حقل اجمالي الدرجات في جدول الطلاب وايضا غيرنا اسمه من العرب الى لاتيني لكي اتجنب من الاخطاء كما في الصورة وكتبنا هذا الكود اللي في الصورة لكل مواد بعد تحديث وخلي اشرح لك الكود forms!الطلاب!icmalialderacat = nz(me.قران) + nz(me.اسلامية) + nz(me.عربي) قلنا من نموذج ! نموذج الطلاب ! مربع نصي باسم اجمالي الدرجات = قران و اسلامية و عربي واستخدمنا مع كل ثلاث مواد حرفين ل جملة نول زيرو اي يعني اذا بيكون فارغا احتسبه كصفر مع تقدير

اسف اخي عادل انا لكپره‌ الموضوعات اللي عملت فيها مشاركه‌ نسيتك الان راح التقگ صوره‌ واشرح لك ان شاء الله تحياتي

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

السلام عليكم ورحمة الله وبركاته مشكلت بسيطة ان شاء الله شوف هذا الرابط به مشاركتي وتم الحل فيها

شكرا على التعديل !! لكن هل عملت التعديل ام عملت طريقة اخرى .. عملت زر داخل نموذج فرعي ؟ مع تقدير

تمام هناك لازم تتغير خاصية حقل catnum في جدول حسابات المتبرع1 غير مكرر اي يجب ان لا يكرر الرقم في ذلك الحقل لكن انت استخدم خاصية Calculated و بيأخذ المعلومات من حقل numbank-moh و بواسطة هذا الكود Left([numbank-moh];3) & Right([numbank-moh];6) لذا عدنا طريقة اخر وهو ان نحذف الكود الاعلاه و نغير خاصية حقل catnum الى نمبر ونغير خاصيه‌ indexed الى Yes (No Duplicates) لكي لا يتككر الرقم في الحقل وبعدين نعمل العلاقة راس باطراف مع تقدير

السلام عليكم ورحمة الله وبركاته انك ما ارفقت قاعدة بياناتك لكن انا عملت هذا اتفضل استخدمت هذا الكود لحذف في نموذج فرعي Forms!frmmaelomat!Frmsub.SetFocus DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Forms!frmmaelomat!Combo1 = "" Forms!frmmaelomat!Frmsub.Requery حذف من نموذج فرعي.rar

عني سؤال هل تريد تختار رقم من .... الى او تريد ارقام عشوائي اي تختار 1 و 5 و 132 و الخ وبانتظار ردك تحياتي

وانا ما عرفت ذلك سيدي ... اشكر كل الاعضاء المنتدى والحمدلله كلياتهم انس طيبون واعطي كلياتهم وهــذا مــن فــضــل ربــي

شكرا لك اخي الكريم بوماجد شكرا كثيرا