biskra

يا أستاذ جعفر رجاء نزل الملف المرفق في ردك الأول و تأكد من وجود ما ورد في آخر رد لك في الموضوع، المفروض لما يتم تعديل على ملف يتغير حجمه، لاحظ حجم الملف المرفوع من صاحب الموضوع هو نفس حجم الملف المرفوع من طرفك أخي الكريم

أنا قلت حسب فهمي من السؤال ممكن أكون مخطئ لأني لما راجعت المثال المرفق من طرفك أستاذ جعفر لم أجد فيه الاستعلام الوارد في جوابك الأول و أعتذر إن كانت مشاركتي فيها إزعاج

حسب فهمي من السؤال يجب أن يعدل على الإستعلام و اختيارحقل المغادرة عوض حقل تاريخ العودة

محاولة أخرى و ربما بطريقة بسيطة بواسطة الكود حسب المثال المرفق Const cDQ As String = """" Sub AuditTrail(frm As Form, recordid As Control) 'Track changes to data. 'recordid identifies the pk field's corresponding 'control in frm, in order to id record. Dim ctl As Control Dim varBefore As Variant Dim varAfter As Variant Dim strControlName As String Dim strSQL As String On Error GoTo ErrHandler 'Get changed values. For Each ctl In frm.Controls With ctl 'Avoid labels and other controls with Value property. If .ControlType = acTextBox Then If .Value <> .OldValue Then varBefore = .OldValue varAfter = .Value strControlName = .Name 'Build INSERT INTO statement. strSQL = "INSERT INTO " _ & "Audit (EditDate, User, RecordID, SourceTable, " _ & " SourceField, BeforeValue, AfterValue) " _ & "VALUES (Now()," _ & cDQ & Environ("username") & cDQ & ", " _ & cDQ & recordid.Value & cDQ & ", " _ & cDQ & frm.RecordSource & cDQ & ", " _ & cDQ & .Name & cDQ & ", " _ & cDQ & varBefore & cDQ & ", " _ & cDQ & varAfter & cDQ & ")" 'View evaluated statement in Immediate window. Debug.Print strSQL DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If End If End With Next Set ctl = Nothing Exit Sub ErrHandler: MsgBox Err.Description & vbNewLine _ & Err.Number, vbOKOnly, "Error" End Sub نقوم باستراد الكود و الجدول المسمى Audit إلى قاعدة البيانات، و في النموذج أو النماذج نستدعي الكود في حدث قبل التحديث Private Sub Form_BeforeUpdate(Cancel As Integer) Call AuditTrail(Me, Auto_ID) End Sub حسب المثال نفتح النموذج Frm_info و نقوم بالتعديلات للتجربة ثم نفتح الجدول Audit و سوف نجد تسجيل لكل التعديلات، و خاصة اسم أدمن الجهاز أو المستخدم للجهاز رابط الكود للفائدة https://www.techrepublic.com/article/a-simple-solution-for-tracking-changes-to-access-data/ Access Tables Magic.accdb

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

جرب الكود التالي في حدث KeyDown في خصائص التقرير If KeyCode = vbKeyP Then MsgBox "عذرا لا يسمح لك بالطباعة", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyV Then MsgBox "عذرا لا يسمخ بنسخ صورة التقريرm", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyC Then MsgBox "عذرا لا يسمح بأخذ نسخة من شاشة التقرير", vbCritical, "ERROR" KeyCode = 0 نعدل لتعطيل نسخ الشاشة و لصقها أي تعطيل Ctrl C و Ctrl V

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

معذرة أخي الكريم، تجاوز مشاركتي.

على الرابط التالي ممكن كود مهم يساعد على تحويل النص الى جدول في الأكسس، https://saplsmw.com/Import_a_text_file_as_a_table_in_MS_Access_using_VBA

ممكن توضيح أكثر للمطلوب، لاحظت أن التقارير الثلاثة هي متاطبقة، هل تريد فرزها على شكل معين؟

هكذا سوف يسهل على الأخ NSSJ التعديل عليه حسب رغبته بتعديل رقم واحد فقط حسب رغبته.

المسألة منطقية، أنت من يحدد المجال، إذا كنت تقدر عدد السجلات في الشرط الأول 200000 كحد أعلى، يجب أن تأخذ بعين الإعتبار هذا الرقم "200000" ليكون بداية الترقيم للشرط الثاني،

الأستاذ أبو خليل ملاحظة بسيطة على الكود، يحتمل أن أكون مخطئ فيها قمت بتجربته، و وجدت أن عدد السجلات من نوع (TYPE1) = 1 أي التي تخضع للإجراء الأول من الكود عددها 741 سجل، فعوضت رقم 10000 بـ 741 و نفذت الكود، فلاحظت أن الشرط الثاني من الكود بدأ أول سجل فيها من رقم 742 عوض أن تبدأ من 741 قياسا على بداية العدد بـ 10001 لما كان المعيار 10000، أظن أن المجال يجب أن يكون 9999 في هذه الجزئية. مجرد رأي على كل حال، For i = 0 To 9999 Step 0

ابحث في المنتدى عن تخفيض الأمان في الأكسس سوف تجد الحل.

في هذه الجزئية عوض الأرقام في الكود 10000 بـ 20000 فقط،

سؤال على سؤال: الذي يحضر لمقر العمل قبل ساعة من الوقت المحدد لبداية عمله، يعمل إيه في مقر عمله؟ هل يستحق ممتاز؟ بكل تأكيد لا، في الإدارة يوجد معيار الحضور في الوقت، و هذا المطلوب و هو من نصفه بلا يوجد تأخير، و يوجد تأخير يمكن أن تنتج عنه محاسبة، و منه فالوقت ممتاز لا وجود لمبرر لها على الإطلاق.

البديل هو فقط استخدام مربعات التحرير والسرد أو مربعات القوائم في النماذج.

ليس لتشعيب الموضوع، لكن أقدم لكم برنامج حصور و انصراف و متابعة للغيابات و أسبابها و الكثير مصمم باحترافية مفتوح المصدر بعدد محدود من الجداول و الاستعلامات لكنه شيق جدا مصمم من طرف محترف فرنسي يمكن التعديل عليه و استغلاله للوصول الى حل مقبول للبرنامج موضوع السؤال بالمنتدى، ربما عيبه بالنسبة للبعض المصطاحات الفرنسية سوف أضع لكم رابط شرح كلي لكيفية تصميمه و الأكواد و شرحها بالفرنسية ممكن ترجمتها بقوقل بسهولة، لكن مستعد للمساهمة في الترجمة لمن أراد و أعجبه البرنامج، فقط و احتراما لقواعد المنتدى فإنني اضع البرنامج بين أيديكم و الموقع. الرنامج يحمل نسختين هناك النسخة الأولى و الثانية التي تعتبر تطوير للأولى، اكتشفوا الأولى فهي الأساس. https://denishulo.developpez.com/tutoriels/access/planningv3/#LV gestion-planning(1).zip

تم حل المشكل و يتعلق بإعدادات اللغة unicode

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

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

هناك برنامج تجدنه على الويب يستعمل لتحويل البيانات أوراكل إلى أكسس أي على شكل جداول شخصيا سبق لي أن استعملته لاستخراج البيانات من أوراكل الى الأكسس، ابحث عن برنامج from oracle to access

بعد التجربة يعطي النتيجة المطلوبة، يجب تجنب استعمال last و first لأن النتيجة المطلوب تحقيقها غير مضمونة على الرابط التالي نوقشت الفكرة https://www.officena.net/ib/topic/108275-مشكلة-غريبة-فى-استعلام-خاصية-last/

لا يمكنك مطلقًا معرفة كيف سيتم ترتيب نتائج الاستعلام ما لم تحدده صراحة عبارة ORDER BY. يجب بدلاً من ذلك تسمية وظيفتي المجال DFirst و DLast باسم DRandom. من المستحيل معرفة ما سيعودون بالضبط. على الرغم من أنه يتطلب جهدًا إضافيًا ، فمن الأفضل عادةً استخدام الدالتين Min- و Max التجميعيتين لإرجاع نتيجة محددة وموثوقة. "من موقع أجنبي مترجم"