ابوخليل

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

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

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

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

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

تم تعديل العنوان بما يتوافق والطلب انظر هنا مشابه لما تطلبه او ابحث في المنتدى كما في العنوان انظر هنا .. هذه اولى نتائج البحث

رغم عدم قناعتي بطريقتك في التبديل بين النسخ باعتبارها خطيرة و الاحتمال وارد بشكل قاطع لفقدان شيء من البيانات فكلامك صحيح ومشكلتك بسبب العلاقات فيلزم لحل المشكلة ان يتم الاستيراد على خطوات بالترتيب : 1- حذف العلاقات في القاعدة المرتبطة 2- حذف البيانات في القاعدة المرتبطة 3- جلب البيانات من القاعدة النسخة 4- جلب العلاقات من القاعدة النسخة وهذا ماتم عمله في مثالك المرفق اتمنى ان يلبي حاجتك بـرنـامـج خـيـاط.rar

تظهر في جميع الاصدارات انا اعمل على 2003 دائما تظهر لي وانا لم احدد الكل

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

عليكم السلام 1- احذف الجداول المرتبطة 2- اعد ربطها من جديد سيطالبك بكلمة المرور

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

فقط نريد بيانات كافية حتى نتأكد انا وانت ان العملية صحيحة غالبا تظهر الملاحظات والافكار عند التجربة

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

تفضل لاحظ انه يحذف جميع الملفات ويبقي على أحدث 3 ملفات فقط x.rar

السلام عليكم صحيح تفحص التاريخ وآخر ثلاثة ايام غير عملي فقد يتوقف العمل في البرنامج اكثر من ذلك وحينها يتم حذف جميع النسخ رغم اننا في المثال اخذنا الحيطة باخذ نسخة عند الفتح ، يبقى المسألة محتملة المخاطرة لذا بحثت في المنتديات المتخصصة وخرجت بهذا الكود الجميل الذي يحقق المطلوب بكل كفاءة : Sub DeleteOldFiles() Dim fso As New FileSystemObject Dim fil As File Dim oldfile As File Dim BackUpPath As String 'This is the FOLDER where your backups are stored Do Until fso.GetFolder(BackUpPath).Files.Count < 4 For Each fil In fso.GetFolder(BackUpPath).Files 'Checks to see if this file is older than the oldest file thus far If oldfile Is Nothing Then Set oldfile = fil If oldfile.DateLastModified > fil.DateLastModified Then Set oldfile = fil Next fil fso.DeleteFile oldfile, True Set oldfile = Nothing Loop End Sub هذا الكود يتطلب تثبيت مكتبة microsoft Script Runtime

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

لا بد من اتباع القواعد الصحيحة لتصميم وبناء قواعد البيانات في مثالك من المتوقع وجود رقم الموظف وتاريخ العملية / ويفضل ان يكون التاريخ عام او ما يسمى جنرال = Now() ولو قلت اننا نستخرج البيانات بناء على الفترات (بداية الوقت ونهايته ) فنؤكد انه يجب ان يكون احد التواريخ في السجل = عام الدالة Now جميلة جدا تحتضن كل شيء ولو اردت معالجة بياناتك على الوضع الحالي فانت ملزم بصنع استعلام وفيه حقل خاص يجمع بين التاريخ والوقت اتمنى اكون بينت سبب الاشكال عندك