اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

السادة / محترفوا آكسس الأكــــــــــــــــــــــــــــــــارم حفظكم الله

كيف أستطيع أصنع رسالة ترحيب في بداية فتح ملف الاكسس ؟؟؟

أرجوا الإفادة مشكورييييييييييين . :fff::fff:

تم تعديل بواسطه NABEELKO
قام بنشر

أخي الكريم يوجد لدى عدة أمثله جميله بخصوص ذلك

ولم استطع أنزالها راسلني كي أقوم بإرسالها لك

قام بنشر

السلام عليكم ..

المسألة بسيطة جداً ...

صمم نموذج جديد فارغ وغير مرتبط بأي جدول ... وأعطه اسم معين ( ويفضل اسم انجليزي وليكن Main )

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

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

يعني يصبح عندك ماكرو يقوم بإغلاق هذا النموذج ...

ثم في الحقل اللي تحته اختر Open Form ثم اختر النموذج الثاني الذي تريد أن يفتح بعد إغلاق نموذج الترحيب الأول ...

ثم في الحقل اللي تحته اختر StopMacro

وهذه خطوة مهمة حتى لا يستمر الماكرو في العمل بشكل متكرر ويستهلك الذاكرة ...

وأخيراً : من أدوات .. اختر بدء التشغيل .. ( StartUp ..) اختر النموذج الأول الذي أنشأته لكي يكون نموذج البداية ...

الفكرة ببساطة : انشاء نموذج تريده أن يفتح في البداية .. وبه زر عند الضغط عليه ينفذ الماكرو الذي هو عبارة عن أمر إلاق هذا النموذج ثم فتح النموذج الأساسي للتطبيق ...

أتمنى أن تكون الفكرة واضحة ...

محمد

قام بنشر

السلام عليكم ...

إذا كنت تقصد رسالة ترحيب في بداية تشغيل البرنامج لأول مرة يشغل فيها البرنامج .. فضع الكود التالي في حدث عند الفتح للنموذج الذي يعمل في البداية .

معنى الكود أنك تخبره بهذا الشرط :

إذا كان عدد السجلات من الحقل txta من الجدول t_1 تساوي 0 إذناً

أظهر هذه الرسالة " مرحباً بك في برنامجنا .. نتمنى لكم وقتاً ممتعاً "

وإذا كان خلاف ذلك

فأنسى ما قلت لك . :rol:

وإليكم الكود :

If DCount("[txta]", "t_1") = 0 Then
MsgBox "السلام عليكم ورحمة الله وبركاته " & _
vbCrLf & " مرحباً بك في برنامجنا .. نتمنى أن تقضي وقتاً ممتعاً  "
Else
End If

وذلك على أفتراض ان txta اسم حقل ( أي حقل في الجدول )

و t_1 اسم الجدول

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information