jjafferr

وعليكم السلام المشكلة عندك في الشرط في الاستعلام 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 في الاكسل تختلف عن الاكسس واذا اردنا عملها في الاكسس ، فستكون كما شرحت: جعفر

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

حياك الله أخي الاستاذ هاني . ممكن تنورنا بهذه المعلومة ، بارفاق ملف الاكسل لوسمحت جعفر

شكرا على مشاركتك استاذ علي ، فانت تشاركني الرأي أخي أبوعارف: . اذا تسمح لي اوضح لك كيف وصل الرقم 250.904998 الى ما اشرت عليه (كما هو فهمي لتوضيح الاخ هاني): الرقم الاصلي 250.904998 ، تقريبه الى 3 خانات ، فيصبح 250.905 الان الرقم المراد تقريبه هو 250.905 ، تقريبه خانتين ، فيصبح 250.91 جعفر

وعليكم السلام أخي ابوعارف . ولكن الاخ هاني قال: . وهذا لا يتماشى مع مفهومك اللي انا اعتقده هو ، ان الاخ هاني يريد ان يبدأ التقريب من 4 خانات (مثلا) ، ثم يستخدم نتيجة التقريب ، ويقربه الى 3 خانات ، ثم يستخدم التقريب ، ويقربه الى خانتين !! نعم ، يمكنه عمل ما يشاء في برنامجه (خصوصا اننا لا نعرف ماهية برنامجه) جعفر

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

أخي هاني الظاهر ان مفهومك لتقريب الارقام غير مفهومنا ، ومفهومك للدالة Round غير دقيق ايضا انظر الى الصورة المرفقة ، وفيها الرقم الكامل بدون تقريب ، ثم تقريب لثلاث خانات ، ثم تقريب لـخانتين ، ثم لخانة: . لما تريد ان تقرّب رقم ، فيجب عليك النظر في الرقم الاصلي ، ثم تقرّبه ، فمثلا ، الرقم الاصلي هو 323.2149 ، التقريب الى 3 خانات: ننظر للرقم الرابع على اليمين (9) ، اذا كان 5 فأكبر (نعم في حالتنا) ، يضاف واحد الى الخانة 3 (4+1) ، فيصبح الرقم المقرب لثلاث خانات هو: 323.215 التقريب الى خانتين: ننظر للرقم الثالث على اليمين (4) ، اذا كان 5 فأكبر (لا في حالتنا) ، فلا يضاف واحد الى الخانة 2 (1+0) ، فيصبح الرقم المقرب لخانتين هو: 323.21 التقريب الى خانه: ننظر للرقم الثاني على اليمين (1) ، اذا كان 5 فأكبر (لا في حالتنا) ، فلا يضاف واحد الى الخانة 1 (2+0) ، فيصبح الرقم المقرب لخانتين هو: 323.2 والرابط التالي من مايكروسوفت يشرح الدالة ، كما ذكرت اعلاه: https://support.office.com/ar-sa/article/الدالة-ROUND-c018c5d8-40fb-4053-90b1-b3e7f61a213c جعفر

اعتذر منك أخي ، تشابهت اسماء المكتبات عليّ المكتبة هي Microsoft Office XX.X Access Database Engine يمكنك النظر في الرابط التالي ، المواضيع الثلاث الاخيرة فيها الزبدة http://www.officena.net/ib/topic/63037-رسالة-خطأ-بعد-اذنكم/?do=findComment&comment=409612 جعفر

السلام عليكم انا عملت وحدة نمطية للقيام بطلبك ، وتنادي الوحدة النمطية بارسال الرقم ، وعدد الخانات العشرية المطلوبة ، مثال لعمل خانتين عشريات: . والنتيجة: . مثال لعمل 3 خانات عشريات: . والنتيجة: . وهذه هي الوحدة النمطية: Option Compare Database Function Round_me(N As Double, R) 'N = the number 'R = how many decimal places required 'give an inital answer Round_me = N 'get the decimals Remaining = N - Int(N) 'is the decimal greater than zero If Remaining > 0 Then M1 = Mid(Remaining, R + 1 + 2, 1) If M1 = "" Then Exit Function 'it's a Nothing that got through, get it If M1 > 4 Then 'the last digit of the decimal is 5 or greater, so we need to add a 1 to the end Round_me = Int(N) + Mid(Remaining, 1, R + 2) + (1 / (10 ^ R)) Else 'No need to add anything to the decimal Round_me = Int(N) + Mid(Remaining, 1, R + 2) End If End If End Function جعفر 240.مرتبات 2016 - Copy.accdb.zip

وعليكم السلام اعمل زر في نموذج لفتح التقرير ، واكتب الكود التالي على الزر Private Sub cmd_OpenReport_Click() DoCmd.OpenReport "balance_for", acViewPreview SendKeys "{End}", True End Sub جعفر

وعليكم السلام اذا عندك Microsoft Access 14 Object Library فهو يشمل DAO جعفر

أخي حسين في نموذجك ، غيرت اسم زر "فتح الملف" الى cmd_Open_File ، واسم الحقل الذي به اسم الملف والمسار هو ImagePath ، عليه ، يصبح كود فتح الملف: Private Sub cmd_Open_file_Click() Application.FollowHyperlink Chr(34) & Me.ImagePath & Chr(34) End Sub ومعنى كلمة chr(34) هو علامة " ، واضطررت الى وضعها ، لأني لاحظت وجود مسافات بين كلمات المسار جعفر 241.Photo Safe.accdb.zip