تشغيل البرنامج مره واحده فقط

[سلمان الشهراني]

اخواني الاعزام
هل يوجد كود لعدم تشغيل البرنامج اكثر من مره على نفس الجهاز
 

الهدف من ذلك هو انه يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيه
وبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج من اختصار سطح المكتب مره اخرى
وهنا يحصل مشكله ان الوقت يختلف عن النسخه المشغله ولكن مصغره بالاسفل

رغم انني بحثت قبل طرح الموضوع ولم اجد الحل

[رمهان]

9 دقائق مضت, سلمان الشهراني said:

اخواني الاعزام
هل يوجد كود لعدم تشغيل البرنامج اكثر من مره على نفس الجهاز
 

الهدف من ذلك هو انه يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيه
وبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج من اختصار سطح المكتب مره اخرى
وهنا يحصل مشكله ان الوقت يختلف عن النسخه المشغله ولكن مصغره بالاسفل

رغم انني بحثت قبل طرح الموضوع ولم اجد الحل

اهاه سؤال جديد كليا ... ما ادري اخ سلمان كيف نحلها بالاكسس

لكن نفكر ونحزر

تحياتي

[سلمان الشهراني]

الله يعطيك العافيه يا استاذ رمهان
تفاعلك دائما معنا يستاهل الشكر يالغالي

 

[رمهان]

شوف ياباشا

اللي خطر في بالي الان نح نعرف ان الويندوز بيعطي معرف لكل برنامج يشتغل معاه

فلو حظنا كويس في الاكسس حنقدر نصيده عن طريق العمليات اللي شغالة

وهنا فيه حل ممكن وهو اذا انت وافقت على التالي

انه لايمكن تشغيل اي ملف اكسس مادام برنامجك مفتوح وشغال ؟ اذا موافق اصبحت العملية سهلة وهي عباره عن عداد بيشيك على عدد ملفات الاكسس المفتوحة فلو حصل 2 مفتوحة بيغلق الكل ؟ ايه رايك 

تحياتي

[رمهان]

اخ سلمان

اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات

وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة

ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة

مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين

 

وسؤال مهم : هل البرنامج يعمل على شبكة ام على جهاز واحد ؟

تم تعديل ديسمبر 18, 2016 بواسطه رمهان

[Shivan Rekany]

13 ساعات مضت, سلمان الشهراني said:

اخواني الاعزام
هل يوجد كود لعدم تشغيل البرنامج اكثر من مره على نفس الجهاز
 

الهدف من ذلك هو انه يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيه
وبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج من اختصار سطح المكتب مره اخرى
وهنا يحصل مشكله ان الوقت يختلف عن النسخه المشغله ولكن مصغره بالاسفل

رغم انني بحثت قبل طرح الموضوع ولم اجد الحل

سامحوني لكي اشارك معكم

شوف هذا
من البارحة افكر وعملت هذا 
هل يوصل لك المطلوب ؟

الفكرة هو ان يأخذ رقم هارد ديسك للكومبيوتر

ويخزن في الجدول

وبعدين اذا تريد ان تفتح من جديد راح يشوف هل يوجد هذا الرقم الهاردديسك في الجدول

اذا بيكون = او اكبر من 1 على الرغم ما يصير بيكون اكبر من 1 لكن عملت اذا صار بيخزن يدويا قلت خلي بيكون يساو و اكبر من 1

بيظهر رسالة وبيقولك .....

وبيغلق البرامج

والا راح بيروح الفورم التابل 1 الى سجل جديد وبيخزن المعومات

مع تقدير

 

تشغيل البرامج مره‌ واحدا فقط على جهاز2003.rar

[سلمان الشهراني]

اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات

وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة

ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة

مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين

 

 

أنا عندي نفس الوضوع لايفتح لا مره واحده ولكن تفاجئت عند بعض العملاء شغال اكثر من نسخه
وبعدين يشتكي ويقول البرنامج مايحسب صح وهو ناسي انه فاتح نسختين

 

6 ساعات مضت, Shivan Rekany said:

سامحوني لكي اشارك معكم

شوف هذا
من البارحة افكر وعملت هذا 
هل يوصل لك المطلوب ؟

الفكرة هو ان يأخذ رقم هارد ديسك للكومبيوتر

ويخزن في الجدول

وبعدين اذا تريد ان تفتح من جديد راح يشوف هل يوجد هذا الرقم الهاردديسك في الجدول

اذا بيكون = او اكبر من 1 على الرغم ما يصير بيكون اكبر من 1 لكن عملت اذا صار بيخزن يدويا قلت خلي بيكون يساو و اكبر من 1

بيظهر رسالة وبيقولك .....

وبيغلق البرامج

والا راح بيروح الفورم التابل 1 الى سجل جديد وبيخزن المعومات

مع تقدير

 

تشغيل البرامج مره‌ واحدا فقط على جهاز2003.rar

الله يعطيك الف عافيه يالغالي
ولكن هذه الطريقه لاتسمح له بفتح البرنامج مره اخرى نهائيا

تم تعديل ديسمبر 19, 2016 بواسطه سلمان الشهراني

[Shivan Rekany]

7 دقائق مضت, سلمان الشهراني said:

اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات

وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة

ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة

مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين

 

 

أنا عندي نفس الوضوع لايفتح لا مره واحده ولكن تفاجئت عند بعض العملاء شغال اكثر من نسخه
وبعدين يشتكي ويقول البرنامج مايحسب صح وهو ناسي انه فاتح نسختين

 

الله يعطيك الف عافيه يالغالي
ولكن هذه الطريقه لاتسمح له بفتح البرنامج مره اخرى نهائيا

هههه اسف في الحقيقة هسة انا اضحك علي

انا ما كان فهمت من السؤال بالظبط
لذا اعتذر منكم جميعا

[Shivan Rekany]

20 ساعات مضت, سلمان الشهراني said:

وبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج

اخي الكريم
اريد اسألك 

ما قصدك عن "المستخدم يقوم بتشغيل الوقت "

ما ذاك الوقت

هل هو بين فترين او اي
واذا ترفق نسخة من برامجك اللي فيها المطلوب بيكون احسن لكي نفتهم اكثر

مع تقدير

[Shivan Rekany]

21 ساعات مضت, سلمان الشهراني said:

يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيه

سؤال اخر متى يبدأ الوقت ومتى بينتهي الوقت و يظهر تنبيه
فكر معي
حين واحد بيفتح البرامج و يحدد الوقت مثلا من ساعة 01:15:00 حتى ساعة 02:15:00

يعني ساعة 2 و ربع بينتهي الوقت و بيظهر تنبيه 

حين يفتح من جديد راح يفتح نموذج المقدمة

النموذج المقدمة راح يشوف رقم هارد ديسك خاص تبعه ونلاحظ التاريخ و ايظا الوقت الحالي بيكون اكبر من وقت نهاية الجلسة اي ساعة 2:15 دقيقة

اذا نعم راح يفتح البرامج واذا لا راح يغلق البرامج

لكن بعد عدنا مشكلة .. وهو يجب بين تاريخين ان لا يغلق البرامج والا ما يكدر فتحه

والا
من اللازم  ان نستخدم هذا طريق لاستاذي العزيز رمهان

21 ساعات مضت, رمهان said:

انه لايمكن تشغيل اي ملف اكسس مادام برنامجك مفتوح وشغال ؟ اذا موافق اصبحت العملية سهلة وهي عباره عن عداد بيشيك على عدد ملفات الاكسس المفتوحة فلو حصل 2 مفتوحة بيغلق الكل ؟ ايه رايك 

تحياتي

 

[رمهان]

السلام عليكم

هناك كود قريب من فكرتي السابقة وبالرابط

http://access.mvps.org/access/api/api0041.htm

ولكن طلعت بفكرة اخرى لا اعلم جدواها وهي عبارة عن

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

وهو بوضعه في حدث عند التحميل للنموذج الرئيسي وطبعا سيكون اول اسطر الاكواد ان وجدت بنفس الحدث

Private Sub Form_Load()
If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll
End Sub

هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا

وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين 

تحياتي للجميع

[Shivan Rekany]

8 دقائق مضت, رمهان said:

السلام عليكم

هناك كود قريب من فكرتي السابقة وبالرابط

http://access.mvps.org/access/api/api0041.htm

ولكن طلعت بفكرة اخرى لا اعلم جدواها وهي عبارة عن

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

وهو بوضعه في حدث عند التحميل للنموذج الرئيسي وطبعا سيكون اول اسطر الاكواد ان وجدت بنفس الحدث

Private Sub Form_Load()
If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll
End Sub

هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا

وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين 

تحياتي للجميع

روعة يا استاذ
انا جربت و نجحت 100%

وهذا الملف بها ذاك الكود
خلي يجربون بيفتحون اكثر من مرة في ان واحد

تشغيل برامج اكسس لمرة واحدة على جهاز في ان واحد.rar

[رمهان]

1 دقيقه مضت, Shivan Rekany said:

روعة يا استاذ
انا جربت و نجحت 100%

وهذا الملف بها ذاك الكود
خلي يجربون بيفتحون اكثر من مرة في ان واحد

تشغيل برامج اكسس لمرة واحدة على جهاز في ان واحد.rar

مشكور استاذ شيفان على تفاعلك وصدقني انا معجب بطريقة التفكير عندك .. ودائما في الحلول الفكرة هي الاهم او الطريق للحل

تحياتي

[Shivan Rekany]

2 دقائق مضت, رمهان said:

مشكور استاذ شيفان على تفاعلك وصدقني انا معجب بطريقة التفكير عندك .. ودائما في الحلول الفكرة هي الاهم او الطريق للحل

تحياتي

لا داعي على رحب وسعة .. انت استاذي نتعلم منكم يا استاذ
هذا المنتدى منورة بوجودكم يا استاذ

[سلمان الشهراني]

الله يعطيكم الف الف عافيه جميعا

فكره جميله اخ رمهان
وجربت المثال 100%
وراح انقلها للبرنامج عندي

 

اكرر شكري لك وللاخ العزيز

Shivan Rekany

 

تم تعديل ديسمبر 20, 2016 بواسطه سلمان الشهراني

[Shivan Rekany]

9 دقائق مضت, سلمان الشهراني said:

الله يعطيكم الف الف عافيه جميعا

فكره جميله اخ رمهان
وجربت المثال 100%
وراح انقلها للبرنامج عندي

 

اكرر شكري لك وللاخ العزيز

Shivan Rekany

 

لا داعي للشكر اخي الكريم الشكر كله لله
المهم هو الوصول الى الحل
والحمد لله تم الوصول
الله يحفظنا ويزيد عنا العلم النافع
 

[سلمان الشهراني]

حبيبنا
الكود مشاء الله تمام لكن

لو  كان على الجهاز برنامجين اكسس لن يعمل الا واحد اذا اردت فتح الاخر فلابد تقفل الاول ( البرنامج المفتوح )

[Shivan Rekany]

19 ساعات مضت, سلمان الشهراني said:

حبيبنا
الكود مشاء الله تمام لكن

لو  كان على الجهاز برنامجين اكسس لن يعمل الا واحد اذا اردت فتح الاخر فلابد تقفل الاول ( البرنامج المفتوح )

ننتظر لاستاذنا رمهان اكيد الحل عنده
وهي ان يستخدم count مع الاسم القاعده‌ البيانات  
لكن لازم هو بيكون موجود لكي بيحل لنا هذا

ننتظرك يا استاذنا رمهان