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

تفضل انظر الطريقة .......... 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 موجود مسبقا

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

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 علشان نعمل المجلد: 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 في المستشفى ، ثم خرج من المستشفى ، ثم عاد مرة اخرى !! طريقتك لن تسمح له ، لأن اسمه موجود على القائمة 🙄 لذا انصحك ان تعمل حقل "تاريخ الخروج" من المستشفى ، او موجود/غير موجود ، واللي على اساسه تتم التصفية كذلك 🙂 جعفر

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

بارك الله فيك أستاذنا أحمد الفلاحجى والحمد لله أنا بخير ونسأل الله أن يرفع عنا جميعا البلاء والوباء وسيئ الأسقام ملحوظة .. أنا قاهرى 😀

منور اخى واستاذى @essam rabea ان شاء الله تكون بخير انت والاهل واهل اسكندريه كلهم جزاك الله كل خير

وعليكم السلام-يمكنك جعل المعادلة بهذا الشكل =IF($E4<=30,$E4*2.786,IF(AND($E4>30,$E4<=60),(30*2.786)+($E4-30)*3.536,IF($E4>60,(30*2.786)+(30*3.536)+($E4-60)*4.036))) 1حساب فاتورة الغاز.xlsx

اولا: شو اسم مربع السرد ، ثانيا: بأي حقل تريد الفرز التصاعدي ؟ جعفر

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

بالخدمة استاذ أبو حوده

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

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

وعليكم السلام 🙂 اولا: اعمل استعلام جديد ، واستعمل استعلام التوحيد ، والجدول الآخر اللي فيه قيمة الـ Combobox ، واربط الجدولين بحقلي الرقم ، ثم انزل حقل الاسماء في الاستعلام الجديد ، واستعمله في التقرير ، ثانيا: التقرير لا يحترم ولا يستعمل الفرز من الاستعلام/الجدول ، لذلك يجب عليك عمله في التقرير ، بواسطة : . وتجعل حقل الفرز في اول القائمة (حاليا الفرز عندك بالحقل NO_OUT_ARA ، ثم الفرز بالحقل NO_IN_ARA ) جعفر

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

اساتذي الافاضل 🙂 ومن هذا الرابط : تم التوصل الى المرفق 🙂 كود النموذج : Private Sub cmd_Dates_Search_Click() Me.Requery End Sub Private Sub Command24_Click() Me.x = Null Me.STR = Null Me.ind = Null Me.Requery End Sub Private Sub ind_DblClick(Cancel As Integer) Me.ind = Null Me.Requery End Sub Private Sub STR_DblClick(Cancel As Integer) Me.STR = Null Me.Requery End Sub Private Sub x_AfterUpdate() Me.Requery End Sub Private Sub x_DblClick(Cancel As Integer) Me.x = Null Me.Requery End Sub . وهذا الاستعلام الذي اصبح مصدر بيانات النموذج : . SELECT t1.id, t1.nume, t1.vactiondate, t1.manger FROM t1 WHERE (((t1.vactiondate) Between (IIf(Len([Forms]![f1]![STR] & '')=0,#1/1/1900#,[Forms]![f1]![STR])) And (IIf(Len([Forms]![f1]![ind] & '')=0,#1/1/2900#,[Forms]![f1]![ind]))) AND ((t1.manger)=IIf(Len([Forms]![f1]![x] & "")=0,[manger],[Forms]![f1]![x]))); . وفي البرنامج تكة صغيرة اضفتها ، وهي لما تريد تفرغ بيانات اي من حقول البحث ، انقر على الحقل مرتين 🙂 جعفر 1210.فلترة.accdb.zip

وعليكم السلام اتفضل اخى محمد @حلبي لعل هذا ما تريد فلترة.accdb

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

أحسنت استاذ محمد .. بارك الله فيك وزادك الله من فضله

وعليكم السلام اخى @حسين العربى حاجه كده ع قدى ان شاء الله تظبط معك شوف الجدول هناك سجلان بتوقيات مختلفه اللى هيظهر فالاستعلام السجل الاول المنتهد المده جرب ووافنى بالنتيجه بالتوفيق ان شاء الله ادخال بيانات البطاقه المدنية.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 للأسف ما لا يعرفه الكثير أن أكسس يستعمل خصيصة الإخفاء للإشارة إلى الجداول الموقتة! وما المشكلة في ذلك؟! المشكلة أن أكسس يقوم بحذف بيانات هذه الجداول عند الضغط والإصلاح..

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

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

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

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