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

مع انك لم ترفق ملفاً للمعاينة جرب هذا الملف Wajba.xlsx

رابط الفيديو

السلام عليكم تفضل اخي العزيز ارجو ان يكون طلبك حسب فهمي ملاحظة : اولا التعديل تم على اساس ان جهاز الباركود يخزن في مربع النص نص51 ثانيا للتجربة قم بعملية النسخ واللصق لباركود الطالب في مربع النص نص51 اي لا تقم بكتابة الباركود Root600.rar

السلام عليكم عمل قائمة فرعية لفتح النماذج انظر للملف المرفق اتمنى يفيدك للامانه هذه الاكواد منقولة تحباتي اختبار.rar

تم التعديل Unit _and_backs-1.xlsx

وعليكم السلام 🙂 مع اني لا ارد على اسئلة المستخدمين والامور الامنية ، لأنها مو نقطة قوتي ، ولكن بعملية بحث بسيطة ، وجدت الكثير والكثير من هذه المواضيع ، واليك واحدة منها: جعفر

السلام عليكم 🙂 نعمل البرنامج ، ثم نقسمه الى قسمين ، FE الواجهة و BE الجداول ، ولما نعطيه للمستخدم ، نربط الجداول بمسار خاص به ، ويعمل البرنامج. ولما المستخدم يحتاج الى تعديل/اضافات ، ويرسل لنا نسخته بالايميل (انا ممكن اكون مسافر وبعيد عن نسختي) ، فيجب علينا ان نغير مسار الجداول ليتناسب مع مجلدات الكمبيوتر عندنا ، ولما ننتهي من التعديل ، نرسله بالايميل ، وهناك يجب على المستخدم ان يغير المسار الى ذلك الذي به BE الاصل 🙂 المشكلة انه: 1. بعض الاوقات نكون قد وضعنا الـ BE في مكان لا يجب ان يعرفه المستخدم ، فلا نريد تدخل منه لهذا التغيير ، 2. بعض الاوقات المستخدم لا يعرف مكان الـ BE اصلا ، 3. وبعض الاوقات ، المستخدم لا يكون فني ليعرف كيف يختار مكان الـ BE 🙂 صادفتني هذه المشكلة مراراً ، ومرة دفعت الثمن غالي لما ربطوه بالـ BE الغلط ، ربطوه بنسخة الـ Backup بدل عن النسخة الاصل 😁 الى ان اهتديت الى هذه الطريقة 🙂 الفكرة هي عبارة عن اضافة جدول tbl_ReLink_To_Original في الـ FE فيه سجلين ، سجل يحتوي على مسار BE المستخدم ، وسجل يحتوي على مسار BE المبرمج ، وبدل هذا الجدول ، ممكن ان نضع ملف نص txt في مجلد FE ، ونكتب فيهم السجلين ، ثم نقرأهم ، ولكن الجداول في الـ FE تناسبني اكثر ، فإستعملتها 🙂 1. لمعرفة مسار BE المستخدم: . . ثم ننسخه من (1) جدول MSysObjects الى السجل الاول (Seq = 1) في جدولنا (2) tbl_ReLink_To_Original . ثم في السجل الثاني (Seq = 2) ، نكتب مسار الـ BE حسب مجلدات الكمبيوتر عندنا (3) . طريقة العمل: نعمل ماكرو Macro باسم Autoexec ، والذي يقوم الاكسس بفتحه وتنفيذ اوامره اول ما يفتح البرنامج ، 1. نقوم بتشغيل الكود الذي سيربط الـ BE الى المسار الصحيح للمستخدم (اما المبرمج فلا يسنخدم هذا الماكرو ، وانما يدخل في البرنامج بمسك مفتاح الشفت) ، 2. اذا لم يحصل البرنامج على المسار الصحيح ، فيجب ان نخبره ان يعطينا نافذة نختار منها المسار الصحيح ، وهناك عدة طرق ، واخترت طريقتي هنا ، 3.4.5.7.8 هذه لإخفاء جميع كائنات البرنامج من جداول واستعلامات ونماذج وماكرو وتقارير ووحدات نمطية ، وتوسيع البرنامج لحجم الشاشة (فلا نحتاج ان نجعل النموذج منبثق ، والذي به الكثير من المشاكل) ، 5. فتح النموذج الاول من البرنامج ، . هذه هي الوحدة النمطية التي تقوم بالعمل (1) اعلاه : Public Function f_ReLink_To_Original(Optional Seq As Integer = 1) 'On Error GoTo err_f_ReLink_To_Original On Error GoTo Exit_f_ReLink_To_Original ' ' The client have his own path to the linked BE tables, ' yet for Development when we want to do change and modifications on the FE, ' we want to link this FE to our local BE tables, for testing, ' and we are done, we will send this FE back to the client, which will have our BE path!! ' ' Although the FE have a code on startup, which will prompt for the new BE path, but not all clients know how to use it!! ' So I added a table tbl_ReLink_To_Original to the FE, and the path to the client BE path, as Seq = 1 , ' and for the Developer BE, the Seq is 2 or other numbers. ' ' for the Development BE path, we call this Function, for the immediate window: ' ?f_ReLink_To_Original(2) ' ' or from a normal Event: ' Call Call f_ReLink_To_Original(2) ' ' and enter the DB with Shift key, ' ' and when the FE goes to the client, this Function will call Seq = 1 by default, thus returning their correct Path. ' ' ' by jjafferr ' ' v1. 24-Feb-2020 ' Dim db As dao.Database Dim tdf As dao.TableDef Dim ConnectionString As String, Linked_Connection As String Set db = CurrentDb 'which BackEnd the user selected ConnectionString = DLookup("[DB_Path]", "tbl_ReLink_To_Original", "[Seq]=" & Seq) 'the existing BackEnd Linked_Connection = DLookup("[Database]", "MSysObjects", "[flags] = 2097152") 'if the existing BackEnd = User Selected, then No need to connect again, just exit If ConnectionString = Linked_Connection Then GoTo Exit_f_ReLink_To_Original For Each tdf In db.TableDefs ' Only make a change if the table is a linked table If Len(tdf.Connect) Then tdf.Connect = ";DATABASE=" & ConnectionString tdf.RefreshLink End If Next Exit_f_ReLink_To_Original: Exit Function err_f_ReLink_To_Original: If Err.Number = 3170 Then 'MsgBox "رجاء التاكد من مسار القاعدة الموجوده في الجدول" & vbCrLf & "tbl_ReLink_To_Original" 'Resume Next Resume Exit_f_ReLink_To_Original Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_f_ReLink_To_Original End If End Function . اما للمبرمج ، فيجب عليه ان يدخل الكود ويكتب (لاحظوا اننا استخدمنا الرقم Seq = 2 ، ليشير الى السجل الثاني في الجدول ، المشير الى مسار الـ BE حسب مجلدات الكمبيوتر عندنا (3) : من نافذة الكود السفلى: immediate ?f_ReLink_To_Original(2) او من اي حدث Call f_ReLink_To_Original(2) . واذا اردت الاستفادة من هذه الطريقة لبرامجك ، فيجب عليك استيراد هذه الكائنات الى برنامجك (مع الاخذ في الاعتبار تغيير اسم النموذج في ماكرو autoexec ) : جعفر Relink Tables.zip

اذا اردت ان تحدد الصفوف المكررة في جدول ما اليك هذا الملف Find_dup_rows.xlsm

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

الله ينور عليك اخ سليم تسلم ايدك شكرا جزيلا

جرب هذا الملف My_Book10.xlsx

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

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

اخي العزيز تفضل اتمنى يكون المطلوب نسالك الدعاء احي الكريم اختبار-2.rar

ممكن تتكرم علينا بشرح الية عمل البرنامج بدلا من محاولة فهمه ..... مثلا كيف واين يتم ادخال الباركود في واجهة البرنامج كيف يتم التحضير للطلاب هل البرنامج يدخل التاريخ واليوم والحصة تلقائي ام يدوي ............... الخ ......... الخ

السلام عليكم هلا انا اظهرت لك زر للتقرير في المرفق خسب طلبك الاول الطلب الثاني انتظرني ان شاء الله تحياتي اختبار.rar

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

أ.fuadco مش عارف انا كده فهمت المطلوب ام لا .. جرب ووافنى بالنتيجة علما بأن التعديل تم على تقرير الغياب بالتوفيق الحضور.rar

ممتاز عاشت ايدك استاذ العزيز

رائع أستاذنا ، رائع بارك الله فيك وكثر من أمثالك مبدع وعقلية جبارة الله يحفظك ويزيدك من فضله احتاج هذا الملف كل أسبوع تحياتي يا كبير

السلام عليكم ورحمة الله تفضل يمكنك اختيار الاسماء من القائمة المنسدلة بورقة البيان و الكود سيعمل وحدة بيان حالة.xls

تفضل بيانات الموظفين.xlsm

غير المعادلة الى الفاصلة , لو المعادلة لم تعمل على جهازك ومن المفيد ارسال ملف للمطلوب بعد ذلك التاريخ والوقت المقابل.xlsx

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

وعليكم السلام 🙂 اضف هذا المتغير الى القائمة: Public Const msoControlPopup = 10 جعفر