سلمان الشهراني قام بنشر ديسمبر 18, 2016 مشاركة قام بنشر ديسمبر 18, 2016 اخواني الاعزام هل يوجد كود لعدم تشغيل البرنامج اكثر من مره على نفس الجهاز الهدف من ذلك هو انه يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيهوبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج من اختصار سطح المكتب مره اخرى وهنا يحصل مشكله ان الوقت يختلف عن النسخه المشغله ولكن مصغره بالاسفل رغم انني بحثت قبل طرح الموضوع ولم اجد الحل رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 18, 2016 مشاركة قام بنشر ديسمبر 18, 2016 9 دقائق مضت, سلمان الشهراني said: اخواني الاعزام هل يوجد كود لعدم تشغيل البرنامج اكثر من مره على نفس الجهاز الهدف من ذلك هو انه يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيهوبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج من اختصار سطح المكتب مره اخرى وهنا يحصل مشكله ان الوقت يختلف عن النسخه المشغله ولكن مصغره بالاسفل رغم انني بحثت قبل طرح الموضوع ولم اجد الحل اهاه سؤال جديد كليا ... ما ادري اخ سلمان كيف نحلها بالاكسس لكن نفكر ونحزر تحياتي 2 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر ديسمبر 18, 2016 الكاتب مشاركة قام بنشر ديسمبر 18, 2016 الله يعطيك العافيه يا استاذ رمهان تفاعلك دائما معنا يستاهل الشكر يالغالي رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 18, 2016 مشاركة قام بنشر ديسمبر 18, 2016 شوف ياباشا اللي خطر في بالي الان نح نعرف ان الويندوز بيعطي معرف لكل برنامج يشتغل معاه فلو حظنا كويس في الاكسس حنقدر نصيده عن طريق العمليات اللي شغالة وهنا فيه حل ممكن وهو اذا انت وافقت على التالي انه لايمكن تشغيل اي ملف اكسس مادام برنامجك مفتوح وشغال ؟ اذا موافق اصبحت العملية سهلة وهي عباره عن عداد بيشيك على عدد ملفات الاكسس المفتوحة فلو حصل 2 مفتوحة بيغلق الكل ؟ ايه رايك تحياتي 2 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 18, 2016 مشاركة قام بنشر ديسمبر 18, 2016 (معدل) اخ سلمان اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين وسؤال مهم : هل البرنامج يعمل على شبكة ام على جهاز واحد ؟ تم تعديل ديسمبر 18, 2016 بواسطه رمهان 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 13 ساعات مضت, سلمان الشهراني said: اخواني الاعزام هل يوجد كود لعدم تشغيل البرنامج اكثر من مره على نفس الجهاز الهدف من ذلك هو انه يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيهوبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج من اختصار سطح المكتب مره اخرى وهنا يحصل مشكله ان الوقت يختلف عن النسخه المشغله ولكن مصغره بالاسفل رغم انني بحثت قبل طرح الموضوع ولم اجد الحل سامحوني لكي اشارك معكم شوف هذا من البارحة افكر وعملت هذا هل يوصل لك المطلوب ؟ الفكرة هو ان يأخذ رقم هارد ديسك للكومبيوتر ويخزن في الجدول وبعدين اذا تريد ان تفتح من جديد راح يشوف هل يوجد هذا الرقم الهاردديسك في الجدول اذا بيكون = او اكبر من 1 على الرغم ما يصير بيكون اكبر من 1 لكن عملت اذا صار بيخزن يدويا قلت خلي بيكون يساو و اكبر من 1 بيظهر رسالة وبيقولك ..... وبيغلق البرامج والا راح بيروح الفورم التابل 1 الى سجل جديد وبيخزن المعومات مع تقدير تشغيل البرامج مره واحدا فقط على جهاز2003.rar 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر ديسمبر 19, 2016 الكاتب مشاركة قام بنشر ديسمبر 19, 2016 (معدل) اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين أنا عندي نفس الوضوع لايفتح لا مره واحده ولكن تفاجئت عند بعض العملاء شغال اكثر من نسخه وبعدين يشتكي ويقول البرنامج مايحسب صح وهو ناسي انه فاتح نسختين 6 ساعات مضت, Shivan Rekany said: سامحوني لكي اشارك معكم شوف هذا من البارحة افكر وعملت هذا هل يوصل لك المطلوب ؟ الفكرة هو ان يأخذ رقم هارد ديسك للكومبيوتر ويخزن في الجدول وبعدين اذا تريد ان تفتح من جديد راح يشوف هل يوجد هذا الرقم الهاردديسك في الجدول اذا بيكون = او اكبر من 1 على الرغم ما يصير بيكون اكبر من 1 لكن عملت اذا صار بيخزن يدويا قلت خلي بيكون يساو و اكبر من 1 بيظهر رسالة وبيقولك ..... وبيغلق البرامج والا راح بيروح الفورم التابل 1 الى سجل جديد وبيخزن المعومات مع تقدير تشغيل البرامج مره واحدا فقط على جهاز2003.rar الله يعطيك الف عافيه يالغالي ولكن هذه الطريقه لاتسمح له بفتح البرنامج مره اخرى نهائيا تم تعديل ديسمبر 19, 2016 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 7 دقائق مضت, سلمان الشهراني said: اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين أنا عندي نفس الوضوع لايفتح لا مره واحده ولكن تفاجئت عند بعض العملاء شغال اكثر من نسخه وبعدين يشتكي ويقول البرنامج مايحسب صح وهو ناسي انه فاتح نسختين الله يعطيك الف عافيه يالغالي ولكن هذه الطريقه لاتسمح له بفتح البرنامج مره اخرى نهائيا هههه اسف في الحقيقة هسة انا اضحك علي انا ما كان فهمت من السؤال بالظبط لذا اعتذر منكم جميعا 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 20 ساعات مضت, سلمان الشهراني said: وبعض الاحيان المستخدم يقوم بتشغيل الوقت ثم يقوم بتصغير البرنامج وياتي مره اخرى ويقوم بتشغيل البرنامج اخي الكريم اريد اسألك ما قصدك عن "المستخدم يقوم بتشغيل الوقت " ما ذاك الوقت هل هو بين فترين او اي واذا ترفق نسخة من برامجك اللي فيها المطلوب بيكون احسن لكي نفتهم اكثر مع تقدير 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 21 ساعات مضت, سلمان الشهراني said: يوجد لدي برنامج يقوم بحساب الوقت في الشاشات وعند انتهاء الوقت يظهر تنبيه سؤال اخر متى يبدأ الوقت ومتى بينتهي الوقت و يظهر تنبيه فكر معي حين واحد بيفتح البرامج و يحدد الوقت مثلا من ساعة 01:15:00 حتى ساعة 02:15:00 يعني ساعة 2 و ربع بينتهي الوقت و بيظهر تنبيه حين يفتح من جديد راح يفتح نموذج المقدمة النموذج المقدمة راح يشوف رقم هارد ديسك خاص تبعه ونلاحظ التاريخ و ايظا الوقت الحالي بيكون اكبر من وقت نهاية الجلسة اي ساعة 2:15 دقيقة اذا نعم راح يفتح البرامج واذا لا راح يغلق البرامج لكن بعد عدنا مشكلة .. وهو يجب بين تاريخين ان لا يغلق البرامج والا ما يكدر فتحه والا من اللازم ان نستخدم هذا طريق لاستاذي العزيز رمهان 21 ساعات مضت, رمهان said: انه لايمكن تشغيل اي ملف اكسس مادام برنامجك مفتوح وشغال ؟ اذا موافق اصبحت العملية سهلة وهي عباره عن عداد بيشيك على عدد ملفات الاكسس المفتوحة فلو حصل 2 مفتوحة بيغلق الكل ؟ ايه رايك تحياتي 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 السلام عليكم هناك كود قريب من فكرتي السابقة وبالرابط 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 هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين تحياتي للجميع 6 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 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 5 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 1 دقيقه مضت, Shivan Rekany said: روعة يا استاذ انا جربت و نجحت 100% وهذا الملف بها ذاك الكود خلي يجربون بيفتحون اكثر من مرة في ان واحد تشغيل برامج اكسس لمرة واحدة على جهاز في ان واحد.rar مشكور استاذ شيفان على تفاعلك وصدقني انا معجب بطريقة التفكير عندك .. ودائما في الحلول الفكرة هي الاهم او الطريق للحل تحياتي 2 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 19, 2016 مشاركة قام بنشر ديسمبر 19, 2016 2 دقائق مضت, رمهان said: مشكور استاذ شيفان على تفاعلك وصدقني انا معجب بطريقة التفكير عندك .. ودائما في الحلول الفكرة هي الاهم او الطريق للحل تحياتي لا داعي على رحب وسعة .. انت استاذي نتعلم منكم يا استاذ هذا المنتدى منورة بوجودكم يا استاذ 3 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر ديسمبر 20, 2016 الكاتب مشاركة قام بنشر ديسمبر 20, 2016 (معدل) الله يعطيكم الف الف عافيه جميعا فكره جميله اخ رمهان وجربت المثال 100% وراح انقلها للبرنامج عندي اكرر شكري لك وللاخ العزيز Shivan Rekany تم تعديل ديسمبر 20, 2016 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 20, 2016 مشاركة قام بنشر ديسمبر 20, 2016 9 دقائق مضت, سلمان الشهراني said: الله يعطيكم الف الف عافيه جميعا فكره جميله اخ رمهان وجربت المثال 100% وراح انقلها للبرنامج عندي اكرر شكري لك وللاخ العزيز Shivan Rekany لا داعي للشكر اخي الكريم الشكر كله لله المهم هو الوصول الى الحل والحمد لله تم الوصول الله يحفظنا ويزيد عنا العلم النافع رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر ديسمبر 26, 2016 الكاتب مشاركة قام بنشر ديسمبر 26, 2016 حبيبنا الكود مشاء الله تمام لكن لو كان على الجهاز برنامجين اكسس لن يعمل الا واحد اذا اردت فتح الاخر فلابد تقفل الاول ( البرنامج المفتوح ) رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 27, 2016 مشاركة قام بنشر ديسمبر 27, 2016 19 ساعات مضت, سلمان الشهراني said: حبيبنا الكود مشاء الله تمام لكن لو كان على الجهاز برنامجين اكسس لن يعمل الا واحد اذا اردت فتح الاخر فلابد تقفل الاول ( البرنامج المفتوح ) ننتظر لاستاذنا رمهان اكيد الحل عنده وهي ان يستخدم count مع الاسم القاعده البيانات لكن لازم هو بيكون موجود لكي بيحل لنا هذا ننتظرك يا استاذنا رمهان 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.