ابوخليل

تفضل اليك التعديل ما قبله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

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

أمان الماكرو ليس في المرفق بل هو في الاوفيس وفي برنامج الاكسس لديك بمعنى انك تستطيع تخفيظ الأمان من اي مثال آخر مفتوح لتخفيض أمان الماكرو في اوفيس 2003 من شريط القوائم/ ادوات/ماكرو/ الأمان يتم التأشير على الخيار السفلي ولتخفيض أمان الماكرو في اوفيس 2007 عند ضغط زر اوفيس في الركن العلوي يفتح مربع حوار / خيارات Access / مركز توثيق / اعدادات مركز التوثيق/اعدادات الماكرو يتم التأشير على الخيار السفلي اما حقل التاريخ في المرفق فهو يعمل بدون مشاكل ومع ذلك تم التعديل وتوسيح حقل التاريخ حسب طلبك تحسينات : تم حذف الصور من نماذج التعبئة لانها تسبب تشويش عند ادخال البيانات والاكتفاء بوضع الصورة في مقدمة البرنامج تم تعديل الكود الخاص بمسار الصورة فتستطيع الآن وضع المجلد mgari في اي مكان من الكمبيوتر وسيعمل على اكمل وجه بالنسبة للصورة تستطيع استبدالها بصورة اخرى كشعار مثلا شرط الا يتغير اسم الصورة بمعنى تستطيع حذف الصورة الحالية واستبدالها بصورة اخرى تحمل الاسم نفسه mgari.rar

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

الحقيقة اني احترت بالذي تريد انظر الى التعديل على النموذج WW هل يحقق مطلوبك ؟ up4التعديل.rar