Foksh

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

بعد امر الحذف استخدم الأمر Docmd.Requery ينفع

تفضل اخي الكريم IIf(IsNull([total_arbic_nesf]), "الحقل فارغ", IIf([total_arbic_nesf]>=85, "ممتاز", IIf([total_arbic_nesf]>=65, "جيد جدا", IIf([total_arbic_nesf]>=50, "جيد", IIf([total_arbic_nesf]>=1, "ضعيف", IIf([total_arbic_nesf]=0, "غ", "")))))) جرب وأعطيني النتيجة 🤗

لي تعليق على نظام الاجازات في قانون العمل والعمال .. اذا الموظف أخذ اجازة 3 ايام لنفرض انها بدأت من الخميس 21/03/2024 ،فهذا يعني ان أيام الجمعة والسبت كأيام عطلة رسمية يتم احتسابهم من أيام الإجازة وإلا فإن الموظف سيباشر عمله صباح الثلاثاء ( خميس وأحد وإثنين ) ، وهذا ليس منطقي أما إذا انتهت الإجازة مساء الخميس ولحقها يومي عطلة رسمية (جمعة وسبت) وباشر الموظف عمله يوم الأحد فإن الجمعة والسبت لا يتم احتسابها كأيام غياب في نظام شؤون الموظفين.

دي نسخة مختلفة عن اللي أول مشاركة فهمني ايه اللي انت عاوزة دلوقتي

انا اللي مش فاهم حاجة يا صاحبي اللي يظهر عندي غير اللي يظهر عندك . مش عارف أروح فين هي أصلاً مش بتطلع في النسخة اللي حضرتك رفعتها يا سامر

جرب كدة Arciving222.zip جرب المرفق بعد تعديل مصدر التقرير

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

ده اللي ظهر عندي في الفترة بين التاريخين في التقرير 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 ، وسيتم إضافة الملف مفتوح المصدر قريباً لأي ملاحظات أو استفسارات ، يسعدني متابعة ملاحظاتكم للعمل على التطوير قدر المستطاع ليشمل معظم الحاجات