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

[أنس دروبي]

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

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

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

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

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

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

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

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

أخوكم

أنس دروبي

Company .rar

[أ / محمد صالح]

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

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

mas_showform_1st_time_only.rar

[عبدالله المجرب]

ماشاء الله استاذ محمد

فكرة بسيطة بس روووووعة

ادم الله عليك نعمة العلم وزادك في الرزق

ابواحمد

[الفدائي]

ما شاء الله فكرة ممتازة - تشبه خيار انشاء مدير للنظام عند فتح البرنامج لأول مرة وذلك بعمل شيك للمطلوب بارك الله فيك

[الجزيرة]

أخي الحبيب / محمد صالح

حل من فئة السهل الممتنع ، ينم عن سرعة البديهه :)

[محمد يحياوي]

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

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

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

[abouelhassan]

احترام من القلب

اخيكم

[أنس دروبي]

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

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

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

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

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

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

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

وشكرا

أخوكم

أنس دروبي

[الـعيدروس]

السلام عليكم

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

مشاركة رقم 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

[أنس دروبي]

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

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

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

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

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

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

أخوكم

أنس دروبي