jjafferr

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

شكرا لك استاذ هاني بالفعل عمل الدالة 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

وعليكم السلام استاذ ابوانس الاكسل يعمل كل شئ في مكان واحد ، لهذا تستطيع عمل ماتريد في مكان واحد ، ولكن الاكسس يحتوي على جداول لحفظ البيانات ، استعلامات لفرز وتصفية وحساب البيانات ، نماذج لإدخال البيانات ووالتصرف بها ، تقارير لعرض النتائج وطباعتها ، ماكرو ووحدات نمطية للتصرف في البرنامج والبيانات. وهناك عدة طرق لعمل المطلوب ، وانا هنا اضع بين يديك احد الطرق: عمل استعلام يحسب الارقام الاقل من 40 ، والارقام بين 40 و 50 ، لكل حقل: . والنتيجة . ثم استخدام نتائج هذا الاستعلام لحساب مجموع حقول الاقل من 40 ، ومجموع حقول بين 40 و 50: . والنتيجة جعفر 244.db1.accdb.zip

معليش أخي الاستاذ أبو أنس ، لوسمحت تفتح موضوع جديد لطلبك جعفر

نعم ، ممكن ، ولو ان سؤالك يختلف عن السؤال الاصلي في الواقع انت تريد انت تفتح نموذج ثابت ، ولكن معلومات الصف والشعبة هي التي تختلف ، اي انت تريد ان تعمل تصفية للنموذج. جعفر[

تفضل الرابط التالي فيه الزر الذي تريد ، ولكن لا ننصح باستعماله كزر (انا استعملته لتوضيح المثال) ، والافضل استعماله عند تشغيل الاكسس عن طريق ماكرو مثلا. http://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ جعفر

أخي ابوانس ليش تبخل علينا بشرح مفصل عن طلبك؟ سؤالك غير واضح جعفر

حياك الله قوانين المنتدى لا تسمح بدمج اكثر من سؤال في سؤال واحد فرجاء عمل سؤال آخر ، وان شاء الله تجد من يرد عليك جعفر

السلام عليكم هناك عدم وضوح في السؤال (طبعا اذا انا كنت فاهم السؤال صح ) انت تتكلم عن شيئين مختلفين ، هما 1.موقع تحويل الكلام الى نص ، 2. برنامج الاكسس. والكلام كله عن اللغات في الاكسس ، بينما يجب ان نعرف اللغات الموجودة على الموقع!! اما اذا كنت بصدد تحويل الكلام الى نص عن طريق الاكسس فقط (وعرضت الموقع لكي نفهم الموضوع) ، فانصحك ان تتابع المواضيع التالية ، والتي لها علاقة بما ذكرت انا: http://www.officena.net/ib/topic/61622-تحويل-النص-إلى-كلام-باللغة-العربية/ http://www.officena.net/ib/topic/61967-ترجمة-صوتية-_-تحويل-النص-الى-صوت/ جعفر

اها انا لم التفت الى كود فتح النموذج سابقا الغي كل الكود السابق ، استخدم هذا الكود بدلا عنه: Private Sub Combo0_AfterUpdate() DoCmd.OpenForm Me.Combo0 End Sub جعفر

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

وعليكم السلام انا استخدم الاستعلام التالي لقراءة جميع النماذج ، ماعدا النموذج 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

وعليكم السلام انا استخدم: Application.FollowHyperlink me.myFieldName جعفر

وعليكم السلام أخي الأستاذ رمهان من يركب البحر لا يخشى من الغرق البارحة كنت أريد أن اختم الموضوع بهذا البيت ، ولكن لم يكن له معنى ، ولكن بعد ردك ، أصبح له معناه الذي كنت أريده ميزة disconnect في ado هي السر ، ولكن وللأسف لا يستطيع الجميع التعامل معها وتوابعها (قفل السجلات و....) ، وإلا يصبح التعامل مع ado Recordset ليس بذات القيمة ، والأفضل أن تترك الاكسس يقوم بكل ذلك كما ذكرت انت هناك بعض الزبائن من لا يقبل العمل على الاكسس إلا إذا تم استعمال disconnected ado ، وذلك لأسباب تأمين البيانات من المتطفلين على الشبكة. انا اشتغلت على برنامج واحد بهذه الصيغة ، وفي البداية تعبت كثيرا مع علمي بـ Recordset ، ولكني اكثرت من عمل الوحدات النمطية كما أشرت سابقا ، وتسهل العمل ، ولكن جعفر وبما إنك من متابعي سفراتي ، فانا الآن في المطار وسأكون بعيد عن المنتدى