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

تفضل انظر الطريقة .......... 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

السلام عليكم ..... لدي نموذج FRooms عبارة عن غرف للمرضى كيف استطيع منع ادخال اسم المريض في اكثر من غرفة فمثلا لدي مريض H موجود في غرفة 14 و 18 كيف امنع هذا الشئ New Microsoft Access Database (2).accdb

بالخدمة استاذ ازهر عبد العزيز الاستعلام يجري مقارنة بين حقلين فيخرج الاسماء غير الموجدة او غير المتطابقة والناتج جعلناه مصدر لحقل اسم المريض ويمكن ان تجد الطريقة بالذهاب لانشاء استعلام اختر 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 جعفر

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

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

السؤال غير واضح 1- لا اتعامل مع اي جدول يحتوي على خلايا مدمجة 2- تضع المدة بالشهر والنسبة بالسنوات كبف هذا 3- هل تريد النسبة ان تكون مركية او لا مثلاُ سنة وسبعة اشهر (19 شهر) كيف تحسبها (السنة الأولى ×4% و 7 اشهر× 5%) أو 19 شهر × 5% 4- اكمل الجدول ببضع بيانات ولو شكلية

جزاك الله خير اخي الكريم الملف يعمل 100*100 ياخي ان لم اقل ان الملف لا يعمل بل قلت يحسب خطأ وحضرتك هتلاحظ كما في الصورة اللتي رفعتها من ردي ان حساب اليوم غياب ب 178 جم وهذا خطأ الصحيح ان يكون 200 جم 6000/30*1=200 وانا اسف اني بتعبكم معايا دائما وجزاكم الله خير

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

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

شكرا استاذي @أحمد الفلاحجى بالعكس استاذ كود اكثر من رائع صحيح ليس المطلوب بالضبط لكن مفيد جدا كالعادة في كوداتك الاحترافية والشكر موصول لاستاذ المبدع @husamwahab لى هذا المثال الكافي الوافي

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

لأساتذة الكرام....لكم مني كل الثناء والتقدير ، بعدد قطرات المطر ، وألوان الزهر ، وشذى العطر ، على جهودكم الثمينة والقيمة ، من أجل الرقي بمسيرة منتدى أوفيسنا . للنجاحات أناس يقدرون معناه ، وللإبداع أناس يحصدونه ، لذا نقدّر جهودكم المضنية ، فأنتم أهل للشكر والتقدير ..فوجب علينا تقديركم ...فلكم منا كل الثناء والتقدير . ..لخيرة الأساتذة .............لكم منا كل معاني الحب والتقدير ، والذي يساوي حجم عطاؤكم اللامحدود . • جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا يساوي طموحكم .. لذا تستحقون منا كل عبارات الشكر، بعدد ألوان الزهر ، وقطرات المطر .

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

احسنت اخى ومعلمى العزيزجعفر @jjafferr جزاك الله عنا كل خير بارك الله لنا فيك فلترة.accdb

الاساتذه الكرام كل عام وانتم بخير اتمنى لكم ولمن تحبون السلامة الدائمه واسئل الله ان يرفع هذا الوباء --------------------------------- لدي سؤال وهو وجدت هذا الكود لاحد الاساتذه الكرام استخدام اكسل لارسال رسائل الوتس أب https://youtu.be/ImkCZ63HEPk ولكن المشكله اريد التعديل عليه بحيث يتم ارسال رساله واتساب لاي رقم وليس الارقام المخزنه في الجهاز فقط يعني مجرد ان اضع اي رقم في الخليه يتم الارسال اليه النص المكتوب في الخليه المقابلة مرفق لكم الملف المستخدم ولكم جزيل الشكر whatup (1).xlsm

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

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

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

اهلا بك فى المنتدى شرفتنا -يجب ان تكون المعادلة هكذا =SUMPRODUCT(('CM YTD'!$C$2:$C$7000="Y")*('CM YTD'!$B$2:$B$7000=B$2)/COUNTIFS('CM YTD'!$C$2:$C$7000,'CM YTD'!$C$2:$C$7000&"",'CM YTD'!$B$2:$B$7000,'CM YTD'!$B$2:$B$7000&"",'CM YTD'!$A$2:$A$7000,'CM YTD'!$A$2:$A$7000&"")) Sales & CM.xlsx

وعليكم السلام اخى @حسين العربى حاجه كده ع قدى ان شاء الله تظبط معك شوف الجدول هناك سجلان بتوقيات مختلفه اللى هيظهر فالاستعلام السجل الاول المنتهد المده جرب ووافنى بالنتيجه بالتوفيق ان شاء الله ادخال بيانات البطاقه المدنية.rar

وعليكم السلام-تفضل كشف رصد درجات المرحلة الأساسية.xlsb

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

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

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

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

السلام عليكم في الملف الذي ذكرت استيراد كل البيانات وتصدير كل البيانات