اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

fisalll

عضو جديد 01
  • Posts

    11
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو fisalll

  1. السلام عليكم وجدت هذا البرنامج به تصميم جميل جدا للنموذج بل انه رووووعه فكيف تم تصميمه ؟ البرنامج مرفقا M_EK.rar
  2. أخي الكريم الاستعلام يؤدي مايقوم به الجدول عادة إذا كان ولابد أن تعمل الجدول فأعمل الأتي بنفسك أعمل جدول بنفس حقول الاستعلام وخصائصها ثم أعمل الحاق للبيانات من الاستعلام الذي عمله مشرفنا القدير الى الجدول فينتج لديك جدول بما تريد من بيانات تحياتي
  3. السلام عليكم أخي الكريم أنت مخطيء في هذا الحكم .. لا .. تصميم البرامج من ألأمور التي ليست سهلة .. تقبل التحية
  4. ============================= فعلا الملف معطوب ياأخ أمير أرجو ارفاقه مرة أخرى فهذا الموضوع يهمني شكرا لك وللأخ الكريم HUSSIN
  5. السلام عليكم ورحمة الله وبركاته،، بسم الله الرحمن الرحيم شكرا أستاذنا الكريم محمد طاهر ...... سأجرب ماتفضلت به ... اشكر الاخوان أبو شذا وأبو يعلى .... تقبلوا التحية :(
  6. بسم الله الرحمن الرحيم أخي الكريم (Daniello )السلام عليكم ورحمة الله وبركاته،، برنامج رائع ولكن .. الموقع طلب 660 ريال قيمة النسخة :) :') :) اممممم الا يوجد حل غير ذلك :pp: شكرا لك
  7. السلام عليكم ورحمة الله وبركاته،، بسم الله الرحمن الرحيم معليش ممكن الإخوان مافهموا السؤال لأن الكود مش مرفق عموما هذا هو الكود كما تشاهدون مهمته ارسال قاعدة بيانات للقرص المرن ...... لكن ماذا لو كان هذا القرص تالف - أو غير موجود - أو كمية البيانات اكبر من مساحة القرص ...... كيف يمكنني ارسال مسجات للمستخدم بذلك .... من يساعدني في تحسين أداء هذا الكود له الأجر من رب العباد ودمتم سالمين Private Sub أمر144_Click() On Error GoTo Err_أمر26_Click Dim fs Set fs = CreateObject("Scripting.FileSystemObject") MsgBox "أنتظر قليلا بينما يتم النسخ" fs.CopyFile "C:\n22\2005.mdb", "A:\", True MsgBox "تم نقل البيانات بنجاح " Err_أمر26_Click: Exit Sub End Sub
  8. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،، لدي كود يرسل قاعدة بيانات للقرص المرن .. كيف يمكن أن أضمن هذا الكود رسائل مثل ( اذا كان لايوجد قرص مرن في السواقة ) ( أو أنه تالف أو حجم البيانات أكبر من مساحة القرص المرن ) اريد مساعدتي في هذا الكود ولكم الشكر ... أخوكم فيصل :(
  9. السلام عليكم أساتذتي الكرام وينكم ؟ ما احد يرد ؟ :) بعدما طرحت السؤال تجولت بالمنتدى ووجدت مجموعة دروس ساعدتني في سؤالي الاول لكن النقل للقاعدة بدون ضغط :') أنا عملت هذا الكود او بالأحرى جمعته من هنا وهناك وضبط في عملية نسخ القاعدة الى فلوبي بس ابي قبل ما يرسلها للفلوبي يعمل لهل ضغط ارجو المساعدة الكود هو Private Sub أمر3_Click() On Error GoTo Err_أمر3_Click Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile "C:\My Documents\naql\ndb1.mdb", "A:\", True MsgBox "تم نقل البيانات بنجاح " Err_أمر3_Click: Exit Sub End Sub بالنسبة للسؤال الثاني لا زلت أنتظركم ........ تحياتي لكم جميعا
  10. السلام عليكم ..... إخواني الكرام .... مشترك جديد ومبتدىء بالأكسس ... لدي عدة تساؤلات 1- كيف يمكنني استيراد وتصدير قاعدة بيانات مضغوطة بالون زيب من والى قرص مرن 2 - لدي قاعدة بيانت يتم من خلالها حساب مرتبات موظفين دائرة ما شهريامن محرم الى ذي الحجة ولدي فايل في نفس مجلد البرنامج اسمه "حفظ" اريد ان أحفظ بيانات الا شهر بحيث يتم استدعاؤها من الفايل بواسطة البرنامج متى مادعت الحاجة لذلك وكذلك كل الأشهر بحيث أذا طلبت من البرنامج حفظ يحفظها بنفس اسم الشهر واذا استدعيتها يتم اعلام المستخدم ان عليه اختيار الشهر ؟ فكيف ممكن يتم ذلك...... شكرا لكم
×
×
  • اضف...

Important Information