اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

jjafferr

أوفيسنا
  • Posts

    9998
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    406

كل منشورات العضو jjafferr

  1. اكتب المعادلة هنا لوسمحت ، او ارفق ملف الاكسل جعفر طريقة رفعك للملف صحيحة
  2. حياك الله أخي الاستاذ هاني . ممكن تنورنا بهذه المعلومة ، بارفاق ملف الاكسل لوسمحت جعفر
  3. شكرا على مشاركتك استاذ علي ، فانت تشاركني الرأي أخي أبوعارف: . اذا تسمح لي اوضح لك كيف وصل الرقم 250.904998 الى ما اشرت عليه (كما هو فهمي لتوضيح الاخ هاني): الرقم الاصلي 250.904998 ، تقريبه الى 3 خانات ، فيصبح 250.905 الان الرقم المراد تقريبه هو 250.905 ، تقريبه خانتين ، فيصبح 250.91 جعفر
  4. وعليكم السلام أخي ابوعارف . ولكن الاخ هاني قال: . وهذا لا يتماشى مع مفهومك اللي انا اعتقده هو ، ان الاخ هاني يريد ان يبدأ التقريب من 4 خانات (مثلا) ، ثم يستخدم نتيجة التقريب ، ويقربه الى 3 خانات ، ثم يستخدم التقريب ، ويقربه الى خانتين !! نعم ، يمكنه عمل ما يشاء في برنامجه (خصوصا اننا لا نعرف ماهية برنامجه) جعفر
  5. وعليكم السلام الطريقة التي انا عملتها هي كالتالي: التقرير ، عملت الوجهين على نفس الورقة ، الواجهة على الجهة اليسار ، والخلفية على الجهه اليمنى: . والصورة النهائية هكذا: . وعند الانتهاء من طباعة جميع البطاقات ، وتقطيع كل بطاقة على حدة (كما في الصورة اعلاه) ، ثم تقوم بثني البطاقة ، بحيث تصبح البطاقة لها واجهة وخلفية ، ثم تقوم بوضعها في الكيس البلاستيك ، وتغلفها حراريا جعفر
  6. أخي هاني الظاهر ان مفهومك لتقريب الارقام غير مفهومنا ، ومفهومك للدالة 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 جعفر
  7. اعتذر منك أخي ، تشابهت اسماء المكتبات عليّ المكتبة هي Microsoft Office XX.X Access Database Engine يمكنك النظر في الرابط التالي ، المواضيع الثلاث الاخيرة فيها الزبدة http://www.officena.net/ib/topic/63037-رسالة-خطأ-بعد-اذنكم/?do=findComment&comment=409612 جعفر
  8. السلام عليكم انا عملت وحدة نمطية للقيام بطلبك ، وتنادي الوحدة النمطية بارسال الرقم ، وعدد الخانات العشرية المطلوبة ، مثال لعمل خانتين عشريات: . والنتيجة: . مثال لعمل 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
  9. وعليكم السلام اعمل زر في نموذج لفتح التقرير ، واكتب الكود التالي على الزر Private Sub cmd_OpenReport_Click() DoCmd.OpenReport "balance_for", acViewPreview SendKeys "{End}", True End Sub جعفر
  10. وعليكم السلام اذا عندك Microsoft Access 14 Object Library فهو يشمل DAO جعفر
  11. أخي حسين في نموذجك ، غيرت اسم زر "فتح الملف" الى 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
  12. وعليكم السلام استاذ ابوانس الاكسل يعمل كل شئ في مكان واحد ، لهذا تستطيع عمل ماتريد في مكان واحد ، ولكن الاكسس يحتوي على جداول لحفظ البيانات ، استعلامات لفرز وتصفية وحساب البيانات ، نماذج لإدخال البيانات ووالتصرف بها ، تقارير لعرض النتائج وطباعتها ، ماكرو ووحدات نمطية للتصرف في البرنامج والبيانات. وهناك عدة طرق لعمل المطلوب ، وانا هنا اضع بين يديك احد الطرق: عمل استعلام يحسب الارقام الاقل من 40 ، والارقام بين 40 و 50 ، لكل حقل: . والنتيجة . ثم استخدام نتائج هذا الاستعلام لحساب مجموع حقول الاقل من 40 ، ومجموع حقول بين 40 و 50: . والنتيجة جعفر 244.db1.accdb.zip
  13. معليش أخي الاستاذ أبو أنس ، لوسمحت تفتح موضوع جديد لطلبك جعفر
  14. نعم ، ممكن ، ولو ان سؤالك يختلف عن السؤال الاصلي في الواقع انت تريد انت تفتح نموذج ثابت ، ولكن معلومات الصف والشعبة هي التي تختلف ، اي انت تريد ان تعمل تصفية للنموذج. جعفر[
  15. تفضل الرابط التالي فيه الزر الذي تريد ، ولكن لا ننصح باستعماله كزر (انا استعملته لتوضيح المثال) ، والافضل استعماله عند تشغيل الاكسس عن طريق ماكرو مثلا. http://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ جعفر
  16. أخي ابوانس ليش تبخل علينا بشرح مفصل عن طلبك؟ سؤالك غير واضح جعفر
  17. حياك الله قوانين المنتدى لا تسمح بدمج اكثر من سؤال في سؤال واحد فرجاء عمل سؤال آخر ، وان شاء الله تجد من يرد عليك جعفر
  18. السلام عليكم هناك عدم وضوح في السؤال (طبعا اذا انا كنت فاهم السؤال صح ) انت تتكلم عن شيئين مختلفين ، هما 1.موقع تحويل الكلام الى نص ، 2. برنامج الاكسس. والكلام كله عن اللغات في الاكسس ، بينما يجب ان نعرف اللغات الموجودة على الموقع!! اما اذا كنت بصدد تحويل الكلام الى نص عن طريق الاكسس فقط (وعرضت الموقع لكي نفهم الموضوع) ، فانصحك ان تتابع المواضيع التالية ، والتي لها علاقة بما ذكرت انا: http://www.officena.net/ib/topic/61622-تحويل-النص-إلى-كلام-باللغة-العربية/ http://www.officena.net/ib/topic/61967-ترجمة-صوتية-_-تحويل-النص-الى-صوت/ جعفر
  19. اها انا لم التفت الى كود فتح النموذج سابقا الغي كل الكود السابق ، استخدم هذا الكود بدلا عنه: Private Sub Combo0_AfterUpdate() DoCmd.OpenForm Me.Combo0 End Sub جعفر
  20. طريقة عمل نماذج اكسس هي: عند فتح النموذج ، فانه يأخذ بياناته من الجداول / استعلامات ، ولكن ، وبينما النموذج يكون مفتوحا ، وقمت بتغيير البيانات في الجدول ، فمعلومات النموذج لن تتغير تلقائيا ، الا اذا طلبت من النموذج ذلك ، او بان تخرج من النموذج وتدخل فيه مرة اخرى ، فيأتي بالمعلومات الجديده. واذا فهمي خطأ لسؤالك ، رجاء التوضيح اكثر. جعفر
  21. وعليكم السلام انا استخدم الاستعلام التالي لقراءة جميع النماذج ، ماعدا النموذج form0 (وطبعا تستطيع تضبيطه لقراءة اسماء الجداول او الاستعلامات او التقارير او ...) : SELECT msysObjects.Name FROM msysObjects WHERE (((msysObjects.Name)<>'Form0') AND ((msysObjects.Type)=-32768) AND ((Left([Name],2)) Not In ("~s","ms","f_"))) ORDER BY msysObjects.Name; جعفر 242.db1.mdb.zip
  22. وعليكم السلام انا استخدم: Application.FollowHyperlink me.myFieldName جعفر
  23. وعليكم السلام أخي الأستاذ رمهان من يركب البحر لا يخشى من الغرق البارحة كنت أريد أن اختم الموضوع بهذا البيت ، ولكن لم يكن له معنى ، ولكن بعد ردك ، أصبح له معناه الذي كنت أريده ميزة disconnect في ado هي السر ، ولكن وللأسف لا يستطيع الجميع التعامل معها وتوابعها (قفل السجلات و....) ، وإلا يصبح التعامل مع ado Recordset ليس بذات القيمة ، والأفضل أن تترك الاكسس يقوم بكل ذلك كما ذكرت انت هناك بعض الزبائن من لا يقبل العمل على الاكسس إلا إذا تم استعمال disconnected ado ، وذلك لأسباب تأمين البيانات من المتطفلين على الشبكة. انا اشتغلت على برنامج واحد بهذه الصيغة ، وفي البداية تعبت كثيرا مع علمي بـ Recordset ، ولكني اكثرت من عمل الوحدات النمطية كما أشرت سابقا ، وتسهل العمل ، ولكن جعفر وبما إنك من متابعي سفراتي ، فانا الآن في المطار وسأكون بعيد عن المنتدى
  24. السلام عليكم ورحمة الله وبركاته أخي نكرو مانسر اول شئ يجب ان تفعله عند استخدام Recordset لتعبئة البيانات الجداول ، هو حذف العلاقات بين الجداول ، حيث انك ستتحكم بجميع الحقول والسجلات برمجيا ، وبدون اخطاء (انت تتكلم عن برمجة قواعد البيانات / اكسس في اعلى درجاتها ، فلا مجال لأخطاء المبتدئين هنا ) . 1. هذا غير صحيح ، فالبيانات في النموذج الفرعي مفصولة ، ولا يتم حفظ البيانات (سواء المعدلة او السجلات الجديدة) إلا اذا ضغطت على الزر Save ، واذا تتبعت الكود ، سترى بان الكود لا يكتب رقم العميل ، اذا كان هناك تعديل في البيانات ، ولكن الكود يكتب جميع البيانات ، ومنها رقم العميل ، اذا اضفت سجلات جديدة. 2. البرنامج بحاجة الى كتابة رقم العميل (او امر التوريد) في الجدول ، فانت حر في طريقة اعطائه الرقم كما تحب (ولا يجب ان يكون رقم العميل من النموذج الرئيسي) ، فتستطيع ان تجعل له حقل في النموذج الفرعي وتملئه كما تملئ بقية الحقول ، 3. انت لا تحتاج الى علاقة بين النموذج الرئيسي والنموذج الفرعي ، فانت الذي تحدد اي بيانات / سجلات للنموذج الرئيسي ، واي بيانات للنموذج الفرعي ، نحن بحاجة الى ربط النموذج الفرعي بالنموذج الرئيسي بحقل او اكثر ، فقط لتصفية السجلات في النموذج الفرعي على اساس بيانات النموذج الرئيسي ، بينما في حالتك ، فانت لا تصفي البيانات ، وانما تضيفها على كيفك لهذا ، فالمرفق Unbound متكامل أخي الاستاذ رمهان 4. الميزة قي التعامل مع السجلات / البيانات بطريقة Recordset ومكتبات ado doa : يجعل البرنامج خفيف ، حيث لا تاخذ من الجداول إلا السجل المطلوب ، بدل ان تأتي بالجدول كاملا الى النموذج ، ثم تصفيه في النموذج (باستخدام Form Filter مثلا) ، لا يعمل ضغط على القاعدة الخلفية (الجداول) ، وبهذه الطريقة تكسر حاجز الـ 15-25 شخص الذين يستطيعون استخدام البرنامج قبل ان يبدأ البرنامج بالبطئ ، فبهذه الطريقة لا حدود لعدد الاشخاص الذين يستطيعون استخدام البرنامج في شبكة ، اذا اضفت على الجداول حقلين ، حقل للرقم التلقائي ، وحقل للتاريخ (لاحظ جميع برامجي ، فانا اضيف هذين الحقلين في كل جدول) ، فيمكن ان تغير خلفية الجداول بدل عن الاكسس ، تستطيع ان تستعمل SQL server او My SQL ، او خلفية اخرى ، وبدون اي تغييرات تُذكر ، اذا تعلمت التعامل مع السجلات بهذه الطريقة ، فانت قريب جدا من برمجة ado.NET 5. وانا اضيف صوتي لصوتك ، لمعرفة السبب جعفر
  25. تفضل ، استطعت ان اجعل البرنامج صغير ، بإزالت الصورة الخلفية fin_New.zip
×
×
  • اضف...

Important Information