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

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

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

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

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

 

مشكله تعليق القاعده والتعطل.rar

تم تعديل أغسطس 11, 2018 بواسطه سلمان الشهراني

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

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

ولاحظت ان المشكلة بدأت في الظهور بعد تحديث الاوفيس الى ٢٠١٣ و ٢٠١٦ 

ان شاء الله نجد حل لهذه المشكلة 

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

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

[ابوخليل]

من الصورة رقم 1

لاحظت وجود نقطتين في اسم قاعدة البيانات

قد يكون هو السبب

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

 

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

منذ ساعه, ابوخليل said:

من الصورة رقم 1

لاحظت وجود نقطتين في اسم قاعدة البيانات 

قد يكون هو السبب 

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

 

 

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

تم تعديل أغسطس 11, 2018 بواسطه سلمان الشهراني

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

السلام عليكم 

اليس هناك حل لهذه المعضلة

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

للرفع

[ابو ياسين المشولي]

10 ساعات مضت, عبدالله المجرب said:

للرفع

اخي عبدالله المجرب

جرب هذا الكود

واعمل في txt

وحول صيغته الى vbsبدلtxt

واجعله جنب البرنامج

واجعل البرنامج يشتغل منه مباشرة

    dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    dim CurrentDirectory
    CurrentDirectory = fso.GetAbsolutePathName(".")
    dim Directory
    Directory = CurrentDirectory & "\name.accdb"
 dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase Directory
 o.usercontrol=true
o.runcommand 10 
 set o=nothing

غير هذا باسم برنامجك

 Directory = CurrentDirectory & "\name.accdb"

 

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

هل يمكن مع الشكر شرح للفكرة

 

[ابو ياسين المشولي]

تشغيل برنامج الاكسس في اي مجلد ، وبدون رسائل الأمان

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

المشكلة ليست رسالة امان

المشكلة انه اثناء تشغيل البرنامج تحدث هذه المشكلة 

وعنداعادة التشغيل لا يعمل تظهر هذه الرسائل

[ابو ياسين المشولي]

جرب شغله 

كما قلت لك وشوف النتيجه

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

في ٦‏/١٠‏/٢٠١٨ at 15:52, ابو ياسين المشولي said:

جرب شغله 

كما قلت لك وشوف النتيجه

سوال 

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

مع الشكر

[ابو ياسين المشولي]

1 دقيقه مضت, عبدالله المجرب said:

سوال 

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

مع الشكر

انا مقسم القاعده الى واجه نماذج وتقارير

وجربته على النت وهو شغال

ويستحسن

ان تحول vbs

الى exe

وهذا رابط البرنامج

http://www.f2ko.de/en/v2e.php

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

6 دقائق مضت, ابو ياسين المشولي said:

انا مقسم القاعده الى واجه نماذج وتقارير

وجربته على النت وهو شغال

ويستحسن

ان تحول vbs

الى exe

وهذا رابط البرنامج

http://www.f2ko.de/en/v2e.php

استميحك عذرا على كثرة السؤال

هل واجهت نفس المشكلة وكان هذا من ضمن الحلول

 

====

عند تنزيل البرنامج تظهر  رسالة انه فايروس

[ابو ياسين المشولي]

5 دقائق مضت, عبدالله المجرب said:

استميحك عذرا على كثرة السؤال

هل واجهت نفس المشكلة وكان هذا من ضمن الحلول

 

====

عند تنزيل البرنامج تظهر  رسالة انه فايروس

ابدا اخي مافي اي مشكله في السوال

انا عندي مكافح كاسبير

ولكن لم يجيني انه فايرس

اكتب لي اسم برنامجك

وانا اععمله لك exe

وارسله

لك

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

هل ممكن ان ترفق البرنامج 

[ابو ياسين المشولي]

اتفضل

مساحته لم تقبل هناء

فارفقته لك

في ميديا فاير

http://www.mediafire.com/file/9jqx4iiv6m2xyct/Vbs_To_Exe.zip/file

[Hamdi Edlbi-khalf]

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

اخي مافي اي مشكله في السوال

 انا عندي مكافح كاسبير

ولكن لم يجيني انه فايرس

 

أخي و أستاذي الحبيب

@ابو ياسين المشولي

هل قمت بعملية استثناء للمجلد الذي وضعت به الملف التنفيذي ؟

و هل يمكن لهذا البرنامج تحويل البرامج المنفذة على  إكسل إلى ملفات تنفيذية ؟

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

شكرا على ارفاق البرنامج

====

سوالي

 

هل واجهت نفس المشكلة (الانقطاع) وكان هذا من ضمن الحلول

[ابو ياسين المشولي]

العفو كان عندي بطى

وكان يعلق بعض الاحيان

وكنت اضطر ان اخرج من مدير المهام

انا حاليا لم اشنغل على شبكه

ولكن اجده خفيف 

عن قبل

ولم يعلق معي حاليا

للمعلومه لي حوالي شهر فقط من حين استخدمته

 

[ابو ياسين المشولي]

4 دقائق مضت, Khalf said:

أخي و أستاذي الحبيب

@ابو ياسين المشولي

هل قمت بعملية استثناء للمجلد الذي وضعت به الملف التنفيذي ؟

و هل يمكن لهذا البرنامج تحويل البرامج المنفذة على  إكسل إلى ملفات تنفيذية ؟

نعم هو كذلك يعمل مع الاكسل

ولكن هذا هو كود الاكسل

Dim xlApp, xlBook
dim fso
dim curDir
set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = false
Set xlBook = xlApp.Workbooks.Open(curDir & "\Projram.xlsb")

 

[Hamdi Edlbi-khalf]

شكراً لك 

@ابو ياسين المشولي

سأجرب البرنامج و أعود بالنتائج .

[ابو ياسين المشولي]

العفو اخي  واستاذي الحبيب Khalf

[Hamdi Edlbi-khalf]

اممم حسبت البرنامج يستطيع تحويل ملف الإكسل الى تنفيذي ..

 

الان, ابو ياسين المشولي said:

لعفو اخي  واستاذي الحبيب Khalf

لطفك الجم و تواضعك البين دليل خلق رفيع بارك الله بك و جزاك خيراً

اممم حسبت البرنامج يستطيع تحويل ملف الإكسل الى تنفيذي ..