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

السلام عليكم 🙂 هناك قوالب جاهزة لهذا العمل: الشرح : https://access-templates.com/tutorial/vehicle-fleet-management-solutions-using-microsoft-access-database.html و خمسة قوالب : https://access-templates.com/tag/vehicle+maintenance.html كما ان شركة مايكروسوف عندها قوالب جاهزة في الاكسس ، ويمكن انزال البقية من هنا : https://support.microsoft.com/en-us/office/featured-access-templates-e14f25e4-78b6-41de-8278-1afcfc91a9cb?ui=en-us&rs=en-us&ad=us وفيه لصيانة المعدات . وهناك برنامج للبيع والذي يمكن انزال نسخة تجريبية منه ومعرفة مكوناته وطريقة عمله : http://www.granitefleet.com/ وبالتوفيق 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته تقضل اخي الكريم A.rar تحياتي

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

تفضل اخي الكريم الحل موجود في الموضوع التالي تحياتي

مشاركة مع حبايبنا الاساتذة .... استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل ..... Dim db1 As DAO.Database Dim Rst1 As DAO.Recordset Set db1 = CurrentDb Dim objExcel As Object Dim objWorkbook As Object Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sXlsFile) Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")" With Rst1 If .RecordCount <> 0 Then .MoveFirst objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1 objWorkbook.Sheets(2).range("b5").Select End If End With objExcel.DisplayAlerts = True objWorkbook.Close SaveChanges:=True Set objWorkbook = Nothing objExcel.Quit Set objExcel = Nothing Set Rst1 = Nothing Set db1 = Nothing VBA.Shell "Explorer.exe " & Chr(34) & sXlsFile & Chr(34), vbNormalFocus DoCmd.DeleteObject acTable, "temp" انظر النتيجة في ملف الاكسل .......... Ba_Deffi.rar

الاستاذ فايز 🙂 تقدر تعمل استعلام بالحقلين المطلوبين ، ثم تستعمل البرنامج الذي في الرابط ويعمل لك اللي تريده 🙂 جعفر

السلام عليكم احببت اخي ابو اشرف ان اضع تجربتي ، انا اعمل على اكسس 2003 فقط جميع برامجي تعمل 100% على الاصدارات 7 ، 10 ، 13 ولكني احيانا حين تكون برامجي خاصة وبحاجة الى زيادة في الضبط اشترط تحميل اوفيس 2003 على جهاز العميل او كما تفضل اخي ابو عبدالله قد ادمج access runtime ... ملحوظة : لم اجرب الاصدارات الأحدث من 13

وعليكم السلام ورحمة الله وبركاته اعتقد ان استخدام النسخة يعتمد على المبرمج اولاً حسب ما يراه مناسب بالنسبة له فنرى مثلاً النقلة الكبيرة بين اوفيس 2003 واوفيس 2007 واعلى نقلة كبيرة حتى صيغة الملف نفسه اختلف وبالنسبة للعميل فلا اعتمد على النسخة التي يعمل عليها بل ادمج access runtime في ملف التجميع ( قاعدة البيانات - access runtime - الخطوط - الايفونات - الصور - ملف reg لتخفيض الامان ... الخ ) وبهذا لا تعارض بيني وبين العميل ان شاء الله تحياتي

العفو اخي الفاضل ، فكلنا هنا يد واحدة ان شاء الله 🙂 جعفر

تم عمل المطلوب بواسطة معادلة وتم إعادة ترتيب البيانات بحيث فصلنا معلم ذكر عن بعضها ليتم المقارنة بين كل عنصر لوحدهمعادلة حسب متغيرات الاعمدة.xlsx بالتوفيق

جرب هذا المصنف 1-مؤلف من ملفين الاول تجت اسم "Empl.xlsx" و الثاني تحت اسم "Rateb.xlsm" 2-البحث يتم في الملف "Rateb.xlsm" 3- اختر كود الموظف من الخلية A3 واضغط الزر "هاتها دكتور اكسل" Empl.xlsx Rateb.xlsm

تفضل Sub NTAx() Dim lr As Integer lr = ActiveSheet.Cells(Rows.Count, 13).End(xlUp).Row For i = 2 To lr Select Case Cells(i, 13).Value Case Is > 83333.33 Cells(i, 14).Value = 7500 + (Cells(i, 3).Value - 33333.33) * 25 / 100 Case Is > 75000 Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 75000 Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 66666.67 Cells(i, 14).Value = 750 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 58333.33 Cells(i, 14).Value = 375 + 187.5 + 2333.33 + 3750 + 7291.67 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 50000 Cells(i, 14).Value = 62.5 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 41666.67 Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 33333.33 Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 16666.67 Cells(i, 14).Value = 3750 + 2333.33 + 187.5 + 125 + 31.5 + (Cells(i, 13) - 16666.67) * 25 / 100 Case Is > 5000 Cells(i, 14).Value = 2333.33 + 187.5 + 125 + 31.25 + (Cells(i, 13) - 5000) * 22.5 / 100 Case Is > 3750 Cells(i, 14).Value = 187.5 + 125 + 31.25 + (Cells(i, 13) - 3750) * 20 / 100 Case Is > 2500 Cells(i, 14).Value = 125 + 31.25 + (Cells(i, 13) - 2500) * 15 / 100 Case Is > 1250 Cells(i, 14).Value = 31.25 + (Cells(i, 13) - 1250) * 10 / 100 Case Is < 1250 Cells(i, 14).Value = Cells(i, 13) * 2.5 / 100 End Select Next End Sub معادلة الضرائب الجديده.xlsm

و ما الحاجة الى ملفين لهذه الغاية يكفي في الملف الاساسي وضع صفحة مخصصة للحصول على البيانات مثل هذا (الصفحة Salim) Employ_data.xlsx

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

بسم الله الرحمان الرحيم السلام عليكم اصدقائي قررت في الفترة الاخيرة اعتزال البرمجة بالاكسل و vba ولا اظن اني ساعود له بما اني كنت اعمل على بعض المشاريع بواسطة الاكسل و لاكن للاسف لم اجد الوقت الكافي لانهائها قررت ايضا طرح تلك المشاريع لربما لتستفيدون منها لذاى ساقوم في كل مرة يتاح لي الوقت فيها برفع مشروع او اثنين ان شاء الله كاول مشروع هذا برنامج مبيعات /كودبار/يعتمد ايضا القطعة و العلبة تقريبا انجز 80% منه لم يتبقى له سوى التقارير و بعض الاشياء الاخرى تحياتي للجميع Pr Commercial.rar

فيديوووو جميل وشيق في هذا الفيديو شرح تقييم وحساب المكافاة بثلاث طرق علشان لازم تعرف كذا طريقة وهانتعلم في الدرس ده معادلة IF - VLOOLUP - INDEX - MATCHكيفية عمل تقييم وحساب المكأفاة بثلاث طرق باستخدام IF - VLOOLKUP - INDEX - MATCH.xlsx

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

السلام عليكم حسب وجهت نظري القاصرة امامكم انا استخدم اكسس 2003 منذ مدة ليس بقصيرة ولدي برنامج اعمل عليه في الادارة منذ سنوات ومحمل عليه 14 الف سجل ويعمل بكفائة حيث السريال الاصلي ولا احتاج الى الكراك . قمت بالاونة الاخيرة بتصميم بعض البرامج للاصدقاء على اكسس 2013 النسخة العربية ولاكن عند تشغيل البرنامج على جهاز الصديق اجده غير مكرك وبلغة مختلفة وتحميله غير مكتمل فنسخة تصل الى 3 كيكابايت ونسخة تصل الى 500 كيكابايت فيصيب البرنامج بعض التوقفات مما يضطرني الى تنصيب نسختي الخاصى ومع ذلك فهية مكركة ايظاً اجد اكسس 2003 هو الامثل

وعليكم السلام اخي عبد اللطيف 🙂 رجاء متابعة الموضوع هنا ، وخصوصا المشاركة الاخيرة والتي تتكلم عن سؤالك : وتم حذف الرابط لمخالفته قوانين المنتدى 🙂 جعفر

ماشاء الله عليك استاذ سليم حماك الله ووفقك وجعل عملك ومساعدتك لنا في ميزان حسناتك

وعليكم السلام ورحمة الله وبركاته زر التصدير غير السطر التالي DoCmd.OutputTo acOutputTable, "جدول الموظفين", acFormatXLSX, CurrentProject.Path & "\جدول الموظفين.xlsx", True الى DoCmd.OutputTo acOutputQuery, "الموظف", acFormatXLSX, CurrentProject.Path & "\جدول الموظفين.xlsx", True وزر الاستيراد من ImportFileName = CurrentProject.Path & "\جدول الموظفين" & ".xlsx" الى ImportFileName = CurrentProject.Path & "\الموظف" & ".xlsx" استراد وتصدير.rar تحياتي

انا بصراحة اعمل على اوفيس 2010

اميييييييييييين وجزاك الله عني خيرا اخي الكريم وكل عام وانتم بخير تحياتي

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

تفضل اخي الكريم الرياضة.rar تحياتي

وضح بارك الله فيك ما هو المطلوب تحياتي

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

تفضل اخي الكريم الرياضة.rar ملاحطة : يوجد في جدول اسناد امامي وجدول تمرين بطن قيم فارغة وهذا خطا يجب الانتباه اليه تحياتي

انت مدهش ماشاء الله تبارك الله استفدت جدااااااااااا من هذا الموضوع

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

ماكرو اخر يقوم بنفس المهمة Option Explicit Sub FIND_EMPLOY() Dim mPath$ Dim F_Name, TS$ Application.ScreenUpdating = False If UCase(ActiveSheet.Name) <> "SALIM" Then GoTo BAY_BAY_YA_HILWEEN mPath = ThisWorkbook.Path & "\" F_Name = mPath & "[Empl.xlsx]" F_Name = F_Name & "DATA'!$A$2:$J$100" Range("B3").Resize(, 9).ClearContents TS = "VLOOKUP($A3,'" & F_Name & ",COLUMNS($A$1:B1)" & ",0" & ")" TS = "=IFERROR(" & TS & ","""")" With Range("B3").Resize(, 9) .Formula = TS .Value = .Value End With If Range("B3") = vbNullString Then MsgBox "THIS CODE :" & Chr(10) & _ """" & Range("A3") & """" & Chr(10) & _ "DOES'T EXITS IN WORKBOOK "" Empl.Column(A)"" " Range("A3").ClearContents End If BAY_BAY_YA_HILWEEN: Application.ScreenUpdating = True End Sub

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

السلام عليكم ان كنت تقصد ملفات يضعها المبرمج لمعرفة رقم الهارد فهذا خطأ انما هي مكتبات داخل ويندوز يتم التعامل معها من داخل البرنامج مثال لمعرفة رقم السريال لمحرك الاقراص C Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") MsgBox obj_Drive.SerialNumber هذا الرقم يتغيير عند كل فورمات ايضا يمكن التعمل مع رقم الهارد الحقيقي الذي لا يتغير بالفورمات Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next في النهاية المستخدم لا يستطيع تغيير رقم السريال الخاص بأي قطعة الا بمساعدة برامج خارجية قد تؤدي الى تلف القطعة نفسها تحياتي

لا توجد مشكلة بدون حل والحمد لله واليك مقترحات 1 - تصميم الصورتان او البحث عن مصمم 2- العمل بنصيحة اخونا @عبد اللطيف سلوم والانتقال الى اوفيس 2010 واعلى 3 - تغيير الفكرة بفكرة اخرى بديلة تحياتي

اخي walidalrobey@yahoo.com قوانين لا تسمح بإستخدام الايميل في التعامل مع الاعضاء ، حتى نكون عادلين مع جميع الاعضاء 🙂 البرنامج اللي تتكلم عنه اسمه DBPix.ocx ، وهو من شركة في http://www.ammara.com/ ، والنسخة الثانية منه متداوله كثيرا كنسخة غير شرعية !! جعفر

احد الاسباب فقط ، وإلا فالمقام يطول : عدم عمل برنامجك على كمبيوتر العميل ، او لما تنصب نسخة اكسس 2007 فما فوق . . . وقام الكثير بمحاولة التغلب على هذه المشكلة: . . . مع ان المشكلة كانت بسيطة ، وهي نموذج منبثق 🙂 جعفر

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

قمت بربط الجدول الاول = 50 متر متعرج اكمل بنفس الطريقة باقي التمارين ولك الشكر الرياضة.rar تحياتي

وعليكم السلام ورحمة الله وبركاته لحساب العمر سنتخدم الوحدة النمطية الموجودة بالمرفق ثم نضع الكود التالي Me.العمر = CalcAgeY(Me.التولد, Date) نضع الكود التالي Select Case Me.العمر Case 18 To 24 Me.Text31 = "الفئة الاولى" Case 25 To 29 Me.Text31 = "الفئة الثانية" Case 30 To 34 Me.Text31 = "الفئة الثالثة" Case 35 To 39 Me.Text31 = "الفئة الرابعة" Case 40 To 44 Me.Text31 = "الفئة الخامسة" Case Else Me.Text31 = "الفئة السادسة" End Select نضع الكود التالي Me.المجموع = Val(Nz(الدرجة1)) + Val(Nz(الدرجة2)) + Val(Nz(الدرجة3)) + Val(Nz(الدرجة4)) سنضع الكود التالي Me.المعدل = Nz(Me.المجموع) / 4 Select Case Me.المعدل Case 0 To 49 Me.النتيجة = "فاشل" Case Else Me.النتيجة = "ناجح" End Select وضعت الكود كاملا في حدث عند الخروج لحقل التولد ويمكنك وضعه بما يناسب برنامجك Me.العمر = CalcAgeY(Me.التولد, Date) Select Case Me.العمر Case 18 To 24 Me.Text31 = "الفئة الاولى" Case 25 To 29 Me.Text31 = "الفئة الثانية" Case 30 To 34 Me.Text31 = "الفئة الثالثة" Case 35 To 39 Me.Text31 = "الفئة الرابعة" Case 40 To 44 Me.Text31 = "الفئة الخامسة" Case Else Me.Text31 = "الفئة السادسة" End Select Me.المجموع = Val(Nz(الدرجة1)) + Val(Nz(الدرجة2)) + Val(Nz(الدرجة3)) + Val(Nz(الدرجة4)) Me.المعدل = Nz(Me.المجموع) / 4 Select Case Me.المعدل Case 0 To 49 Me.النتيجة = "فاشل" Case Else Me.النتيجة = "ناجح" End Select الرياضة.rar وبرجاء زيارة الموضوع التالي لما فيه من الاهمية تحياتي

شكرا استاذ جعفر لكل هذا النصائح النصيحة رقم 11 - لا تستعمل النماذج المنبثقة إلا في حالات نادرة !!! لماذا انا دائما استعمل هذا .... هل هذا غلط شكرا.

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts فتابعونا. جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 و 2019 و 365 excel keyboard shortcuts الحمد لله الذي وفقنا في جمع وترتيب وتبويب جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts مع توضيح فئة الاختصار ووصف عمله والمفتاح أو المفاتيح التي تقوم بهذا الإجراء ونتعرف أيضا على: أمثلة لكل اختصار وربطه مع باقي مفاتيح الاختصار والآن مع الجدول الذي يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts وهذا ملف Pdf يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts لمن يريد الاحتفاظ به وهذا الفيديو لنفس الغرض يمكن عمل إيقاف مؤقت Pause عند القراءة ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور

وعليكم السلام-اهلا بك فى المنتدى -تفضل لك ما طلبت ويمكنك بإظهار الفورم فقط دون اظهار ملف الإكسيل وذلك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub Userform.xlsm

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

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

هذة رسائل تحذير عند تنفيذ استعلام ويمكن اخفائها بالامر قبل تنفيذ الاستعلام DoCmd.SetWarnings False وبعد تنفيذه نعيد تفعيل رسائل التحذير بالامر DoCmd.SetWarnings true وفي برنامج اخينا الفاضل عبداللطيف لم يستخدم الاكواد وانما الماكرو فيمكن عملها بالدخول على الماكرو ثم قبل تنفيذ الاستعلام في سلسلة اجراءات الماكرو نظيف اجراء setwarning تشغيل التحذير : لا واذا لم نجد الامر ضمن قائمة الاجراءات نذهب الى شريط الادوات ونختار اضهار كافة الاجراءات تحياتي

جرب أخى الكريمword.rar

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