ابوخليل

اذا الخلل سببه جهاز البصمة . الحل هو عمل استعلام تصفية حسب تنسيق تاريخ قصير وتستخدم الدالة first للدخول و last للخروج او نحو ذلك من المعالجة في مثالك المرفق ، الجدول لا يحتوي على بيانات ، كان الافضل لو تم تعبئته بالبيانات المناسبة الكافية

عجبي هو 198 مشاركة ومع هذا لا تجيد كتابة عنوان مناسب ؟؟ ايضا انت لم تبحث في المنتدى ، حيث ان المنتدى مليء لو بحثت لوجدت طلبك اقرب من يدك اليك ؟؟ وكل هذه تعد مخالفة لقواعد المشاركة يغلق ،،،

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

طبعا لن تستطيع التعديل من خلال النموذج لأن مصدر بياناته الاستعلام والاستعلام هذا كافة حقوله محسوبة ومبنية على ثلاث حقول x1 x2 x3 والحل ان تستخدم للتعديل نموذجا خاصا مرتبطا بالجدول بمعنى ان التعديل سيكون على البيانات الأصلية الموجودة في الجدول فقط

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

بالتأكيد السبب هو كثرة الأوامر داخل الاستعلام واسهل طريقة هي تجزئة الاستعلام انظر مثالك بعد التعديل نسبة الاستهلاك1 .rar

نعم ما اقصده هو : كلمة مرور محرر الفيجوال ، كلمة مرور قاعدة البيانات

هذا جميل فيما يخص كلمات المرور ، والدليل هو توفر برامج جاهزة لهذا الغرض ولكن ماذا حول ارجاع قاعدة بيانات بصيغة mde الى صيغتها الاصلية mdb أو accdb الى accde مع الاحتفاظ بجميع الأكواد داخل القاعدة سليمة ؟ هل حاول احد منكم ونجح ؟

يبدو انك تريد عمل اهلاك للأصول انظر هنا

بالنسبة لما يخص المبرمج فأنا اكتفي بتحويل المشروع الى صيغة mde او صيغة accde والمهم عندي هو حماية بيانات العميل .. وأكسس ضعيف في هذا الباب

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

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

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

السلام عليكم بدون احداث افتح اي وحدة نمطية عامة ( module) موجودة في البرنامج عندك والصق السطرين في اعلى الصفحة بشرط يكونوا تحت Option Compare Database Option Explicit ويمكن تجد فقط Option Compare Database

انا لم اعمل اي تعديل على القيم فقط عدلت على خصائص مقطع الصفحات

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

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

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

كلام جميل او يمكن اعتبار الموجودات الحالية عند بدء استخدام البرنامج وإدخالها كرصيد أولي

تفضل .. اتمنى يكون هو مطلوبك Upالملاك 2021.rar

الطريقة السابقة تتعامل مع السجلات عبر النموذج جرب هذه الطريقة من خلال الجدول مباشرة Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("folllow") rst.MoveFirst Do Until rst.EOF If rst![رقم العملية] = Me![T4] Then MsgBox " السجل مكرر ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close F06.rar

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

تأكد من المكتبات tools \ references

Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![رقم العملية] = Me![T4] Then MsgBox " السجل مكرر ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close F05.rar