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

لقياس الوقت للوقوف على اداء التطبيق عند تنفيذ الاستعلام Public Function OpenQryPerformanceTest(ByRef QueryName As String) Dim StartTime As Date: StartTime = Now() Dim ExecutionTimeBySeconds As Long DoCmd.OpenQuery QueryName DoCmd.GoToRecord acDataQuery, QueryName, acLast ExecutionTimeBySeconds = DateDiff("s", StartTime, Now()) MsgBox "Execution Time: " & ExecutionTimeBySeconds & " Seconds" End Function

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

بطي الاس سكيو سيرفر ليس له علاقة بدالة اللوك اب المشكلة غالبا في اعدادات Obdcانظر مثلا https://answers.microsoft.com/en-us/msoffice/forum/all/my-solution-to-access-being-slow-with-odbc/a5a6522f-a70f-421e-af1b-48327075e010

السلام عليكم ورحمة الله تم تصحيح الكود ليعمل بشكل صحيح و لكن يتوجب عليك تسطير الكثير من الجداول التى سوف يتم تفريغ البيانات بها و ليس 4 فقط كما هو موضح فى الملف المرفق مع مشاركتك الاولى اليك الكود Sub StudId() Dim ws As Worksheet, sh As Worksheet Dim Arr As Variant, Tmp As Variant Set ws = Sheets("جدول الامتحان مع رقم الجلوس 1") Set sh = Sheets("شيت صف رابع") lr = sh.Range("B" & Rows.Count).End(3).Row fsl = ws.Range("N17").Text For i = 14 To sh.Range("D" & Rows.Count).End(3).Row If sh.Cells(i, 4) = fsl Then p = p + 1 x = (p - 1) * 13 + 7 ws.Cells(x, 2) = sh.Cells(i, 3) ws.Cells(x + 1, 2) = sh.Cells(i, 2) ws.Cells(x + 2, 2) = sh.Cells(i, 5) ws.Cells(x + 1, 5) = sh.Cells(i, 4) End If Next End Sub

1. استخدامي الامر Len طريقتي في التعرف على ان المتغير: my_info المتغير ليس فاضي my_info = "" وليس فيه قيمة isNull(my_info)= true يعني بدل if my_info="" or isnull(my_info)= true then استعمل if len(my_info & "")=0 then . 2. لماذا استخدمت if لما الكود يقرأ الدالة لأول مرة ، فقيمة المتغير my_info هو "" (لأننا اعلنا ان string ، بينما لو كان المتغير رقم / مثل integer او Double او .. فتكون قيمته 0) ، فيقوم الكود بالذهاب الى الجدول مرتين (مرة لكل Dlookup) (مع انك تستطيع الذهاب الى الجدول مرة واحدة وقراءة قيمة الحقلين مرة واحدة ) ، ولما تقرأ الدالة مرات اخرى ، فيقوم الكود بالذهاب الى الجدول مرتين ، بينما لما استخدمت الامر if في الدالة ، فالدالة لما تجد ان المتغير my_info فيه قيمة (اي انه ذهب للجدول سابقا واحضر القيمتين) ، فلا تذهب للجدول ، وانما تعطي/تظهر القيمة مباشرة 🙂 جعفر

ولا يهمك ، تفضل Private Sub b_emp_add_Click() On Error Resume Next If Forms![LoginFourm]![Delete] = 0 Then MsgBox خطأ .. ليس لديك صلاحيات اصدار أذن", 0 + 16 + 1048576", fMy_Msgs Else DoCmd.OpenForm "Permission_add", , , , acFormAdd End If End Sub . والدالة option comapre database option explicit dim my_info as string public function fMy_Msgs() as string if len(my_info & "")=0 then my_info = DLookup("[name_pro]", "[info]") & " | " & DLookup("[Version_pro]", "[info]") end if fMy_Msgs = my_info end function جعفر

وعليكم السلام 🙂 1. بهذه الطريقة ننادي الدالة fMy_Msgs لتعطينا الرسالة : Private Sub b_emp_add_Click() On Error Resume Next If Forms![LoginFourm]![Delete] = 0 Then call fMy_Msgs Else DoCmd.OpenForm "Permission_add", , , , acFormAdd End If End Sub 2. اعمل وحدة نمطية جديدة ، واعطيها اسم mod_My_Msgs مثلا (ولكن لا تحفظها باسم fMy_Msgs ، لأن هذا اسم الدالة) : option comapre database option explicit dim my_info as string public function fMy_Msgs() if len(my_info & "")=0 then my_info = DLookup("[name_pro]", "[info]") & " | " & DLookup("[Version_pro]", "[info]") end if MsgBox "خطأ .. ليس لديك صلاحيات اصدار أذن", 0 + 16 + 1048576, my_info end function . جعفر

عليكم السلام تصميم الجداول بحاجة الى اعادة نظر مثلا كيف تريد جلب الصف والفصل للطالب وفي الجداول لم يتم تعيين ذلك له في جدول اسماء الطلاب يجب ادراج كل ما يخص الطالب من البيانات الثابتة : الصف / الفصل / سنة الميلاد / رقم الهاتف / العنوان / ....... الخ والبيانات الثابتة هي البيانات التي غالبا لا تتغير على الاقل خلال سنة دراسية واحدة ايضا في جدول المعلمين يجب ادراج المادة التي يدرسها ، واذا كان المدرسون يدرسون اكثر من مادة يجب عمل جدول وسيط يربط بين جدول المعلمين وجدول المواد يتم ادراج مواد المعلم التي يقوم بتدريسها

مثل هذا الخط

السلام عليكم 🙂 نعم هذه هي الطريقة الصحيحة ، ولا انصح ابدا بإستخدام On Error Resume Next إلا في حالات جدا ضيقة 🙂 بالنسبة لعملك ، فخذ الطريقة التي تريحك 🙂 وطبيعي ان الكمبيوتر يحتاج وقت لمعالجة كل سطر في الكود ، والوقت يعتمد على الامر الموجود في ذلك السطر ، وفي معظم الاحيان هذا الوقت جدا تافه ولا نعيره اهتماما ، خصوصا في الكمبيوترات الجديدة 🙂 اما الطريقة الاولى ، OpenArgs ، فلا يعرف الكثير من المبرمجين عنها ، والكثير من الذين يعرفون ، لا يعرفون بأن بامكانهم ارسال اكثر من معلومة بها 🙂 جعفر

تفضل أخي الكريم الرابط التالي به مناقشة نفس الموضوع من عمالقة المنتدى https://www.officena.net/ib/topic/33625-شرح-اعداد-كشوفات-مدرسية-باختيار-روؤس-الاعمدة-عن-طريق-فورم/

شكرا لك واختصارا للموضوع اكتب هكذا Wa.me/xxxxxxx حيث xxxxxx هو رقم الواتس مع المفتااح الدولي بدون الاصفار في بداية المفتاح الدولي مثال الرقم هو 0098765432 الرابط هو Wa.me/98765432 يستطيع اي شخص يملك حسابا علي الواتس من اظهار حافظته الشخصية ما هي الحافظة الشخصية ؟ هي حسابك علي الواتس وتستطيع ان تحفظ فيه اي رسايل او وسائط مثال عملي : ارسل رسالة من الوتس لاي شخص تتضمن Wa.me/yyyyyyy حيث yyyyyyy هو رقم حسابك في الواتس سيتكون لك رابط اضغط عليه سيتم فتح حسابك علي الواتس ارسل اي رساله لحسابك سيتم استلامها علي الفور اغلق النت من جوالك وارسل اي رسالة الي حسابك سيتم استلامها مباشرة بدون نت لانك انت الذي ترسل وانت الذي تستقبل

طيب نصيحة سيبك من رقم الماذر بورد لانه احيانا الاكواد ما تحصل اى نتائج ومنها اللوحة تبعى ان كنت تريد رقم فريد اتفضل - التجربة قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد أعادة تشغيل .. قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد الفرمات .. قبل وبعد فصل الشبكة ظهر نفس الرقم - النظام قبل الفرمات ويندوز 10 - 64Bit أوفس 2021 64Bit - النظام بعد الفرمات ويندوز 7 - 32Bit أوفس 2016 32Bit والرقم الناتج من تلك الطريقة ثابت لا يتغير مطلقا Get UUID.mdb

الملف شغال تمام وما فى اى مشاكل وع العموم انا قمت بتعديل ليتماشى مع النواتان 32 , 64 menu.zip

بالفعل، لكن يمكن تطويع الhtml لخدمة الأكسس. انا لم اتكلم عن قوة الأكسس كـ برنامج خدمي وسهل وو.. تكلمت فقط عن امكانياته المحدودة في التصميم مقارنة بالبرامج الاخرى، ومثل ما تفضلت يبقى المصمم هو فارس الميدان في جعل الشكل جذاب ومرتب. وكـ مبادرة صغيرة مني في دعم موضوعك الرائع اقدم لكم واجهة بسيطة قمت بتصميمها في الاكسس واهم مايميزها responsive مع جميع الشاشات، اتمنى لكم الفائدة من هذه الواجهة وبنفس الوقت لا تتوقعو مني الكثير في تصميم الواجهات فأنا لا ازال في بداية الطريق اهلا عزيزي ابا جودي، لك وحشة ياغالي.. بالعكس انا لم اقل الاكسس عاجز وانما قلت ان الاكسس محدود اما عن الresponsive فأنا قمت بشرحها سابقا في هذا الموضوع، ربما طريقتك تختلف عن طريقتي لكن يبقى الجوهر واحد تحياتي لك ابا جودي menu.rar

كما في الصورة ادناه

السلام عليكم ورحمة الله استخدم الكود الاتى Sub SetlColr() Dim ws As Worksheet Dim LR As Long, C As Range Set ws = Sheets("Sheet1") LR = ws.Range("A" & Rows.Count).End(3).Row For Each C In ws.Range("B3:B" & LR) If C.Value > 0 Then x = C.Interior.ColorIndex If x = 6 Then C.Offset(0, 1) = C.Value C.ClearContents Else Exit Sub End If End If Next End Sub

السلام عليكم اخوانى طرح الاساتذة الافاضل الاستاذ جعفر والاستاذ Moosak موضوع جميل جداااااااااااا احتاج لتطبيق الواجهة الجميلة هذه على الشاشة الرئيسية ببرنامجى بس لم اعرف الصراحة حاولت كثيرا بس غلبت طبعا بنفس الاسماء للازرار لانها مرتبطة باكواد وكذلك نفس اسم النموذج النموذج المراد التنفيذ عليه https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=201149&key=04078f23c39e39efc3e3a58e2d66c59f بارك الله فيكم اخوانى الافاضل الكرام زادكم الله من فضله شاشة رئيسية.accdb

اخي sief122 تفضل المصنف1.xlsm

السلام عليكم ورحمة الله تم تحويل الارقام الى نسب مئوية حسب ما فهمت من طلبك ارجو عدم الاقتراب من الاكواد المدرجة بالملف حتى لا يفسد كل ماعملناه لانى وجدت احد الاكواد وقد تم حذفها من محرر الاكواد بالملف هذا والله ولى التوفيق المعادلة تعديل2 (1).xlsm