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

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