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

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

السلام عليكم 🙂 اخي ازهر : اذا عندك المريض 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

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

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

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

تفضل أخي. الملف معدل فقط ضع a19.value=impath قبل else pictre.xlsb

وعليكم السلام 🙂 اولا: اعمل استعلام جديد ، واستعمل استعلام التوحيد ، والجدول الآخر اللي فيه قيمة الـ 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

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

طالما انك تريد النتيجة بهذه الطريقة فلابد من استخدام هذه المعادلة بدلاً من المعادلة الأخرى ولا يمكن عمل هذا الا بهذه المعادلة =COUNTIFS('CM YTD'!$B$4:$B$7000,B$2,'CM YTD'!$C$4:$C$7000,"Y",'CM YTD'!$D$4:$D$7000,1) CM2.xlsx

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

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

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

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

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

وعليكم السلام أخى الكريم لما لا تقوم بإستخدام خاصية البحث بالمنتدى طالما لم تقم برفع ملف بالمطلوب ؟ تفضل مُجمِع البيانات للاكسيل - Excel Data Collector الإصدار الخامس دمج وتجميع عدة ملفات خارجية فى ملف واحد بالمعادلات وهذا رابط اخر دمج ملفات اكسل في ملف واحد وهذا كود اخر لهذا الموضوع Sub MergeExcelFiles() 'https://www.ablebits.com/office-addins-blog/2017/11/08/merge-multiple-excel-files-into-one/ Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub وهذا كود ثانى للمطلوب Sub ConslidateWorkbooks() 'https://trumpexcel.com/combine-multiple-workbooks-one-excel-workbooks/ Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub

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

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

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

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

اتفضل تم استخدام هذا الكود Private Sub ÃãÑ26_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] ASC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] ASC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] ASC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] ASC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] ASC" End If End Sub Private Sub ÃãÑ27_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] DESC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] DESC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] DESC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] DESC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] DESC" End If End Sub Sort1.rar

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