نجوم المشاركات

تفضل انظر الطريقة .......... moh.accdb

صدر -----> احذف البيانات في الاكسس -------> استيراد import1.rar

ممكن عملها بطريقة أخرى .... وهي أن المربع الاختيار يكون موجود للجميع ... لكن عند اختيار وظيفة معينة يتم وضع علامة صح امام جميع من يمثل تلك الوظيفة ....

الأخطاء هي كالتالي: 1- راجع تسميات الحقول نكتب me.id و لا نكتب [ta].Form![id] 2- الإشارة المرجعية يجب وضعها في آخر خلية للسطر الأول و ليس الجدول ككل 3- ملف الوورد من الأفضل يكون بإمتداد dot لكي لا يتم التعديل عليه a1.rar

السلام عليكم استاذ ازهر عبد العزيز هذه طريقة قد تنفعك لكن عيبها انها تتعامل مع رقم المريض وليس اسمه يمكن تجاوز الامر اما بوضع مربع نص لاسم المريض او ان مربع التحرير والسرد يعرض رقم المريض واسمه Root1.rar

بارك الله فيك ... نحن في الخدمة

تفضل-جرب هذه المعادلة طبقاً لنتائجك الموضوعة =IF($H8/12<3,($G8*4%)*($H8/12),IF(AND($H8/12>=3,$H8/12<6),($G8*5%)*($H8/12),IF(AND($H8/12>=6,$H8/12<7),($G8*6%)*($H8/12),IF(AND($H8/12>=7,$H8/12<8),($G8*7%)*($H8/12),IF($H8/12>=8,($G8*8%)*($H8/12),""))))) وهذه معادلة ثانية =$G8*INDEX($B$8:$B$16,MATCH($H8/12,$C$8:$C$16))*$H8/12 وهذه معادلة أخرى مختصرة =G8*LOOKUP(MAX(1,$H8/12),$C$8:$C$15,$B$8:$B$15)*$H8/12 تعجيل سداد2.xlsx

اعمل زر وضع هذا الكود في حدث عند النقر Dim Warning As String Warning = MsgBox("أنت الآن على وشك مسح البيانات فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then On Error GoTo Err_Handler Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = "" End If Next ctl Exit_Handler: Set ctl = Nothing Exit Sub Err_Handler: Resume Exit_Handler Else DoCmd.CancelEvent

هل البيانات في مربعات نص فقط أم كمبولست وغيرها ؟؟؟؟؟

يا اخي مشكلة زرار الاستيراد في مسميات حقول الاكسل بالعربي وعند الاستيراد لا يستورد بسبب اختلافها مع جدول الاكسس ... لذلك قلت لك استبدلها بهذا الكود الذي يصدر بنفس مسميات الحقول الموجودة في الاكسس .. حتى لا يتسبب في خطأ عند الاستيراد ...

تفضل اخي العزيز ملاحظة : الرسالة ستظهر بعد ادراج اسم جديد وزر امر الطباعة ايضا لن يفعل حتى يكون عدد السجلات 20 Root1010.rar

استبدل كود التصدير بهذا الكود .... DoCmd.OutputTo acOutputTable, "data", acFormatXLS, CurrentProject.Path & "\data.xls", True

سألني صديق عن اعداد ماكرو يساعده فى توفير وقت عدة جمل يحتاج لكتابتها كثيرا فى الوورد واول ما خطر ببالي أن أبدأ كما طلب فى كتابة بعض الاكود، و تطرق ذهني أيضا لاعداد نموذج يحوي الجمل المتكررة، ليختار منه و لكن بفضل الله تذكرت حل يعرفه الكثير ، و لكن ربما لا يستخدمه الكثير، فاحببت مشاركتكم به ساضيف حلان الاول فى هذه المشاركة يخص الاستبدال الالى دون تدخل منك و الثاني ساضيفه فى مشاركة تالية هنا فى نفس الموضوع يخص الاستبدال يدويا اولا الاستبدال الالي فعلى سبيل المثال مثلا بدلا من كتابة جملة "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" اريد ان اختصر كتابتها على سبيل المثال ، و عليه فاختار كلمة لا تحتاج كتبتها كثيرة و يحبذ كونها مزيج من كلمة و حرف مثلا نختار هنا هذ1 لنكتبها كمفتاح للحصول على الجملة أو أي عبارة يسهل عليك استخدامها على الا تكون عبارة يتوقع استخدامها فى الكتابة العادية. مع ملاحظة أن الحد الاقصى لعدد حروف الجملة هو 255 حرف و الخطوات كالتالي: File Options ثم اتباع الخطوات التالية: 1- Proofing 2- Auto correct 3- نكتب هنا هذ1 4- نكتب الجملة الكاملة : "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" 5-add و نكرر ذلك لما نرغب من حالات ثم 6- ok و الان فى الوورد اذا كتبت هذ1 يليها مسافة أو Enter ستستبدل اليا ب "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" و هذا طبعا يوضح لماذا اخترنا جملة عبارة غير معتادة مثل هذ1 حتي لا يتم عمل استبدالات غير مرعوب بها اذا اخترنا جملة عادية و في المشاركة التالية ساضيف الطريقة الثانية

السلام عليكم عندما تضع موضوع يجب شرح المطلوب جيدا و بالتفصيل ثانيا: عندما تضع سؤال في موضوع يجب عليك التريث و إنتظار الإجابة قبل إنشاء موضوع جديد

وعليكم السلام اخى الفاضل @محمد خالد السعيد هذه الطريقه لا تنفع فالنموذج المستمر لكن تنفع مع نموذج مفرد والله اعلى واعلم بالتوفيق اخى

للنّجاح أناس يقدّرون معناه، وللإبداع أناس يحصدونه، لذا نقدّر جهودك المضنية، فأنتَ أهل للشّكر والتّقدير، فوجب علينا تقديرك، فلك منّا كلّ الثّناء والتّقدير بارك الله فيكم و جعل عملكم فى ميزان حسناتكم الاستيراد شغال كل الشكر و التقدير لجميع القائمين على المنتدى

ضع هذا الكود قبل التحديث مع تغيير المسميات حسب المتوفر عندك

أ.لاتبخل جرب المرفق ووافنى بالنتيجة test-Copy2.rar

تفضل الملف حاهز Salary program.xls

جزاك الله خيرا اخى حسام وبارك الله فيك وفى علمك ونفع بك هذا من زوقك وحسن اخلاقك ولكن هذا الحل من اخ واستاذ ربنا يوفقك اخى حسام

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

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لذلك =IFERROR(INDEX(Sheet1!$A:$A,MATCH($A3,Sheet1!$D:$D,0)),"") test2.xlsx

يجب ان يكون المجلد fails موجود مسبقا

وعليكم السلام 🙂 انا صرت ما ارد على الاسئلة اللي مافيها شرح وافي في الموضوع ، ولا اريد ان انزل المرفق ، وبعدين يتضح لي اني ما اقدر ارد على السؤال 🙂 جعفر

بالخدمة استاذ ازهر عبد العزيز الاستعلام يجري مقارنة بين حقلين فيخرج الاسماء غير الموجدة او غير المتطابقة والناتج جعلناه مصدر لحقل اسم المريض ويمكن ان تجد الطريقة بالذهاب لانشاء استعلام اختر query wizard ثم من القائمة اختر Find Unmatch Query Wizard وعذرا للاطالة

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 علشان نعمل المجلد: D:\Testing\Data_Folder على حدث النقر على الزر ، اكتب هذا الكود : dim myFolder as string myFolder= "D:\Testing" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if myFolder= myFolder & "\Data_Folder" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if جعفر

السلام عليكم 🙂 اخي ازهر : اذا عندك المريض A في المستشفى ، ثم خرج من المستشفى ، ثم عاد مرة اخرى !! طريقتك لن تسمح له ، لأن اسمه موجود على القائمة 🙄 لذا انصحك ان تعمل حقل "تاريخ الخروج" من المستشفى ، او موجود/غير موجود ، واللي على اساسه تتم التصفية كذلك 🙂 جعفر

تمت الاجابة على هذا السؤال هنا : https://www.officena.net/ib/topic/93414-تصدير-بيانات-أكسس-إلى-جدول-في-الوورد/?do=findComment&comment=617621 جعفر

تاكد من تمكين وحدات الماكرو اخي الكريم

وفيك بارك الله اخى واستاذى عصام , اللهم آمين 😀 ع راسى من فوق بالا هبقى اعزمكم عالمشبك بقى ههههههههههههههههه

عدد الكلمات و ايضا عدد الصفحات يظهر اليا فى اسفل يسار الشاشة فى برنامج الوورد ايضا راجع هذا الموضوع

السلام عليكم استاذ Hawiii جرب هذه الدالة Root5000.rar

مشكور استاذنا احترامى

بالتوفيق ..... حياك الله ..... امين وياك

حياك الله أخي @خالد عبد الغفار كل عام وانت في صحة وسلامة في النموذج هناك مربع نص باسم countRec ..... انظر الصورة

ابحث عن المكتبة المشار اليها

جرب ووافينا بالنتيجة khaled.rar

السلام عليكم اخى الفاضل @سيد ربيع مساهمه من قسم الاكسس بموقع اوفيسنا طمعا فى الاجر والثواب ومشاركه لاخوانى واساتذتى جزاهم الله خيرا مرفق ملف اكسس بسيط اطلع عليه واخبرنا بالتفاصيل لاكمالها ان شاء الله فى اقرب وقت متاح باذن الله وربنا يوفقكم على فعل الخير بالتوفيق ان شاء الله Ahlina.mdb

السلام عليكم ورحمة الله وبركاتة واجهة مشكلة عند النقر على زر ضغط واصلاح قاعدة البيانات وعند تحويل قاعدة البيانات( الواجهة) الى accde بظهور رسالة غريبة ولا يتم بعدها اكمال العملية سواء الضغط والاصلاح أو عملية تحويل القاعدة هذه صورة الرسالة فصرت ابحث وين المشكلة مدة اسبوعين في الاكواد لكن لم اجد اي كود يوجد به خطأ صرت ابحث في الاستعلامات ونفس الشي لم اتوصل الى اي خطأ وبعد التعب في البحث فكرت ابحث عن المشكلة في الجداول في قاعدة البيانات الخلفية كانت الجداول سليمة تمام بعد كذا رحت ابحث في الجداول المرتبطة فكتشفت ان احد الحقول قد تم تغيره وهو عبارة عن حقل قائمة منسدلة يقبل اختيار عدة قيم لكن يظهر بشكل حقل مرفق هذه الصورة قبل وهذه الصورة بعد الان عرفت وين المشكلة لكن مش عارف سببها رجعت الى حلقة البحث والاستكشاف 😖صرت ابحث عن الاكواد التي لها صلة بالحقل في النماذج مباشرة ولكن كل شي كان تمام التمام صرت ابحث في الاكواد العامة في القاعدة مثل اكواد التأمين واكواد النسخ الاحتياطي الخ ...... الى ان وصلت الى كود اخفاء الجداول المرتبطة وهنا كانت المفاجأه فبعد ايقاف هذا الكود واعادة اصلاح الجدول واظهارة اختفت المشكلة وبعد اعادة الكود للعمل وتنفيذ اخفاء الجداول ترجع المشكلة مع العلم ان المشكلة ما تصير الا مع هذا الحقل في هذا الجدول فقط فتذكرت كلمة لاستاذنا @jjafferr في احد المواضيع ( لا اتذكر الموضوع بالضبط ) وهو يقول انه قرأ ان اكواد احفاء الجداول تسبب مشاكل وهذا ما حدث معي بالفعل واحببت ان اشارككم هذه المشكلة لكي يتم اخذ الحيطة والحذر وهذا هو الكود Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing

وهذه هي المشاركة اللي اشار لها اخي كاسر ، واللي يتفق معاها اخوي ابو ابراهيم و جعفر

أهلا @kaser906 للأسف ما لا يعرفه الكثير أن أكسس يستعمل خصيصة الإخفاء للإشارة إلى الجداول الموقتة! وما المشكلة في ذلك؟! المشكلة أن أكسس يقوم بحذف بيانات هذه الجداول عند الضغط والإصلاح..

في تقديري أن هذه المقطوعة من الشفرة ناقصة! وعند مراجعتي _على عجل_ للمشاركات المتعلقة بالموضوع وجدت أنها تفتقر إلى الطريقة الصحيحة للطبيق!

بارك الله فيك على التحذير ....

كلام ما يجي إلا من خبير 🙂 شكرا لك اخي كاسر على المعلومة ، والتحقيق ، والاهم انك تذكرت اني حذرتكم جعفر

نبقى تلامذة لكم استاذي الكريم ونحاول بكل ما نستطيع رد ولو جزأ يسير مما استفدناه من هذا المنتدى المميز ولو بمعلومه بسيطه

شكرا لك على المعلومة النادرة المهمة ، كتب الله اجرك ،،،

اخي خالد انظر هنا و هنا افكار احصائية ولكن يعيبها البطء عند كثرة البيانات فالدالات : dlookup , dcount , dsum لا تقارن بــــ select

السلام عليكم طبق كما في الصورة

بالنسبة للخطأ اللي يظهرلك تجده في خصائص التقرير في تفصيل ( تنسيق ) لقد وضعت أنت ( [ ) امسحه يشتغل معاك التقرير أو انسخ التقرير إلى تقرير جديد db4_4.mdb

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا