kassem_geo

هذا الكود يستخدم عادة لعمل نسخة احتياطية: Public Sub Backupme() On Error GoTo MyErr Dim OldFile, NewFile, CopyMyDB, wheretoBackup, BackupFolder, DBName As String If IsNull(DFirst("database", "msysobjects", "[Database]<> '""'")) Then OldFile = CurrentProject.FullName wheretoBackup = CurrentProject.Path Else OldFile = DFirst("database", "msysobjects", "[Database]<> '""'") wheretoBackup = Left(OldFile, InStrRev(OldFile, "\")) End If BackupFolder = wheretoBackup & "\Backup" On Error Resume Next If Len(Dir(BackupFolder)) = 0 Then MkDir BackupFolder Else End If On Error GoTo MyErr DBName = Left(CurrentProject.Name, InStrRev(CurrentProject.Name, ".") - 1) NewFile = wheretoBackup & "\Backup\" & DBName & "-Backup-" & Format(Date, "dd-mm-yyyy") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(OldFile, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MsgBox "Backup........Done" & vbNewLine & vbNewLine & "Saved in :" & vbNewLine & NewFile, , " " MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Sub لو كان البرنامج متصل بأكثر من قاعدة بيانات database & database1 & database3 بحيث كل قاعدة منفصلة عن الاخرى بجداولها واريد ان تكون النسخ الاحتياطية ايضا منفصلة مع الإشارة بان قواعد البيانات الثلاث موجودة بنفس الفولدر folder وسنضعهم مع بعض في ملف Backup كل على حدا كيف سيكون الكود؟؟؟؟ على أمل الاستفادة للجميع

وهذا الملف ايضا بعد التعديل : تحديد الكل الغاء تحديد الكل الف شكر @Barna على امل ان يكون طلبي طلب الاخرين للاستفادة ... delete_data_table.zip

مساعدة في كود لحذف سجلات جداول بناء لخيار التحديد في النموذج بحيث عند اختيار مربع بجانب اسم الجدول والضغط على زر حذف يتم عملية الحذف وهل بالامكان اضافة خيار "الكل" ؟؟ لعله في طلبي فائدة للمبتدئين مثلي delete_data_table.zip

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

سابسط الامر اكثر سافترض ان لدينا برنامج واحد والكل لديه نفس البرنامج ومستقل بالعمل عن الاخر وسافترض ان @Moosakand @rockjone33 يقومان بادراج بيانات خاصة بهم بالاضافة الى المستخدم الرئيسي @ابو خليل الذي يقوم بدوره ايضا بادخال بيانات خاصة به ولكنه بحاجة الى بيانات كل من المستخدمين السابقين الفرعيين لانه يمثل الكل اتمنى ان يكون السؤال قد اتضح عادة تتم العملية بنسخ او استيراد البيانات وذلك بعد تصدير البيانات من المستخدمين بناء لتاريخ الادراج بحيث لم تم استلام البيانات السابقة بتاريخ 1-8-2022 سيتم تصدير من قبل المستخدم كل البيانات التي تم ادراجها بعد 1-8-2022 وسيتم استلام الجديد وبذلك يتم تحديث البيانات للجدول الرئيسي هدف سؤالي هو قراءة البيانات مجتمعة دون عملية نسخ البيانات ؟؟؟ حقك علي كل مستخدم مستقل بنفسه في مكانه وغير متصل بالاخرين ويتم جمع البيانات الى المستخدم الرئيسي عبر هارديسك خارجي

عذرا ولكن ما المقصود بالسؤال الساذج جل ما في الامر سؤال قمت بعرضه بناء لطلب احد الاصدقاء ... ولفت انتبهاي الامر انه قد احتاج لجوابه مستقبلا

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

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

سلمت يداك

ممكن لو سمحت مثال صغير وخاصة بوجود حوالي 5 جداول على اقل تقدير كما ان الاستعلامات مرتبطة بالجداول فكيف سيتم الامر ... @ابو خليلشكر الله سعيك

سؤالي هو أنه لدي برنامج وبيانات وجدول يحتوي على معلومات لأكثر من شركة بحيث ان البيانات الحالية فيها معلومات الشركة أ / ب/ج .... اولا بحاجة إلى إعطاء نسخة من برنامج يحتوي فقط على بيانات خاصة بشركة أ مع الإشارة بأن في كل جدول فيها عامود يحدد اسم الشركة ثاني امر : كيف استطيع ان اجمع البيانات من هذة الشركات بعد التحديث لديها أمل أن يكون سؤالي مفيد

@Moosak

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

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

هل يمكن تطوير الملف حتى نتمكن من ارسال الصور؟؟

كيف يمكن اظهار رسالة تنبيه بموعد محدد مثلا او رسالة وصلت من احد المستخدمين على الشبكة الداخلية علما بان ملف اكسس مغلق فغالبا ما نكون مثلا نعمل على ملف اكسل ويقوم احد المستخدمين بارسال رسالة او استحق موعد معين ويكون ملف الاكسس مغلق

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

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

نتمن ان يستمر الاعزاء بنشر في هذا الموضوع لما فيه فائدة مهمة

عند تسجيل الدخول تظهر لي العلامة الصفراء ولا اعلم لماذا

ما هو الحل عندما تتخطى المرفقات حجم 2 جيغا هل يمكن لنفس الجدول ان يتم ربطه باكثر من قاعدة بيانات بحيث يتم تقسيم المرفقات وربطها خارج البرنامج الاساسي بحيث تصبح البيانات "مرتبطة" ب database1 : database2 : database3 .... بحيث عندما يصبح حجم الداتا مثلا 100 ميغا ينتج داتا جديدة ولكن يقرا من الداتا الاول والثانية وال...

لو سمحتم لدي ملف اكسس ظهر لي هذا الخطأ ... ارجوا اعطائي الحل للمعالجة

حبذ لو تكون القوائم على يمين الشاشة وليس على يسارها نظرا لكون لغة الواجهة هي اللغة العربية

ما قصدته كيف يمكن تشغيل الملف تم تصميمه من قبل شخص اخر على اصدار 32 وحاسبوبي فيه اكسس64 @jjafferr

عذرا ليس هذا قصدي ما قصدته ان الملف تم انشاؤه على اصدار 32 بيت من قبل شخص اخر ولدي اصدار 64 بيت ولا يفتح لكي اقوم بتعديل vba