Foksh

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

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

لو أنك قرأت التعليق أخي طاهر .. استبدل الجزء :- Nz(Me.txtCopies, 1) برقم يمثل عدد النسخ التي تريد طباعتها .

تفضل Prin3.zip

جرب هذا التعديل الجذري :- Private Sub detaché_AfterUpdate() On Error GoTo Err_detaché_Click If IsNull(Me.TxtMonth) Then MsgBox "اختر الشهر" Exit Sub End If Dim Titles1 As Variant Dim Titles2 As Variant Titles1 = Array("مصالح البلدية", "متعاقدين 8 سا", "عمال متعاقدين 5 سا", "حراس متعاقدين 5 سا", "اعوان النظافة والتطهير") Titles2 = Array("للعمال الموظفين", "للعمال المتعاقدين بالتوقيت الكامل", "للعمال المتعاقدين بالتوقيت الجزئي", "للحراس المتعاقدين بالتوقيت الجزئي", "للعمال اعوان النظافة والتطهير") Dim idx As Long idx = Me.detaché.ListIndex If idx < 0 Then Exit Sub Me.Reporte_Title.Visible = False Me.Reporte_Title = Titles1(idx) Me.Report_Title = Titles2(idx) Dim Copies As Long Copies = Nz(Me.txtCopies, 1) ' يمكن ربطه بمربع نص في النموذج أو وضع رقم ثابت DoCmd.OpenReport "rptDiscount", acPreview, , , , "qry_rptD|" & Copies Exit Sub Err_detaché_Click: If Err.Number = 2501 Then Resume Next End Sub وداخل التقرير ، في حدث عند الفتح :- Private Sub Report_Open(Cancel As Integer) Dim Args As Variant Dim QryName As String Dim Copies As Long Dim i As Long If Not IsNull(Me.OpenArgs) Then Args = Split(Me.OpenArgs, "|") QryName = Args(0) If UBound(Args) >= 1 Then Copies = Val(Args(1)) Else Copies = 1 End If For i = 2 To Copies DoCmd.PrintOut acPages, 1, 1 Next i End If End Sub

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

وعليكم السلام ورحمة الله وبركاته .. بدايةً لا تقترف خطأ كبيراً بتسمية المكونات بأسماء محجوزة لآكسيس مثل ، Form أو Group . ثم ان الفكرة بسيطة جداً .. انظر الفكرة التالية في المرفق :- FAST_CA.zip

ولهذا قمت بتقسيم الحدث إلى موضعين ، مع الإضافة التي ذكرتها . حيث تم منع الجمود كلياً ، لأننا سنعتمد على التحديث المحلي كل ثانية على الوقت الحقيقي من الانترنت الذي تم جلبه بدايةً .

وهذا بالضبط ما شعرت به عند تعيين قيمة 1000 في المؤقت بدلاً من 10000 ، وكمحاولة بسيطة للإيجاد حل يمنع حالة الجمود في النموذج عند جلب الوقت الحقيقي في النموذج . وقد خطر ببالي تجزئة الأحداث لموقعين بدلاً من حدث عند الوقت للنموذج ، بحيث يكون التعديل كالتالي .. Private Sub Form_Load() If IsInternetConnected() Then varGeneralDate = InternetTime(1) Else varGeneralDate = Now() End If End Sub Private Sub Form_Timer() Me.TimeLbl.Caption = Format(varGeneralDate + (Now() - Date), "hh:nn:ss AM/PM") End Sub عند السطر ‎:- Me.TimeLbl.Caption = Format(varGeneralDate + (Now() - Date), "hh:nn:ss AM/PM") فأنت تجمع بين الوقت الذي جلبته من الإنترنت والمقدار الذي يمثل الساعات والدقائق والثواني التي مرت منذ منتصف الليل للوقت المحلي ، لأن ‎Now يعطي التاريخ والوقت معاً بينما ‎Date يعطي التاريخ فقط ، والفرق بينهما هو الوقت الحالي على جهازك . بإضافة هذا الفرق إلى الوقت المرجعي القادم من الإنترنت ، يصبح لديك ساعة تتحرك لحظياً باستخدام ساعة النظام ولكن أساسها هو الوقت الحقيقي من الانترنت ، وبذلك يظهر للمستخدم الوقت الصحيح من الإنترنت بشكل مستمر دون الحاجة إلى إعادة الاتصال كل ثانية .

التايمر = 10000 أي أن تحديث الوقت كل 10 ثواني . هذا ما لاحظته في النموذجين . لا اعلم عن هذه الإشكالية لإني لم أمر بها يوماً 😅 . ولكن ما دمت تفضلها ولم تجد أي تعارض فهي لك . حجزت المتغيرين ( yom , tar ) أحدهما نصي والآخر تاريخ في مديول جلب الوقت من الانترنت مع تعديل المديول ومصدره كاملاً. مع تحديد قيمهما داخل نموذج تسجيل الدخول في حدث زر الدخول . وقد لاحظت فارق كبيراً في جلب القيم لنموذج تسجيل الحضور والانصراف عند فتحه. المديول الثاني ، تمت عليه تعديلات سطحية بسيطة ، لذلك قد تكون غير ملحوظة . دعتني هذه الجزئية الى سؤال .. ماذا إن كان لموظف تغيير ورديته من صباحية الى مسائية !! هل هذا يعني أنه لن يتمكن من تسجيل حضوره في ورديته الجديدة أو البديلة ؟؟؟

أنك غير قادر على إضافة الاستعلام لقاعدة البيانات كونها محمية بمفتاح الشيفت + ACCDE . الإخفاء ليس فكرة واردة لعدم نجاحها ، فبطبيعة الحالي يمكن الحصول على مسار قاعدة البيانات الخلفية أينما كانت من خلال قاعدة بيانات أخرى . لكني كنت قد علّقت على موضع الإستعلام ان كانت القاعدة Hide Access + منع مفتاح الشيفت .

وبما أن معلوماتي ليست بالمستوى الذي يسمح لي بإبداء الرأي في عمل معلمي .. إلا أنني وبما أني أحد تلاميذك فاسمح لي ببعض النقاط التي اقترحها . في لوحة الأساسيات ، لم تتح إمكانية التحكم التعديل بـ / على أوقات بدء الدوام . بما أنه لدينا سلوكين لتسجيل الحضور والإنصراف في نموذجين منفصلين ( TimeF و TimeFB ) ، فأنا عادة أحاول الدمج في نموذج واحد . خطر ببالي فكرة وهي ، نقل وإنشاء المتغيرات التي تأتي بالوقت الحالي من الانترنت ، من موضعها الحالي إلى نموذج تسجيل الدخول ، مع تغيير مصدر الحصول على الوقت العالمي من الانترنت لمصر أسرع قليلاً . الحدث Id_KeyDown داخل النموذج frmcomIn ليس له لزوم بما أنه مستخدم في حدث النموذج نفسه . ونفس الشيء في النموذج frmcomInB كونه نسخة عن الأول . أما بخصوص جعل كل فترة حرة حتى لو تداخلت الأوقات ، كفكرة جميلة وتعطي ليونة ومرونة بدلاً من ضبط وإلزام النظام بأن الفترات يجب أن تكون منفصلة تماماً . ولكن في التقارير على سبيل المثال ، إذا سمحت بالتداخل ، كيف سيتم حساب الساعات الفعلية ؟ هل ستحسب مرتين إذا تداخلت الفترتان ؟؟؟؟؟ كفكرة عامة ،، تعديلاتي البسيطة التي خطرت ببالي بعد القاء نظرة ليست تقييمية أبداً بقدر ما هي مقترحات ، كانت تتلخص في الملف التالي . ChkInOut_NetUp3.zip

إذا موضوع التنسيق للناتج يبدو أنه بحاجة للوضوح أكثر بحيث وأعتقد أن الشكل الصحيح للدقيقة = 00:01 * وجهة نظر غير ملزمة طبعاً

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

الملف الأصلي يعمل بدون مشاكل .. وحيث أنه بعد التجربة ، كانت لتجربتي ملاحظتان ، إحداهما قديمة لكني لم أتطرق لها مسبقاً . عند فتح نموذج تسجيل الحضور والإنصراف لاحظت بطئاً ملحوظاً عند فتح النموذج . الثانية توضيح لطريقة الحساب لعدد الساعات الظاهرة في الصورة التالية :- هل المقصود بـ 0:1 هو دقيقة أم عشر دقائق ؟؟

الحمد لله على نجاح الفكرة 😇🤗

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

xx هي فعلاً فرق الرقم بين 14 و 16 حسب إصدارات الأوفيس لديك . وبما أنك لديك أوفيس 2010 ، فالقيمة XX ستكون 14 كما ذكرت . على العموم ، قم بضبط و تعديل ملف الأكسل بحيث تنقل الجدول الى الخلية A ، كما في الصورة ، ثم استخدم الأداة وستجد أنها جلبت القيم لك من جدول اكسل الى جدول اكسيس .

وعليكم السلام ورحمة الله وبركاته.. كرر امر الطباعة عدد المرات التي تريدها من خلال زر واحد ليتم طباعة التقارير بالتسلسل. إن كان الأمر كما أتصور في Word فرضاً . فإن الويندوز سيحتفظ بأوامر الطباعة في جزء من الذاكرة العشوائية في صندوق الطباعة الذي يظهر بجانب الساعة .

وعليكم السلام ورحمة الله وبركاته.. إن كنت تقصد أنك تريد استيراد قيم من ملف اكسل الى جدول اكسيس ، فألقِ نظرة على هذا الموضوع:-

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

جميل جداً هذا التوضيح والطريقة الجميلة أيضاً .. التعرف على أنه إذا كانت Type = 1 وبالتالي النوع 1 = جدول هي بحد ذاتها أيضاً فكرة جميلة . وبما أن قيمة الـتعليمة Flags = -2147483645 وهي قيمة ثابتة في اكسيس لجميع إصدارات أوفيس ، وهي للتوضيح الواجب أنه ليس لأوفيس علاقة بفرضها بهذه القيمة . بل يفرضها نظام التشغيل نفسه ( Windows ) على حد علمي . أما بخصوص السطر والفكرة التالية :- فهي بحد ذاتها جريئة وإلتفاته فتحت لي أفكاراً جديدة في هذا الخصوص . فشكراً لك ولكل من ساهم بإثراء الموضوع بمشاركته الجميلة والقيمة كجوهره

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

أعلم يقيناً ذلك وبقناعة مطلقة ، إلا أنني .. في أحد المشاريع لبرنامج خاص بمكتب تسهيلات الفيزا لأحد الأصدقاء . كان لي توجه بحيث !!!!! 1. عند تشغيل قاعدة البيانات يتم الإتصال بقاعدة البيانات الخلفية الأساسية . واستخراج قاعدة بيانات خلفية أخرى بنفس الجداول مخفية في مسار داخل الويندوز ( لعدم أهميته لأنه خالي من البيانات ) 2. عند الإغلاق يتم إعادة ربط قاعدة البيانات قبل اغلاقها بقاعدة الجداول الخلفية الوهمية ( التي لا تحتوي على بيانات ) . طبعاً الثغرة واضحة جداً لمن يتمعن إلا أنها كانت متينة عند عدم عمل قاعدة البيانات بأنه لن يجد أي شخص بيانات داخل قاعدة البيانات الخلفية .

ما شاء الله عليك .. أولاً نشكر معلمنا أبو خليل لمشاركته وجعله الحافز الذي أنرت به موضوعي المتواضع .. شرح جميل جداً وطريقة مبتكرة أيضاً وجميلة .. سلمت تلك الأنامل والأفكار النيراتِ