jjafferr

. لا ادري ، لهذا السبب فانا لا استعمله مطلقا في برامجي في النماذج ولكن الظاهر ان هذه المعادلة لا تتأثر في التقارير ، وعلى هذا ، فلا استعملها في التقارير ايضا. ذهبت الى أحد المؤسسات الدينية البارزة وعرضت عليهم خدماتي كمتطوع ، فأول شئ تكلموا معي عنه هو برنامج اساسي في عملهم كان معمول لهم على الاكسس 2003 ، وانهم لم يستطيعوا تشغيله على الاكسس 2007 ، وطلبوا من المبرمج ان يغير لهم البرنامج (طبعا مقابل مبلغ مالي) ، ولكن المبرمج اعتذر وقال ان هذه العملية ستأخذ من 3 الى 6 اشهر. انا عرضت عليهم ان انظر في البرنامج وقد استطيع اصلاحه ، وطبعا نظروا لي نظرة استغراب ، ولكنهم قالوا مافي ضرر من معاينتك للبرنامج. بالاضافة الى بعض التغييرات البرمجية التى اضطررت القيام بها ، كانت هذه المعادلة موجودة في اكثر من مكان في البرنامج ، وبعد حوالي الساعتين ، اشتغل البرنامج على 2007 جعفر

وعليكم السلام انا شخصيا ما استعمل: =Nz(Sum([Qty]),0) لأنها لم تشتغل في عدة برامج (مب برامجي ) ، وبالخصوص في الاكسس 2007 !! انا اعمل التالي في الجمع: Public Sub Add_qty() Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Me.Sum_Qty = 0 Me.Sum_Items = 0 For i = 1 To RC Me.Sum_Qty = Me.Sum_Qty + rst!Qty Me.Sum_Items = Me.Sum_Items + rst!total_item rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub والمرفق فيه حقلين جدد تحت حقولك الاصليين ، وفيهما نتيجة الجمع جعفر 319.KFC.mdb.zip 319.KFC.mdb.zip

يا سلام عليك أخوي ابوخليل ، وفرت عليّ الوقت بالاضافة الى ملاحظات أخوي أبوخليل ، لا تنسى ان تضع علامة صح بيم الرقمين 2 و 3 ، حتى نتائج الحقل جعفر

وعليكم السلام تفضل جعفر 320.New Microsoft Access قاعدة بيانات (6).accdb.zip

حياك الله انا عادة لا استعمل الاختصار مثل ما عملت انت ، وانما اخلي الكود يأخذ راحته في الاسطر ، لأني بعد عدة اشهر لما انظر للكود ، اريد ان اعرف ماهية الكود هذا الجزء من الكود اخذته من هذه المشاركة: http://www.officena.net/ib/topic/65589-النقر-المزدوج-لفتح-تقرير-بواسطة-نموذج-فرعي/?do=findComment&comment=427245 Msg = "This month is NOT in the table CCP" & vbCrLf & _ "Do you want to ADD A NEW RECORD ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "No values in CCP" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. rst.AddNew rst!NCcp = Me.NCcp rst!txtMonth = Me.txtMonth1 rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]") rst.Update Else ' User chose No. GoTo Exit_Sub End If . وهذا الرابط: http://www.officena.net/ib/topic/63966-طلب-تحويل-ساعات-العمل-الى-أيام/?do=findComment&comment=415801 Dim Msg, Style, Title, Response Msg = "هل انت متأكد من المواصلة" & vbCrLf & _ "Are you sure you want to continue ?" ' Define message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "رجاء التأكيد" ' Define title. Response = MsgBox(Msg, Style, Title) If Response = vbNo Then ' User chose Yes. Exit Sub End If وروابط كثيرة لذا نصيحتي لك: توسع في كتابة الكود ، وفككه الى اسطر بدل ان تستعمل سطر واحد (وللعلم أخي الاستاذ رمهان فنان في عمل كود السطر الواحد) ، ففي المستقبل ، سترى الفائدة جعفر

حيا الله بوعبدالله في الـ VBA ، ابحث عن msgbox ، ولما تطلع نتيجة البحث ، ستجد فيه مثال للذي تريده جعفر

ولا يهمك اخي عبدالرحمن ، واهلا وسهلا بك في كل مشاركاتي جعفر

مثل ما يقول المثل: الصورة بألف كلمة ، فمجموع الكلمات اللي كتبتها: 12 كلمة + 6000 كلمة (6 صور) = 6012 كلمة شرح جعفر

وعليكم السلام ما فهمت المطلوب جعفر

وعليكم السلام ورحمة الله وبركاته اليك طريقتين: الطريقة الاولى: . . . والطريقة الثانية: . . . جعفر 317.matger.accdb.zip

حياك الله

هذا الوصف واضح ، بينما الوصف السابق لم يكن تفضل نقوم بإعادة ترقيم [رقم المادة] كلما حدث حذف ، هكذا: Private Sub Form_AfterDelConfirm(Status As Integer) Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC rst.Edit rst![رقم المادة] = i rst.Update rst.MoveNext Next i End Sub جعفر 316.students.accdb.zip

ما ادري ، يمكن بالغلط تركت لك النسخة القديمة جرب هذه النسخة لوسمحت جعفر 316.students.accdb.zip

هل انت تستخدم البرنامج الجديد او النسخة السابقة مع تعديل الكود؟ رجاء استخدم البرنامج الجديد. جعفر

آسف ، الكود وضعته في الحدث الخطأ الكود الصحيح الآن على حدث بعد التحديث من اسم المادة (يعني لما تدخل مادة جديدة ، وبعد ان تخرج من حقل اسم المادة ، يعطيك الرقم): Private Sub المادة_AfterUpdate() On Error GoTo err_المادة_AfterUpdate If Me.NewRecord = True Then Me.[رقم المادة] = Nz(DMax("[رقم المادة]", "الدرجة", "[رقم الطالب]=" & Me.[رقم الطالب]), 0) + 1 End If Exit Sub err_المادة_AfterUpdate: If Err.Number = 3075 Then 'No Subject Number Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 316.students.accdb.zip

ما شاء الله عليك أخي رضا ، من وينك لك الوقت لكل هذه البرامج تفضل جعفر 316.students.accdb.zip

تفضل يا سيدي هذا الكود الذي يقوم بالعمل ، انا عملته على النقر المزدوج (مرتين) على حقل الاسم: Private Sub name_DblClick(Cancel As Integer) Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!print = -1 Then rst.Edit rst!print = 0 rst.Update End If rst.MoveNext Next i Me.[print] = -1 End Sub جعفر 315.11.accdb.zip

شوي شوي علينا أخي رضا ، بعدين بصير مثل البالونه ، انت تنفخ وتنفخ ،و انا راسي يكبر ويكبر ، وبعدين إبرة صغيرة تضربها في البالونه ، واعرف قدري الحقيقي جعفر

وعليكم السلام يعني عند اختيارك اكثر من اسم ، هل تريدهم جميعا مظللين ، ام آخر اسم تم اختياره فقط؟ جعفر

تفضل يا سيدي نعمل ماكرو يشتغل عند تشغيل البرنامج ، ويجب ان يكون اسمه AutoExec ، هذا الماكرو نطلب منه تشغيل الوحدة النمطية Login_Form: . الوحدة النمطية Login_Form ، تقرأ قيمة الحقل Shall_I_Open من الجدول tbl_Shall ، فاذا كانت قيمته =-1 (True) ، فانه سيفتح النموذج frm_Log-n ، وإلا فانه سيفتح النموذج frm_Home : . عند اغلاق النموذج frm_Login ، فانه يغير قيمة الحقل Shall_I_Open من الجدول tbl_Shall ، الى القيمه =0 (False) . جعفر 314.form.accdb.zip

قبل ان تستطيع الضغط على الزر الذي في الشريط الاصفر ، يجب عليك ان تضغط على رز Stop all Macro السبب في ظهور هذه الرسالة ، هو تشغيلك برنامج اكسس من مجلد غير موثوق به (للأكسس 2007 فما فوق) ، فالاكسس 2010 فما فما فوق ، يمكنك القيام بما قاله الاخ كرار ، ولن تظهر لك الرسالة مرة ثانية ، بينما للأكسس 2007 ، فيجب عليك ان تذهب الى اعدادات الاكسس ، وتختار مجلد موثوق به ، وثم تشغل برامج الاكسس من ذلك المجلد ، ولن تظهر لك هذه الرسالة مرة ثانية جعفر

حياك الله أخوي رمهان جعفر

وعليكم السلام انت تريد هذا النموذج ان يفتح مرة واحدة ، وبعدها لا يفتح؟ اعمل جدول خاص لهذا الغرض ، واجعل فيه خانة واحدة ، Shall_I_Open (مثلا)واجعلها نعم/لا ، 1. كلما اردت تشغيل هذا النموذج (عند تشغيل البرنامج مثلا) ، فيجب ان تقرأ القيمة من الجدول ، فاذا كانت = نعم ، فيسمح لك الكود بالدخول في النموذج ، واذا كانت = لا ، فلا يسمح لك بالدخول ويفتح لك نموذج آخر انت تختاره ، 2. عند حدث اغلاق النموذج ، غيّر القيمة الى لا (بواسطة استعلام تحديث مثلا) ، جعفر