Foksh

نزلت الملف مرتين للتأكيد ، ونفس النتيجة أخي سامر

ده اللي ظهر عندي في الفترة بين التاريخين في التقرير Ekhla_Details

إزاي يعني !!!!

أخي الكريم رمضان كريم 🤗 العنوان ليس له علاقة بالموضوع وهذا مخالف لقوانين المنتدى. التوضيح لمشكلتك بشرح واضح مع ارفاق ملف للمشكلة . شكراً لك ، وأهلاً بگ في منتدانا 🥰

فكرة !! في مديول ( وحدة نمطية ) ضع الكود التالي:- Function IsChromeOpen() As Boolean Dim objShell As Object Dim objChrome As Object On Error Resume Next Set objShell = CreateObject("Shell.Application") Set objChrome = objShell.Windows("chrome.exe") If Not objChrome Is Nothing Then IsChromeOpen = True Else IsChromeOpen = False End If Set objChrome = Nothing Set objShell = Nothing End Function ثم في النموذج يمكنك وضع هذه الوظيفة للتأكد من حالة المتصفح :- Private Sub CheckChromeStatusBtn_Click() If IsChromeOpen() Then MsgBox "المتصفح Chrome مفتوح." Else MsgBox "يجب فتح المتصفح Chrome." End If End Sub وتستطيع توليفه كما تشاء حسب حاجتك 😊 جربه واخبرني بالنتيجة 🤗

كفكرة جانبية.. لم لا تقوم بإضافة البيانات التي في النموذج الى جدول مؤقت عن طريق استعلام إضافة ، ثم تصدير هذه البيانات الى آكسيل باستعمال إحدى الطرق التي تم ذكرها ، ثم تفريغ الجدول بعد ذلك حتى لا تختلط البيانات ، كونك ترغب بترحيل بيانات محددة معروضة في النموذج الحالي !!!

اعتذر عن انشغالي وعدم المتابعة اليوم بسبب العمل ، سأتابع معك أو أحد الإخوة إن سبقني غداً إن شاء الله 🤗

ومشاركتي البسيطة هنا يتم فيها فتح النموذج واخفاء الزر واغلاقه مرة أخرى بدون اي أخطاء 222.accdb

ممكن توضحلي آلية عمل برنامجك ، فين بدايته وكيفية تتالي ادخال البيانات الأساسية .... الخ

عمل جميل أستاذ @Barna

أبداً مفيش مشكلة خالص ، بس لو تتحملني لبعد الإفطار لإني لسه حالاً خرجت من الشغل وراجع بعد الإفطار إن شاء الله 😊

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

أخي الكريم ، ينفع حتى لو ماكنش بين الجداول علاقة ، في آكسيس عندك طرق كتيرة تجيب فيها البيانات حسب مفتاح أساسي مثلاً وبدون ما يكون في علاقة بين الجداول .

يبدو أنك يا صديقي فاهم الموضوع غلط , هنا المساعدة علنية وليست بالسر

تم إجراء بعض التعديلات والتحديثات على نظام إدارة الحضور والإنصراف كالآتي لما سبق في النسخة الأولى :- إضافة صورة للموظف إما من داخل الكمبيوتر أو من خلال الماسح الضوئي Scanner ، وسيتم تخزين الصور برقم الموظف في مجلد Data الذي سيتم انشاءه تلقائياً عند فتح البرنامج إذا لم يكن موجوداً مسبقاً . تم إضافة الباركود برقم الموظف لإستخدامه لاحقاً في كرت الموظف لتسجيل الحضور والإنصراف . تم تعديل بعض الإحتسابات لحساب التأخير العادي و المتكرر و احتساب الغياب بطريقة تضمن عدم وجود الخطأ بنسبة كبيرة . تم إضافة ميزة تمديد الإجازة للموظفين الذين لهم إجازة غير منتهية ( سارية ) . أو اعتبارها إجازة جديدة وسيقوم النظام بتفعيل الإجازة بعد نهاية الإجازة الحالية الغير منتهية . تم إضافة نظام تتبع عدد الإجازات - ( لتجربته في نموذج طلب إجازة ) - وترحيلها من رصيد الإجازات السنوية ( حسب درجة الموظف الوظيفية ) في الإعدادات تم إضافة طباعة كرت للموظف ( باجة ) بشكل بسيط ولكم مستقبلاً حرية التعديل حسب الرغبة ؛ بحيث تشمل البيانات الأساسية للموظف مع صورته ورقم الباركود لإستخدامه في جميع خصائص النظام . وهنا سيكون الخط المستخدم للباركود مدمجاً في الملف المضغوط لتثبيته على الكمبيوتر - مرة واحدة طبعاً . تم تعديل طريقة عرض التقارير ( للتأخير والغياب ) بحيث تعمل باستعلام داخلي مدمج في الأكواد . سيتم إضافة ملحق لجعل الجوال يقوم بوظيفة قارئ الباركود لقراءة باركود الموظفين عن كارت الموظف لتسجيل الحضور والإنصراف ( كنظام البصمة ). ....... والمزيد ما زال العمل على التطوير جارياً ، لذا عذراً منكم بأن الملف حالياً سيبقى بصيغة ACCDE ، وسيتم إضافة الملف مفتوح المصدر قريباً لأي ملاحظات أو استفسارات ، يسعدني متابعة ملاحظاتكم للعمل على التطوير قدر المستطاع ليشمل معظم الحاجات

حسب ما فهمت ، تريد الكود في زر الحفظ ؟؟ مع تطبيق الشروط الحالية عليه ؛ صحيح ؟ تفضل ، وأخبرني بالنتيجة Arciving222.zip

تم التعديل على طريقة تنفيذ الكود ليكون الكود كاملاً في زر الحفظ .. مع الذهاب الى سجل جديد عند فتح النموذج Arciving222.zip