أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل واضافة كود اكسيل اسئله واجابات


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


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





تعديل كواد النسخ الاحتياطيه وكواد الاستدعاء

انا عمل فورم يعمل نسخه احتياطيه لي قاعدة بيانات اكسل وكواد الاستدعاءها بس انا عايز اختصار الكواد بحيت يتم حفظ النسخه بتا ..



09-03-2020 12:51 صباحا
احمد 9598
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
قوة السمعة : 66
الاعجاب : 7
 offline 
انا عمل فورم يعمل نسخه احتياطيه لي قاعدة بيانات اكسل وكواد الاستدعاءها بس انا عايز اختصار الكواد بحيت يتم حفظ النسخه بتاريخ اليوم والساعه وفي نفس الفولد من غير مايفتح ومن غير ما اختر مكان الحفظ واليكم المرافق وجزاكم الله خير لي ولكم
 
 
  1.rar   تحميل rar مرات التحميل :(6)
الحجم :(38.641) KB





09-03-2020 05:55 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25526
الاعجاب : 195
 offline 
look/images/icons/i1.gif تعديل كواد النسخ الاحتياطيه وكواد الاستدعاء
هل الموضوع في القسم المناسب أخي الكريم؟ إذا كان الموضوع يخص الإكسيل يرجى التنبيه لكي يتم نقل الموضوع لقسم إكسيل أسئلة وإجابات ...

أثارت هذه المشاركة إعجاب: احمد 9598،



10-03-2020 01:17 صباحا
مشاهدة مشاركة منفردة [2]
احمد 9598
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
قوة السمعة : 66
الاعجاب : 7
 offline 
look/images/icons/i1.gif تعديل كواد النسخ الاحتياطيه وكواد الاستدعاء
هذه الموضوع يخص الفيجوال بيسك6 ومتصل بقاعدة بيانات اكسل

أثارت هذه المشاركة إعجاب: YasserKhalil،



10-03-2020 02:35 مساء
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعديل كواد النسخ الاحتياطيه وكواد الاستدعاء
اتفضل دا مختصرالكود في الازرار 

Private Sub Command1_Click()
                FileCopy (App.Path & "1.xlsx"), App.Path & "BackupFolder" & Format(Now, "yyyy-m-dd") & ".bck"
               MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
End Sub
Private Sub Command2_Click()
    Dim Ans
        Ans = MsgBox("هل تريد استعادة قاعدة البيانات المحددة", vbExclamation + vbYesNo, " تنبيه" + UserName)
        If Ans = vbYes Then
            FileCopy App.Path & "BackupFolder" & Combo2.Text, App.Path + "1.xlsx"
              MsgBox "تم استعادة قاعدة البيانات المحددة بنجاح.", vbOKOnly + vbInformation, " استعادة قاعدة البيانات" + UserName
        End If
End Sub






وتقدر تعدل على الفورمات الخاصة بالتاريخ وتضيف الساعة والدقيقة والثانية كالاتي

Format(Now, "yyyy-MM-dd hh mm ss")​


142

أثارت هذه المشاركة إعجاب: احمد 9598، YasserKhalil،


توقيع :Yasser Elaraby
663013020


10-03-2020 04:01 مساء
مشاهدة مشاركة منفردة [4]
احمد 9598
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
قوة السمعة : 66
الاعجاب : 7
 offline 
look/images/icons/i1.gif تعديل كواد النسخ الاحتياطيه وكواد الاستدعاء
[quote=Yasser Elaraby]
جزاك الله خير وبارك الله فيك

أثارت هذه المشاركة إعجاب: Yasser Elaraby، YasserKhalil،



11-03-2020 02:51 صباحا
مشاهدة مشاركة منفردة [5]
احمد 9598
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
قوة السمعة : 66
الاعجاب : 7
 offline 
look/images/icons/i1.gif تعديل كواد النسخ الاحتياطيه وكواد الاستدعاء
[quote=Yasser Elaraby]اليك اخي الكريم التعديل واتنماء ان ينل اعجبكم وان يستفيدو منه جميع الاعضاء
 
 
 
  1.rar   تحميل rar مرات التحميل :(5)
الحجم :(38.432) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby،



11-03-2020 04:42 مساء
مشاهدة مشاركة منفردة [6]
Excelawy
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 378
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 1
قوة السمعة : 631
الاعجاب : 9
 offline 
look/images/icons/i1.gif تعديل كواد النسخ الاحتياطيه وكواد الاستدعاء
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby
اتفضل دا مختصرالكود في الازرار 

Private Sub Command1_Click()
                FileCopy (App.Path & "1.xlsx"), App.Path & "BackupFolder" & Format(Now, "yyyy-m-dd") & ".bck"
               MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
End Sub
Private Sub Command2_Click()
    Dim Ans
        Ans = MsgBox("هل تريد استعادة قاعدة البيانات المحددة", vbExclamation + vbYesNo, " تنبيه" + UserName)
        If Ans = vbYes Then
            FileCopy App.Path & "BackupFolder" & Combo2.Text, App.Path + "1.xlsx"
              MsgBox "تم استعادة قاعدة البيانات المحددة بنجاح.", vbOKOnly + vbInformation, " استعادة قاعدة البيانات" + UserName
        End If
End Sub






وتقدر تعدل على الفورمات الخاصة بالتاريخ وتضيف الساعة والدقيقة والثانية كالاتي

Format(Now, "yyyy-MM-dd hh mm ss")​


142



جزاك الله كل خير أ ياسر

أنا اول مرة اعرف انه ممكن نعمل استعادة لنسخه احتياطية

شكرا

أثارت هذه المشاركة إعجاب: احمد 9598،






الكلمات الدلالية
تعديل ، كواد ، النسخ ، الاحتياطيه ، وكواد ، الاستدعاء ،


 







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

الساعة الآن 10:46 مساء

أعلن هنا
أعلن هنا
أعلن هنا