jafar089

في الملف المرفق برنامج لتسجيل حضور الموظفين فبعد ادخال الرقم في الحقل المخصص وليكن ( 1000 )تظهر صورة الموظف واسمه ورقمه . إذا أردنا اخفاء هذه البيانات ( الصورة و الاسم و الرقم ) بعد مضي 20 ثانية فكيف يكون ذلك ؟ abc.rar

سلمت يديك أستاذ طارق والله يعطيك العافية ..

المطلوب معرفة رقم صف عند كتابة قيمة معينة موجودة في ذلك الصف يعني بافتراض وجود صفوف : b5 - b6 - b7 - b8 وبها القيم التالية بالترتيب : 200 - 600 - 400 - 500 المطلوب : إذا قمت بكتابة مثلا 400 فإنه يظهر رقم الصف الموجود فيه هذه القيمة وهو 6 انظر المرفق . Book1.rar

أولا افتح القاعدة المطلوبة على اصدار 2003 وقم بتحويلها إلى 2003 ثم بعد ذلك تستطيع فتحها على 2007 وتحويلها إلى 2007 كما قال الأستاذ / ابو خليل

لا يمكن ذلك لأنه ستتغير القيم .. قد وجدت الحل بالمرفق .. db1.rar

كيف يتم عمل أرقام تسلسلية في مربع القائمة ؟ db1.rar

لقد قمت باستبدال الشاشة . ولكن عند اختيار المكان - مثلا المستندات - فإنه يتم حفظ النسخة على القرص C وليس في المستندات . أرجو التعديل على كود زر ( نسخة احتياطية ) ليتم حفظ النسخة في أي مكان تريده . Backup.rar

هل يمكن التعديل على زر ( التصدير ) بحيث أنه لو تم الضغط على الزر يستعرض مكان المجلد بالشكل التالي : بدلاً من الشكل : Backup_tables.rar

مشكور جزيلاً .

مشكوور كثيرا على الإجابة .. ولكن الكود ينفذ فقط آخر مكان وهو على القرص f . وقد وجدت الحل بتكرار نفس الكود لكل مكان : 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) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" 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) OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile2 = "d:\mybackup\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile2 & """" Shell CopyMyDB, 0 Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0) OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile3 = "f:\mybackup\" & DBwithoutEXT & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile3 & """" Shell CopyMyDB, 0 Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0) MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح"

لقد عملت برنامج للنسخ الاحتياطي به 3 أزرار حيث أن كل زر يتم حفظ النسخة الاحتياطية في مكان مختلف . المطلوب / أن يتم عمل زر واحد فقط للنسخ الاحتياطي يحفظ القاعدة في ثلاثة أماكن متفرغة . وهذا هو كود النسخ المراد التعديل عليه : Private Sub Backup_Click() Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = "c:\mybackup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" 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 db1.rar

الشكر لك يا ابو خليل على الجهود التي تبذلها .. وجدت حلا من أحد الأساتذة في البرنامج المرفق ولكن البرنامج لم يشتغل معي !!! Backup_tables.rar

بعد أذن أستاذنا ابو خليل : الأخ nart lebzo هذه الرسالة ظهرت لأنك لم تطبق ما أشار إليه الأستاذ ( حفظ الملف على C )أولا بعد ذلك جرب تشغيله . أرفق ملف لأحد الأخوة يمكن الاستفادة منه لتحسين البرنامج .. حدث أخذ نسخة إحتياطية.rar

صراحة مجهود رائع منك ( ابو خليل ) وياليت يتفاعل الجميع في تطوير البرنامج ، واقترح في البداية عمل الآتي : - في التصدير يكون الحفظ على جذر الـ C افتراضي ويتم وضع زر لتغيير مكان الحفظ ( التصدير ) وهذا أيضا ينطبق على الاستيراد . ومشكور مرة أخرى على ما تبذله من جهد أخي الكريم ..

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

المقصود يا أستاذي العزيز أن يتم نسخ الجداول من دون أن أقوم بتسمية الجدول في الكود .. تخيل لو أن في برنامج أكثر من 30 جدول هل أقوم بكتابة أسماء جميع الجداول في الكود ؟! ألا يوجد حل لذلك ( أمر لنسخ جميع الجداول دفعة واحدة دون كتابة مسمياتها بالكود ) ؟

وعليكم السلام .. مشكور أستاذ / ابو خليل لسرعة الرد مرفق مثال برنامج لأحد الأساتذة ولكن يلاحظ عليه : - أنه يقوم بأخذ نسخة لجدول واحد فقط . - أنه لا بد من كتابة اسم الجدول في الكود الخاص بالنسخ والاستيراد . فهل يمكن التعديل عليه ليصبح بالإمكان نسخ جميع الجداول مهما كان عددها واستيرادها في وقت لاحق ؟ 723- أخذ نسخة احتياطية من جدول بتاريخ اليوم.rar

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

هذا هو المطلوب .. مشكور جزيت خيراً .

لقد عملت نموذجين الأول f1 والثاني f2 عند تشغيل البرنامج يتم عرض f1 الذي فيه حدث عند الفتح إذا تحقق فيفتح النموذج f2 ولكن البرنامج في المرفق يتم فتح f2 ولكنه يكون خلف f1 أي لا يمكن رؤيته ، هل توجد طريقة لجعل f2 عند فتحه يكون أمام f1 ? db2.rar

مشكوور والله يعطيك العافية

هل يوجد كود لتصفير الجدول أي حذف جميع البيانات الموجودة بالجدول ؟

ألا يوجد حل ؟؟!

هل من مجيب ؟!

في البرنامج المرفق المطلوب توزيع أقساط القرض على المدة المحددة فعند الضغط على زر ( توزيع ) يتم عرض البيانات السابقة في الجدول المقابل على اليسار كأقساط من أول تاريخ بداية القسط وحتى عدد الأقساط وإذا تم تغيير قسط المبلغ أو قسط الربح فيتغير التوزيع تبعاً لذلك حيث أنه في مثالنا قسط المبلغ يكون 625 ريال وقسط الربح نغيره إلى 75 ريال ليكون القسط الشهري 700 ريال وبذلك يتوزع قسط الربح على عدد الأشهر أي سيصل إلى الشهر الخامس والشهر السادس المتبقي 25 ريال والسابع والثامن صفر وأما قسط المبلغ فسيكون في الشهر السابع 700 ريال وفي الشهر الثامن المتبقي 500 ريال كما في الشكل التالي ، إذا تمت هذه العملية نضغط على زر الحفظ ليتم نقل بيانات هذا الجدول إلى الجدول tbl1 . توزيع الربح والقسط.rar