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

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

تمت الاجابة على هذا السؤال هنا : 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 وانا اسف اني بتعبكم معايا دائما وجزاكم الله خير

جرب هذا 23-4-2020.xlsx

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

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

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

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

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

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

يمكنك ذلك بملاحظة ودراسة معادلات جدول البيانات الأخر المتواجد من النطاق CC1: CH3 حيث تم تعديل معادلة الرسم البيانى لأن يأخذ من هذا الجدول ..وموجود كل هذا بالملف المرسل اليك

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

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

بارك الله فيك وزادك الله من فضله

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

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

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

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

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

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

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

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

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

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