fisalll

السلام عليكم وجدت هذا البرنامج به تصميم جميل جدا للنموذج بل انه رووووعه

فكيف تم تصميمه ؟

البرنامج مرفقا

M_EK.rar

أخي الكريم الاستعلام يؤدي مايقوم به الجدول عادة

إذا كان ولابد أن تعمل الجدول فأعمل الأتي بنفسك

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

تحياتي

السلام عليكم أخي الكريم

والله يعينكم ترى تصميم البرنامج سهل للمصممين الي شفت برامجهم بهذا الموقع الرائع والله يوفقهم

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

السلام عليكم

شكراً لك أخي الكريم أمير عاطف على الرد ..  ولاكن للاسف بعد تنزيل الملف ومحاولة فك الضغط  تظهر رسالة بان الملف معطوب .. أرجو منك النظر في الأمر.

                  وشكراً

<{POST_SNAPBACK}>

=============================

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

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