jjafferr

تفضلي أختي جربي المرفق. جعفر 256.مثال.accdb.zip

سيدي الكريم غير حدث زر الطباعة الى: Private Sub أمر9_Click() 'the print cannot take place directly with the Filter, 'so we have to open the Report in Preview mode, but hidden so the user doesn't feel DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden 'unfortunately, the sorting Order in the Report needs a bit of time to organize PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'now print the Report DoCmd.PrintOut DoCmd.Close acReport, "مساعد كشف الارصده" End Sub جعفر

هاي ما انتبهت لها جعفر

والآن الى الكنز المخزون في صفحة كود الاكسس ، والذي يحتوي على جميع اوامر الاكسس ، و VBA ، و..... افتح صفحة الكود: . إما تضغط على الايقونه الموضحة بالدائرة الحمراء في الصورة اعلاه ، او تضغط على الزر F2 في لوحة المقاتيح ، وستظهر لك هذه الشاشة: . في الشاشة التاليه: 1. اختر اي الاوامر تريد ، VBA او اكسس او ... ، فسترى انواع الاوامر المتوفرة لها في النافذة 2 ، انا اخترت VBA ، 2. ثم اختار نوع الامر الذي تريده ، انا مثلا اردت جميع اوامر التاريخ والوقت ، فسترى جميع اوامر التاريخ والوقت في النافذة 3 ، 3. اختار الامر الذي تريده وانقر عليه ، انا مثلا اخترت الامر DateAdd ، فسترى في الاسفل (4) طريقة كتابة الامر : . وتستطيع كتابة اي امر تريد في خانة البحث (Recordset مثلا) ، وستحصل على جميع الاوامر التابعة له وإخواننا الصعايدة على راسنا جعفر

حياك الله وطريقة اخرى لحل الموضوع: http://www.officena.net/ib/topic/64219-كيف-يمكننى-انشاء-وحدة-نمطية-أريد-أن-أتعلم-كل-شئ-عن-الوحدات-النمطية/?do=findComment&comment=421978 جعفر

الى هنا والحديث كله عن API ، ولكن استخدام الوحدات النمطية بشكل يومي يتعدى هذه المعلومة ، فمعظم برامجنا تحتاج الى حساب او معادلات او ... ، فهنا يأتي الوحدة النمطية ، وبالذات عند مناداتها من الاستعلام (او النموذج او التقرير)، ففي الاستعلام قد تكون محتاج الى اجراء عملية حسابية لحقل معين ، وقد تكون خطوات هذه العملية كثيرة ، ولا يمكنك عملها في سطر واحد في الاستعلام ، مثلا: الحقل items في الجدول tbl_AHF يحتوي على 3 معلومات مكررة وهي A, H, F نريد ان نقسم الحقل qty على عدد معين (يعتمد على قيمة الحقل items) ، نقسم qty على 7 ، اذا كانت قيمة items تساوي A ، نقسم qty على 6 ، اذا كانت قيمة items تساوي H ، نقسم qty على 5 ، اذا كانت قيمة items تساوي F ، هنا من الصعوبة ان نضع كود العملية كلها في الاستعلام في سطر واحد ، واذا وضعناه ، فلن نستطيع تعديله بسهولة لاحقا ، لأنه سيكون معقدا ، فالطريقة المثلى هنا ، هي عمل وحدة نمطية ، وارسال قيم الحقول items , qty اليها ، وعمل الكود بها ، واسترجاع النتائج منها ، الوحدة النمطية ستكون هكذا: Function Get_Values(i, q) 'i = items 'q = qty If i = "A" Then Get_Values = q / 7 ElseIf i = "H" Then Get_Values = q / 6 ElseIf i = "F" Then Get_Values = q / 5 End If End Function . والاستعلام يكون بهذه الطريقة: . والنتيجة: . وهنا نلاحظ من النتيجة ان تنسيقها للجهة اليسار ، مما يعني ان النتيجة نص وليست رقم ، لذا نرجع للوحدة النمطية (ودون المساس بالاستعلام) ونجري عليها التعديل المطلوب ، وبكل سهولة ، لتغيير النتيجة من نص الى رقم ، وتصبح الوحدة النمطية: Function Get_Values(i, q) As Double 'i = items 'q = qty If i = "A" Then Get_Values = q / 7 ElseIf i = "H" Then Get_Values = q / 6 ElseIf i = "F" Then Get_Values = q / 5 End If End Function . والنتيجة جعفر 258.modulesANDcommands.mdb.zip

شكرا أخي الاستاذ رمهان على هذا الشرح والان الى الجانب العملي لا تستطيع ان تنادي هذه الوحدات بالطرق التقليدية ، وكل لغة (مثل VB, VBA, C++, ...) لها طريقتها الخاصة في مناداة هذه الوحدات ، وبالنسبة الى اكسس ، فالرابط التالي يعطينا امثلة في كيفية استخدامها: http://access.mvps.org/access/index.html وملك الوحدات النمطية وبالذات للرسومات في الاكسس: http://lebans.com/ جعفر

تفضل الظاهر انك ما شفت الرابط اللي وضعته لك التقرير لا يحترم فرز الاستعلام ،والطريقة لعمل الفرز هي: . والنتيجة جعفر 257.الرصيد.accdb.zip

حياك الله أخوي عبدالرحمن

ومشاركة لأخي رمهان ، اليك الرابط التالي في شرحي لفرز التقرير: http://www.officena.net/ib/topic/63319-التسلسل-التصاعدي-لحقل-في-تقرير-اكسيس/#comment-411276 جعفر

وعليكم السلام أختي احذفي الكود من حدث التحميل ، اعملي حدث الحالي Current ، واوضعي الكود هناك (وبدون تغيير في الكود) جعفر

وعليكم السلام المشكلة عندك في الشرط في الاستعلام klm . فالشرط يأخذ قيمته من الحقل mol في النموذج moaa ، فالنموذج moaa عندما يكون مفتوحا مباشرة ، فالاستعلام يعمل ، ولكن عندما يكون : . النموذج moaa داخل النموذج mm ، فهنا تحدث المشكلة ، فالشرط في الاستعلام في هذه الحالة يجب ان يتغير الى Forms!mm!moaa!mol (هاي ماحسبنا لها حساب ) لذلك ، واذا اردنا التقرير يُفتح من كل النماذج ، فطريقتي هي: 1. نحذف الشرط من الاستعلام: . 2. عملت زر جديد في النموذج: . وكود فتح التقرير هو: Private Sub cmd_Print_Preview_entema_Click() If Len(Me.mol & "") = 0 Then MsgBox "Please Select a name first" Exit Sub Else DoCmd.OpenReport "entema", acViewPreview, , "[name]='" & Me.mol & "'" End If End Sub جعفر 255.saa.accdb.zip

وعليكم السلام الافصل ان تعمل جدول جديد ، تضع فيه حقلين: الاسم ، والقيمة للقسمة ، ثم في الاستعلام تربط الجدولين بواسطة حقل الاسم ، هكذا: الجدول: . الاستعلام: . والنتيجة: جعفر 254.Test.accdb.zip

بس بالطريقة هذه يا أستاذ علي ، أنت حكمت أن البرنامج لا يمكن إستخدامه إلا على الاكسس 2013 فما أعلى :-) جعفر

وش هالكلام أستاذنا الفاضل رمهان (طبعا بعد الحمدلله على السلامه) كنت اسرح وامرح على كيفي ، والكل كان يظن اني عبقري ، وبكود سطر منك كشفتني جعفر

تفضل جرب الاستعلام: . والنتيجة: . جعفر 253.TestMd.accdb.zip

حياك الله

تفضل . والنتيجة: . وفي الحدث الحالي على النموذج الرئيسي ، هذا الكود يقوم بالعمل: Private Sub Form_Current() 'N = Negative 'P = Positive Dim rst As DAO.Recordset Set rst = Me.تابع4.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount N = 0 P = 0 For i = 1 To RC If rst!الرصيد < 0 Then N = N + Nz(rst!الرصيد, 0) Else P = P + Nz(rst!الرصيد, 0) End If rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub جعفر 251.الرصيد.accdb.zip

وعليكم السلام التنسيق الشرطي = 3 الوان + اللون الاصلي للحقل = 4 الوان البديل اللي ممكن اقترحه هو عدم تلوين الحقل ، وانما جنب الحقل خلي حقلين صغيرين للتلوين فقط (3 الوان لكل حقل) مجرد اقتراح جعفر والطريقة الاخرى هي تخزين الوان (صور) في قاعدة البيانات ، وهذا الرابط (من صديقي القديم نلسون) به نموذج ومثال: http://www.thenelson.name/ImbededImageDemo.zip جعفر

الروابط فيها معلومات ، وبدل ما تبدأ من الصفر ، شارك في الرابطين وواصل من هناك :-)

تفضل الظاهر يا بيه انك عندك حساسية من تسمية الملفات جعفر 249.تاريخ اخر معاملة.accdb.zip

وعليكم السلام انت وضعت المعادلة في حقل النموذج ، فعليه ، فان اكسس لا يعرف بقية القيم ، لان كل قيمة تُحسب على حدة حذفت المعادلة من الحقل ، وادخاتها في استعلام النموذج: . وفي النموذج ، جعلت حقل الرصيد يأخذ قيمته من الاستعلام: . والان اصبح بالامكان الفرز: . جعفر 248.السائل_لم_يعطيني_اسم.accdb.zip

الموضوع راجع لك

بكرة الصباح ان شاء الله اعدل في الوحدة النمطية ، واشوف النتائج جعفر

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