اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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


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

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

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

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

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


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

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

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

تحياتي

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

شوف ياباشا

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

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

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

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

تحياتي

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

اخ سلمان

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

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

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

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

 

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

تم تعديل بواسطه رمهان
  • Like 1
رابط هذا التعليق
شارك

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

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

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


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

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

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

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

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

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

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

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

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

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

مع تقدير

 

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

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

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

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

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

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

 

 

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

 

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

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

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

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

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

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

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

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

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

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

مع تقدير

 

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

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

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

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

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

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

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

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

 

 

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

 

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

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

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

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

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

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

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

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

ما ذاك الوقت

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

مع تقدير

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

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

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

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

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

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

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

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

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

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

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

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

تحياتي

 

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

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

تحياتي

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

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

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

تحياتي

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

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

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

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

 

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

Shivan Rekany

 

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

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

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

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

 

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

Shivan Rekany

 

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

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

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

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

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

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

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

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

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

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



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

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

Important Information