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

السلام عليكم ورحمة الله تعالى وبركاته حياكم الله اخوانى واحبابى بناء على موضوع : فتح نموذج بناء على اوقات مختلفه اخى الحبيب استاذ @TQTHAMI اهديكم وكل احبابى هذا التطبيق 1- ملفات الاذن محموله داخل القاعدة 2- عند فتح التطبيق يتم انشاء مجلدات اليا فى نفس مسار التطبيق 3- يتم تفريغ الملفات الصوتية والصورة بداخل المجلدات 4- امكانية تعديل الوقت لكل صلاة 5- فتح نموذج تنبيه وقت الاذان مع الاستماع للاذان 6- اغلاق النموذج الخاص بالتنبيه والاذان اليا بعد الانتهاء لصوت الاذان Prayer.mdb

واياك اخي الكريم .... بارك الله فيك .... المشكلة لديك ليس في الاستيراد ... لأن طريقة الاستيراد التي في البرنامج تصلح لاستيراد اي ملف اكسل ,,, ولكن المشكلة في ملف الاكسل لديك أن المعلومات متداخلة ... فتطلب كتابة كود يستخلص هذا البيانات حسب كل ادارة أو مكتب ... هنا كانت المشكلة

رفع الله قدرك اخي الكريم ... وأشكرك على طول صبرك ... والحمد لله وجدنا الوثت لمساعدتك قدر الامكان ... انظر المرفق والصور لعل هذا ما تريد ... DATA555 - kanory.mdb

طيب جرب المرفق واعلمنا بالنتيجة .... ‏‏import_kan2.accdb

هل هذا التصور المطلوب ؟؟؟؟

ولد جدة ام الرخا والشدة .... اين ملف الاكسس المراد استيراد البيانات لها ؟؟؟؟؟

ما شاء الله تبارك الله ... الله ينور عليك أخي @kanory تفكير رائع ...

تم ذلك الرسم البياني.zip

تفضل وجرب .... MALAK-XP_Kan.MDB

بداية يجب إرجاع الفضل لإهله الاستاذ / سليم حاصبيا - الاستاذ ابراهيم الحداد فى مساعدتهم الدائمة وخاصة فى اعداد هذا البرنامج والذى اتمنى ان يحوز رضاكم كتلميذ من تلامذة المنتدى أمنيتى تعريفى بعيوبه من جانب اساتذتى واسم المستخدم/ محمد فتحى / وكلمة المرور 1970 ومحرر الاكواد / 6101970 1562309003_.rar

الله يبارك فيك ويحفظك يا طيب جزاك الله خيرا

شكر وتقدير واحترام من اخيك

دائما لك طلعات عجيبة جاري التجربة جزاك الله خير يابو جودي

ربنا يرضي عنك ويبارك فيك ويحفظك

بحثت في قوقل ولعلي وصلت الى فهم الطريقة من خلال هذا الرابط https://www.babelsoftco.com/ar/articles/value-added-tax هذه صورة للايضاح

وعليكم السلام 🙂 1. لا اعتقد ان هذا ممكن ، 2. هذا ممكن ، ويمكنك البحث في المنتدى فهناك العديد من البرامج التي تعمل هذا الشيء ، 3. تم نقاش هذا الموضوع هنا: سؤال عن مشكلة Error 3343: Unrecognized Database Format - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

شكرا على المعلومة والتأكيد اخوي احمد 🙂 جعفر

جزاك الله خير اخي الحبيب ... واياك ... جرب المرفق التالي هناك اضافة وهي اخفاء بقية الحقول في حال اختيارك لمستودع واحد أو اكثر .... بدلا من الفراغ في الجدول ... DATA555 - kanory.mdb

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

عفوا يبدو انني لم احمل الملف الصح تفضل Export.xls

اخي الكريم هذه مشاركة مع زملائي دعنا نتعلم كيف يتم استيراد ملف اكسل بأسهل الطرق أولا / نحتاج لفتح مربع تحرير لإختيار ملف الإكسل من الكمبوتر و حفظ مساره Dim Addfile As Object Dim filepath As String On Error GoTo errorhandle Set Addfile = Application.FileDialog(3) With Addfile ' فتح مربع التحرير لإختيار الملف .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then ' هنا تم تحديد الملف من مربع التحرير filepath = Trim(.SelectedItems(1)) ' مسار الملف '=================================== '''''' استيراد الملف بعد التحديد'''''' '=================================== DoCmd.TransferSpreadsheet acImport, 10, "اسم الجدول", filepath, False, "" MsgBox "تم الاستيراد بنجاح", vbOKOnly + vbMsgBoxRight, "تأكيد" Else Exit Sub End If End With errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

اهلا وسهلا فيك استاذ صلاح والملف فيه الطريقتين واي استفسار تحت امرك

صباح الخير جرب المعادله ادناه =IF(F3=0;0;INDEX($K$2:$K3;SUMPRODUCT(MAX(ROW($B$2:$B3)*($B3=$B$2:$B3))-1))) او هذه المعادلة =IF(F3=0;0;LOOKUP(2;1/($B$2:$B3=$B3);$K$2:$K3)) كما يمكن عمل الدالة عن طريق الكود VBA =IF(F18=0;0;LastItemLookup(B18;$B$2:$K17;10)) وانظر للمرفق حساب المتوسط المتحرك أوتوماتيك-2.xls

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

في الاكسس تقوم بإستخدام المعيار التالي like "*" & [forms]![top]![qq]& "*" أما مع استخدام SQL يتم استبداء علامة (*) بـ (%) like '%" & [forms]![top]![qq]& "%'

السلام عليكم اولا ارجوك الحفاظ على قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ------------------- وبخصوص طلبك برنامج الموارد البشرية HR - قسم الأكسيس Access - أوفيسنا (officena.net)

انظر صور للبرنامج نفسه من جهازي .... لاحظ الثلاث طلاب وفصولهم !!!!

اعتقد الطالب الثالث الذي تذكره في فصل اخر غير فصل الطالبين ... ابحث عنه

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

اين ظهر هذا الخطأ ... في استيراد ملف الاكسل ... ام ماذا وضح اكثر

تفضل هل هذا ما تريد ... importmarks.accdb

وعليكم السلام ولكن اين الدرجات في ملف الاكسل ....

استاذ/ Ali Mohamed Ali اشكر حضرتك ورأيك وسام على صدري ورجاء رجاء تصفحه واخبار بعيوبه لعلى أتمكن من تفاديها

عمل ممتاز أستاذ محمد جعله الله فى ميزان حسناتك

مرفق ملف ... أتمنى ان يكون هو المطلوب كما نرجو من الزملاء بالمنتدى التعليق والاضافة حتى يكون الملف يشمل جميع النقاط taxes on salary 2020.xlsx

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

بعد اذن اخي حسين هذا الكود Option Explicit Sub copy_Form_to() Dim M As Worksheet: Set M = Sheets("Main") Dim L As Worksheet: Set L = Sheets("list") If Not IsNumeric(L.Range("g5")) Or L.Range("g5") = 0 Then Exit Sub If Not IsNumeric(L.Range("I5")) Or L.Range("I5") = 0 Then Exit Sub Dim lrM%: lrM = M.Cells(Rows.Count, 3).End(3).Row Dim RgC As Range: Set RgC = L.Range("C6:C35") L.Range("b5").CurrentRegion.Offset(1).ClearContents Dim My_Min: My_Min = Application.Min(L.Range("g5:I5")) Dim My_Max: My_Max = Application.Max(L.Range("g5:I5")) If My_Max > lrM - 2 Then My_Max = lrM - 2 Dim t%, K% Dim r%, c%, X% r = 6: c = 3 My_Min = Int(Abs(My_Min)): My_Max = Int(Abs(My_Max)) For t = My_Min To My_Max On Error Resume Next X = M.Range("c:c").Find(t, lookat:=1).Row If Err.Number Then Err.Number = 0: GoTo next_t If X Then K = K + 1 If K = (RgC.Rows.Count) * 2 + 1 Then Exit For L.Cells(r, c - 1) = t: L.Cells(r, c) = M.Cells(X, 4) r = r + 1 If K = RgC.Rows.Count Then r = 6: c = c + 2 End If next_t: Next End Sub الملف مرفق aaaa.xlsm

السلام عليكم ورحمة الله وبركاته اقدم الى المكان الذى لا انسى فضله علي هذا العمل المتواضع تقبل الله منا ومنكم صالح الاعمال . بسم الله ◀مؤشرات قياس الاداء (KPIS) Key Performance Indicators وهو مقياس كمى لقياس هدف الاعمال والتى ترتبط بالاستراتيجية الخاصة بالشركة وهى مقياييس تسمح للاداره بتقييم الاداء بصوره سريعة وهى تستخدم مؤشرات مالية وغير مالية لمقارنة الاهداف الموضوعه . ◀وقد تناولنا فى هذا النموذج الخاص KPI كيفية قياس مدى تحقيق الهدف لمديرى ومشرفين وفريق المبيعات وتكون هذا النموذج من ◀ورقة عمل الهدف الاستراتيجى : وهنا يتم ادخال فترة التطبيق وشكل مؤشرات الهدف ورد الفعل المناسب فى حالة تحققه ◀ورقة عمل من 1 : 20 : وهى بمثابة اجنده شهرية لكل فرد يسجل فيها التارجيت او الهدف واجمالى المتحقق اليومى وهنا سيعرض لك KPI يومى وشهرى وايضا يوجد ملخص عام فى الاعلى ◀ورقة عمل التقرير العام : وهى تشمل قياس الاهداف لكل فرد بشكل يومى وشهرى وهنا يتم طباعة هذه الصفحة وارسالها لمتخذى القرار باى شكل . هذا وماكان من توفيق فمن الله وحده وماكان من خطأ او سهوا او نسيان فمنى ومن الشيطان والله والرسول منه براء ------------------- النموذج متاح للجميع تحميله وكلمة المرور هى 123 نصيحة : يمكنك التعديل على النموذج كما تريد خذ الافكار وطبق على مجال عملك --------------- تحميل الملف http://www.mediafire.com/file/501t47bzv7oh3zh/KPI-2018.xlsm/file ------------------- #خبير_اكسيل #KPI_EXCEL #EXCEL_BI #زكاة_العلم_نشره لاتنسونا بصالح دعاؤك يرجى مشاركة الجميع KPI-2018.xlsm

سبحان الله ، الله ارادك ان تقع في فخ احد مشاكل النماذج المنبثقة : مساعدة في فتح عدد اكثر من نموذج داخل النموذج الرئيسي - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر