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

ظهور فورم عند الفتح ﻷول مرة


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

السلام عليكم ورحمة الله وبركاته

أخواني أعضاء هذا المنتدى الكريم والمتميز أشتقت لكم كثيراً لعدم تواصلي معكم في الفترة اﻷخيرة نظراً للظروف الصعبة

لدي اليوم فكرة فأحببت أن أعرضها عليكم عسى الله أن تجدون لي الحل والطريقة

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

فالمطلوب أخواني

في الملف المرفق يوجد فورم وعند فتح الملف ﻷول مرة على جهاز الكمبيوتر الذي تعمل عليه ان يظهر هذا الفورم ومن ثم لا يظهر عندما يفتح مرة آخرى

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

والسلام عليكم

أخوكم

أنس دروبي

Company .rar

رابط هذا التعليق
شارك

تفضل أخي الكريم

هذه فكرة بسيطة لعمل المطلوب

mas_showform_1st_time_only.rar

  • Like 2
رابط هذا التعليق
شارك

الاخ الفاضل محمد صالح فكرة جميلة و الاجمل منه البساطة بارك الله فيك

احببت ان اشارككم بهذا الكود و هو يستخدم الرجستري في حفظ القيم (ظهور الرسالة و الفورم)


Private Sub Workbook_Open()

Dim strValue As String

azz = GetSetting("yah", "med", "اول مرة", "Yes")

If azz <> "No" Then

	MsgBox "هذه اول مرة تستعمل الملف"

	UserForm1.Show

	SaveSetting "yah", "med", "اول مرة", "No"

End If

End Sub

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

الله يجزيكم الخير أخواني على الحل واعتذر عن التأخير في الرد

بالنسبة لحل أستاذنا محمد صالح هو أعطى المطلوب ولكن بطريقة أخرى

فعندما اقوم بنقل الملف الى كمبيوتر آخر لا يظهر الفورم وهذا لا أريده

الذي أريده هو ربط ظهور الفورم بذاكرة الكمبيوتر بحيث إذا تم نقله يظهر الفورم مرة أخرى تلقائيا عند الفتح الملف ﻷول مرة على الجهاز

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

أرجو ان أكون أوفيت بالشرح حول هذه الفكرة

وشكرا

أخوكم

أنس دروبي

رابط هذا التعليق
شارك

السلام عليكم

تابع هذا الموضوع للاستاذ القدير محمد يحياوي

مشاركة رقم 10#

http://www.officena.net/ib/index.php?showtopic=39748

رابط هذا التعليق
شارك

احببت ان اشارككم بهذا الكود و هو يستخدم الرجستري في حفظ القيم (ظهور الرسالة و الفورم)


Private Sub Workbook_Open()

Dim strValue As String

azz = GetSetting("yah", "med", "اول مرة", "Yes")

If azz <> "No" Then

	MsgBox "هذه اول مرة تستعمل الملف"

	UserForm1.Show

	SaveSetting "yah", "med", "اول مرة", "No"

End If

End Sub

اخي الكريم يظهر انك لم تجرب الكود السابق ... فيه المطلوب بالظبط

فتح فورم لمرة واحدة.rar

رابط هذا التعليق
شارك

الله يجزيك الخير اخي محمد يحياوي

فقد شاهدت الملف وكان هو المطلوب بكل معنى الكلمة

وشاهدت ايضاً المشاركة رقم ١٠ في موضوعك حفظ قيم الريجستي وحفظ اﻹعدادت

وأشكر جميع اﻷعضاء على مشاركتهم

وأدام الله على أستاذنا محمد يحياوي وعلى جميع اﻷعضاء نعمة العلم ونشره

والسلام عليكم

أخوكم

أنس دروبي

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information