ابوخليل

=Dmax("Category_Code";"Items") قاعدة بيانات2.rar

ارجوا القراءة والتطبيق بدقة : على اعتبار وجود نسخة دائمة من الواجهات بجانب قاعدة الجداول على الخادم ، ويقوم المبرمج باستبدالها يدويا عند كل تحديث اولا - الجدول الذي يتم فحصه موجود في الواجهات وليس في قاعدة الجداول 1- مرفق مجلدين : wz ويوضع داخل الجهاز الخادم ويحتوي على قاعدة الجداول zzData.mdb وملف الواجهات dbz.mdb وداخله جدول الفحص tbl1 ، للتجربه ضعه على قرص C 2- جدول الفحص هذا يشتمل على حقل رقمي نضع فيه رقم النسخة المحدثة ثانيا : المجلد الثاني fre هو مجلد الواجهات الذي نضعه للمستخدمين داخل الاجهزة الفرعية ويشتمل على ملفين أو بالاصح (قاعدتي واجهات) الاولى dbz.mdb وهي الواجهات والثانية ملف وسيط start.mdb وهي التي سنضع لها اختصار على سطح المكتب اي هي التي ستقلع اولا ووظيفتها فحص ملف الواجهات الموجود على الخادم هذه الوسيطة يوجد داخلها جدولين احدها مرتبط بملف الواجهات الموجود على الخادم والآخر محلي كل جدول يحتوي على حقل رقمي واحد فقط عند تشغيل الوسيطة يتم المقارنة بين الحقلين فإن كانا متساويين يتم تشغيل الواجهة التي بجنب الوسيطة وان كان الرقم المرتبط اكبر من الرقم المحلي يتم التالي : _ استبدال الواجهة القريبة بالواجههة البعيدة _ تحديث قيمة الحقل المحلي بحيث يكون مساويا للرقم المرتبط _ تشغيل الواجههة لاحظوا : _ ان قاعدة بيانات البرنامج ( الجداول ) ليس لها اي دور في العملية _ ملف الواجهات يجب ان يبقى بصورة دائمة بجوار الداتا بيس وانما يستبدل بالجديد عند التحديث _ عند تصفح الملف الوسيط ورؤية الكود ستبدوا لك العملية بصورة اوضح fre.rar

وجدتها لك يا بو احمد اولا دعنا نسمي : 1-الامامية 2- الخلفية لقواعد البيانات الواجهات والجداول حتى يسهل فهم الشرح بنفس فكرتك وتكون كالتالي : 1- عمل جدول محلي داخل الأمامية يحتوي على حقل واحد نضع فيه رقم التحديث 2- استخدام دائم لواجهة في بداية التشغيل وسيطة مرتبطة بالأمامية الجديدة التي ستضعها على السيرفر 3- يكون عمل هذه الوسيطة هي التأكد من رقم التحديث هناك 4- اذا كان الرقم اكبر من المحفوظ في الوسيطة يتم استبدال الامامية الحالية بالامامية التي على السيرفر ثم تشغيلها وغلق الوسيطة 5- اذا كان الرقم مساويا يتم تشغيل الامامية الحالية فقط وغلق الوسيطة

تمام اعتقد طريقتك الاولى جيدة ، ولكن امنحني بعض الوقت اجرب عليها _ يامجرب _ لعلي استطيع تحويلها آليا

السلام عليكم المطلوب غير واضح بالضبط هل التحديث لقاعدة الجداول الموجودة على الخادم ام للواجهات التي على اجهزة الموظفين واذا التحديث يتم على قاعدة الجداول : من الذي يضع قاعدة البيانات الجديدة بجانب القديمة ؟ اي كيف يتم ذلك ؟ ولماذا لا يتم الاستبدال في الحال ؟

السلام عليكم اكسس لا يفرق بينهما لان الاسم واحد ولا بد من شيء ينفرد كل واحد لذا فكرة ابو ياسين صحيحة بحيث يضيف المعرف وبما انه رقمي سيصبح هكذا : rst.FindFirst "[pre]='" & list0.Column(2) & "' And [nom]='" & list0.Column(1) & "'And [Noct]=" & list0.Column(0) وهذا البرنامج بعد التعديل : برنامج شهادة عائلية .rar

رفع الله قدرك ، ووفقك لكل خير ، الف شكر استاذ محمد

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

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

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

ما خط بالاحمر هو بيت القصيد وقد جربت البرنامج صغير الحجم ورائع ‘ واذا امكننا تجاوز مربع الحوار فهو المطلوب وما زلت انتظر استاذنا وحبيبنا نارت

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

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

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

شكرا لكم احبتي على مروركم وتفاعلكم .. وكل ما تفضلتم به أعلمه ولكن لعل ما امتنع بالامس يتحقق اليوم

السلام عليكم اخواني واحبتي الكرام كما هو واضح في العنوان ؛ اريد كود يقوم بتصدير أو طباعة أو حفظ التقرير كصورة بشرط ان لا تخرج عن الصيغ الثلاث jpg / png / bmp اذا كان الحل باستخدام برامج مساعدة فأفضل تثبيت طابعة صور ان وجدت db1.rar

طريقة جميلة وشرح اجمل

تفضل استاذنا وجدت لك هذا DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tbl2", strPath & "مصروفات عمومية" يعدل اسم الورقة والملف واذا لم تحصل على حل شافي فلدي اقتراح انه يتم تغيير اسم الورقة من داخل اكسل قريب من هذا : Public Sub changNm() I = Replace(ActiveSheet.Name, "_", " ") ActiveSheet.Name = I End Sub

السلام عليكم هذا يعمل عندي ولا يضيف علامة : DoCmd.TransferSpreadsheet acExport, 5, "tbl2", FilPath & "مصروفات عمومية", True, ""

اكتبها هنا

الحمد لله انك وجدت حلا دائما عند النسخ واللصق او التحديث حاول ان تتعامل مع الجداول فنقل قيمة من نموذج لآخر هي في الاصل يتم نقلها الى جدول

طيب اذا في الأولى كود مسؤول عن المقارنة والتأكد من الاختلاف فهذا تمام انقله واستخدمه في الثانية

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

تفضل بـرنـامـج خـيـاط2.rar

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