نبيل العشاري قام بنشر فبراير 2, 2005 قام بنشر فبراير 2, 2005 (معدل) السادة / محترفوا آكسس الأكــــــــــــــــــــــــــــــــارم حفظكم الله كيف أستطيع أصنع رسالة ترحيب في بداية فتح ملف الاكسس ؟؟؟ أرجوا الإفادة مشكورييييييييييين . تم تعديل فبراير 2, 2005 بواسطه NABEELKO
nccyma قام بنشر فبراير 2, 2005 قام بنشر فبراير 2, 2005 أخي الكريم يوجد لدى عدة أمثله جميله بخصوص ذلك ولم استطع أنزالها راسلني كي أقوم بإرسالها لك
bodalal قام بنشر فبراير 2, 2005 قام بنشر فبراير 2, 2005 السلام عليكم .. المسألة بسيطة جداً ... صمم نموذج جديد فارغ وغير مرتبط بأي جدول ... وأعطه اسم معين ( ويفضل اسم انجليزي وليكن Main ) صمم النموذج على كيفك ... وضع الصور وكل الكلام اللي تريد أن يظهر ... يعني صمم النموذج على أساس أنه سيظهر كرسالة ترحيب عند تشغيل البرنامج ... ثم اذهب الى الماكرو ... وأنشأ ماكرو جديد ... وفي الحقل الأول اختر من Close ثم أضبط في الاعدادات تحت بحيث تختار اسم هذا النموذج ... يعني يصبح عندك ماكرو يقوم بإغلاق هذا النموذج ... ثم في الحقل اللي تحته اختر Open Form ثم اختر النموذج الثاني الذي تريد أن يفتح بعد إغلاق نموذج الترحيب الأول ... ثم في الحقل اللي تحته اختر StopMacro وهذه خطوة مهمة حتى لا يستمر الماكرو في العمل بشكل متكرر ويستهلك الذاكرة ... وأخيراً : من أدوات .. اختر بدء التشغيل .. ( StartUp ..) اختر النموذج الأول الذي أنشأته لكي يكون نموذج البداية ... الفكرة ببساطة : انشاء نموذج تريده أن يفتح في البداية .. وبه زر عند الضغط عليه ينفذ الماكرو الذي هو عبارة عن أمر إلاق هذا النموذج ثم فتح النموذج الأساسي للتطبيق ... أتمنى أن تكون الفكرة واضحة ... محمد
فتى الوادي قام بنشر فبراير 3, 2005 قام بنشر فبراير 3, 2005 السلام عليكم ... إذا كنت تقصد رسالة ترحيب في بداية تشغيل البرنامج لأول مرة يشغل فيها البرنامج .. فضع الكود التالي في حدث عند الفتح للنموذج الذي يعمل في البداية . معنى الكود أنك تخبره بهذا الشرط : إذا كان عدد السجلات من الحقل txta من الجدول t_1 تساوي 0 إذناً أظهر هذه الرسالة " مرحباً بك في برنامجنا .. نتمنى لكم وقتاً ممتعاً " وإذا كان خلاف ذلك فأنسى ما قلت لك . وإليكم الكود : If DCount("[txta]", "t_1") = 0 Then MsgBox "السلام عليكم ورحمة الله وبركاته " & _ vbCrLf & " مرحباً بك في برنامجنا .. نتمنى أن تقضي وقتاً ممتعاً " Else End If وذلك على أفتراض ان txta اسم حقل ( أي حقل في الجدول ) و t_1 اسم الجدول
سهل احمد العريشي قام بنشر فبراير 4, 2005 قام بنشر فبراير 4, 2005 بسم الله الرحمن الرحيم هذا مثال عملته بناءا على ما طلبت أرجو التعقيب في حال كان قصدك غير ذلك أخيك سهل أحمد ( ابو نعيم ) abonaeem.rar
الردود الموصى بها