helmy_foad

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

يوجد فى الخصائص الخيار control box قم بإعطائة القيمة no

يا اخى لا تنفعل و لا تكن متسرعاً هذا هو الحل فى المرفقات أسف لم أرى رد الأخ إبراهيم أبو ريان و هو نفس الحل الذى قمت انا بة _____________1.rar

لو تقصد إستيراد البيانات من الإكسيل إلى الأكسيس فعليك بهذا الموضوع http://www.officena.net/ib/index.php?showtopic=17788 أما لو تريد العكس ، أى إستيراد البيانات من الأكسيس إلى الأكسيل فلا أعرف الطريقة

ألف شكر يا أستاذ ammar_zaid على المعلومة و هى أن ملف ال mde يمكن تحويلة إلى mdb و هذا بالفعل يفسر لماذا أن الملف محمى بهذا الشكل

يا ريت حد يقولنا ما هى طريقة الحماية المستخدمة فى هذا البرنامج فالنماذج و الماكرو و الموديول و التقرير ، محمية و لا يمكن حتى إستيرادها فقط لنتعلم كيف نحمى برامجنا

و الله أنك أستاذ لو تعرف كم وفرت على من الجهد و الوقت عندى ملف أكسيل بة ما يقرب من 1000 سجل و كنت سأبدأ فى نقلهم إلى الأكسيس ، لكن طريقتك ممتازة ما شاء الله ألف شكر

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

هل من الممكن ان يكون هناك 2 تكست بوكس عندما اضع فى أحدهما التاريخ بالصيغة التالية 1/5/1973 فى التكست بوكس التالى يظهر عمر الشخص بالصيغة التالية 34 عاماً ، 1 شهر ، 3 أيام أرجو التعديل على الملف المرفق مع العلم بأن التكست بوكس الأول bound و الثانى unbound New_Microsoft_Access_Application.rar

شكراً اخ املاك الجديد أعتقد أن هذة هى قاعدة بيانات northwind الشهيرة و هى قاعدة بيانات جاهزة تكون مرفقة بالأوفيس لكن فيها العديد من المميزات التى لم تكتشف بعد شكراً لك على توضيح هذة المعلومة لنا

للرفع

للرفع

ألف مبروك اخ عمار زياد و الله الترقية فى محلها فكم أستفدنا من معلوماتك الغزيرة ، و برامجك التى كلها نفع ألف ألف مبروك

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

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

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

يا أستاذ ammar_zaid هل يمكن التعديل بحيث يقبل الإمتداد chm

ستجد فى الملف المرفق طريقة إلغاء مفتاح الشفت فى ملف وورد مع مثال توضيحى بالأكسيس _________________.rar

ألف شكر يا أستاذ ammar_zaid و لقد ألهمنى هذا البرنامج بفكرة عمل قاعدة بيانات مكتبة للكتب الإلكترونية أنا مثلاً لدى مئات الكتب الإلكترونية من صيغ pdf و doc و غيرها إذا قمت بعمل قاعدة بيانات بها كل بيانات الكتاب من حيث إسم الكتاب و المؤلف و الإصدار و isbn و غيرها بالإضافة إلى حقل بة مسار الملف على الجهاز ثم يوجد زر عند الضغط علية يتم تشغيل الكتاب لتصفحة أعتقد ان الفكرة ستكون جديدة و جيدة ، لأن قواعد بيانات المكتبات كانت دائماً ما تصمم للكتب الورقية المحفوظة فى المكتبات و ليست على المحفوظة على جهاز الكمبيوتر

إذن أنت أرفقت المثال غير كامل حسناً : هذا هو الحل قم بمسح .text من مربع النص ثم فى الليست بوكس ( و إسمها الصحيح هو كومبو بوكس ) لان listbox تختلف عن combobox من خصائص الكومبو بوكس lstbox_mat40 إجعل عدد الاعمدة 2 و عمود منضم 2 و كلة تمام db1.rar

هل هذا هو ما تريدة ؟ db1.rar

تمام يا أخ ساهر لكن هذا كان هو المطلوب من الاخ الذى سأل السؤال بارك الله فيك

أخ saher1975 المثال الذى قمت بإرفاقة يقوم بعمل ترقيم تلقائى فعلاً بإستخدام الكود و لكنة لا يقوم بتصحيح الترقيم التلقائى إذا تم حذف احد السجلات فإذا كانت السجلات ترتيبها 1 2 3 4 5 و قمت بحذف السجل رقم 4 يصبح الترتيب 1 2 3 5 و هذا ليس هو المطلوب بل المفترض ان السجل الخامس يأخذ الترقيم 4 تلقائياً و يصبح الترتيب هكذا 1 2 3 4 و هذا يمكن تحقيقة كما فى المثال التالى و هو من تنفيذ الاخ همام ابو عرقوب AutoNumber.rar

سهلة و بسيطة يا اخى أنظر هذا الكود Private Sub buttonname_Click() If MsgBox("هل تريد حقاً الخروج من البرنامج", _ vbQuestion + vbYesNo + vbMsgBoxRight + vbDefaultButton2, _ "تأكيد الخروج") = vbYes Then DoCmd.Quit End If End Sub فقط قم بتغيير buttonname بأسم الزر الذى وضعتة فى النموذج

اخ أبو ملك أنظر المرفق بالمناسبة : أنا أيضاً كنيتى ابو ملك New_Microsoft_Access_Application.rar