ابوخليل

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

السلام عليكم الآن يتم النسخ الى القرص C db2.rar

ضع ما لديك من صور في الامتداد التالي : C:\Program Files\Microsoft Office\MEDIA\CAGCAT10

تفضل اليك التعديل ما قبله2.rar

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

تم التعديل قم بنقل الوحدة النمطية والاستعلام الى برنامجك سجلات قوائم2.rar

الاخ الكريم برنامجك الاصدار 2007 لا املك في جهازي سوى اكسس الاصدار 2003 آمل ان تجد مساعدة قريبة من اخواننا

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

لا فرق بينهما

تفضل انظر العلاقات بين الجداول في الاستعلام Database2.rar

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

تم التعديل لا ادري لماذا وضعت رقم الاختبار في البداية مع ان الجميع في جدول واحد يفترض ان تبدأ برقم الهوية البرنامج التجريبي3.rar

لست مضطرا لتكرار الكود فقط تعديل بسيط على الكود السابق ملحوظة : من اجل التطبيق استبدلت القرص F بــ E ايضا سيتم نسخ القاعدة مباشرة بدون مجلدات Private Sub Backup_Click() Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, NewFile2, NewFile3, CopyMyDB, CopyMyDB2, CopyMyDB3 OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = "c:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile2 = "d:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile3 = "e:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" CopyMyDB2 = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile2 & """" CopyMyDB3 = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile3 & """" Shell CopyMyDB, 0 Shell CopyMyDB2, 0 Shell CopyMyDB3, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0) MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح" End Sub dbdb.rar

هذه فائدة من اخينا حامل المسك برنامج تنفيذي لادراج التفقيط داخل الوورد http://www.officena.net/ib/index.php?showtopic=24818&view=findpost&p=116557&hl=%C7%E1%CA%DD%DE%ED%D8&fromsearch=1

تم التعديل يتم النسخ الى ثلاث مواقع بزر واحد Private Sub Backup_Click() Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, NewFile2, NewFile3, CopyMyDB OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = "c:\mybackup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile2 = "d:\mybackup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) NewFile3 = "f:\mybackup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile2 & """" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile3 & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0) MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح" End Sub

حتى تتمكن من البحث في مربعات التحرير هذه وهي على وضعها الحالي من غير تعديل يجب ان يكون حقل البحث مربع تحرير ايضا

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

مرحبا الف ابو رهف مجهود واضح وفقك الله لكل خير

بالضبط يا كابون وهذا تطبيق لما ذكرت رصيد .rar

اقرب طريق هو استخدام مربع تحرير مثال.rar

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

انظر الى هذا الحل آمل ان يفي بالمطلوب البرنامج التجريبي.rar

لا اعلم ما ستعمل بعد ذلك في الازرار تم تعديل المرفق بربط علاقة بين اسماء الازرار ومحتويات الحقول في الجدول EXAMPLE2.rar

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

ارفق مثالك لتطبيق الفكرة