fisalll

السلام عليكم وجدت هذا البرنامج به تصميم جميل جدا للنموذج بل انه رووووعه فكيف تم تصميمه ؟ البرنامج مرفقا M_EK.rar

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

السلام عليكم أخي الكريم أنت مخطيء في هذا الحكم .. لا .. تصميم البرامج من ألأمور التي ليست سهلة .. تقبل التحية

============================= فعلا الملف معطوب ياأخ أمير أرجو ارفاقه مرة أخرى فهذا الموضوع يهمني شكرا لك وللأخ الكريم HUSSIN

السلام عليكم ورحمة الله وبركاته،، بسم الله الرحمن الرحيم شكرا أستاذنا الكريم محمد طاهر ...... سأجرب ماتفضلت به ... اشكر الاخوان أبو شذا وأبو يعلى .... تقبلوا التحية :(

بسم الله الرحمن الرحيم أخي الكريم (Daniello )السلام عليكم ورحمة الله وبركاته،، برنامج رائع ولكن .. الموقع طلب 660 ريال قيمة النسخة :) :') :) اممممم الا يوجد حل غير ذلك :pp: شكرا لك

السلام عليكم ورحمة الله وبركاته،، بسم الله الرحمن الرحيم معليش ممكن الإخوان مافهموا السؤال لأن الكود مش مرفق عموما هذا هو الكود كما تشاهدون مهمته ارسال قاعدة بيانات للقرص المرن ...... لكن ماذا لو كان هذا القرص تالف - أو غير موجود - أو كمية البيانات اكبر من مساحة القرص ...... كيف يمكنني ارسال مسجات للمستخدم بذلك .... من يساعدني في تحسين أداء هذا الكود له الأجر من رب العباد ودمتم سالمين 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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،، لدي كود يرسل قاعدة بيانات للقرص المرن .. كيف يمكن أن أضمن هذا الكود رسائل مثل ( اذا كان لايوجد قرص مرن في السواقة ) ( أو أنه تالف أو حجم البيانات أكبر من مساحة القرص المرن ) اريد مساعدتي في هذا الكود ولكم الشكر ... أخوكم فيصل :(

:@ ماحد عنده جواب ؟ ولا حتى تعليق ؟ :)

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

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