صالح حمادي قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 في ٣/١١/٢٠١٩ at 22:43, Elsayed Bn Gemy said: مثلا ممكن نعمل قاعدة بيانات تانية تتحكم فى ملفات التكست اللى عندك كمبرمج الخاصة بكل نسخة من البرامج اللى ابيعها نستطيع جعل ملف نصي واحد لتفعيل جميع النسخ التي نبيعها بحيث نضع لكل نسخة رقم تسلسلي خاص بها تبحث عنه في الملف النصي و تأخذ بياناته التاريخ و حالة التفعيل و الملاحظة يعني كل عميل راح تظهر عنده رسالة خاص به حسب نسخته. لقد جربت هذه الطريقة و نجحت معي 100%
Elsayed Bn Gemy قام بنشر نوفمبر 8, 2019 الكاتب قام بنشر نوفمبر 8, 2019 48 دقائق مضت, صالح حمادي said: نستطيع جعل ملف نصي واحد لتفعيل جميع النسخ التي نبيعها بحيث نضع لكل نسخة رقم تسلسلي خاص بها تبحث عنه في الملف النصي و تأخذ بياناته التاريخ و حالة التفعيل و الملاحظة يعني كل عميل راح تظهر عنده رسالة خاص به حسب نسخته. لقد جربت هذه الطريقة و نجحت معي 100% الحمد لله اخى صالح اين المرفق الخاص بى لا تبخل علينا اتشرف بان اكون احد عملائك
صالح حمادي قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 4 ساعات مضت, Elsayed Bn Gemy said: الحمد لله اخى صالح اين المرفق الخاص بى لا تبخل علينا أخي لا يمكن أن أبخل على نهر أشرب منه دائما 4 ساعات مضت, Elsayed Bn Gemy said: اتشرف بان اكون احد عملائك أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد لكن كما يقول الأستاذ @jjafferr دائما اقتباس في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال نعود للبرنامج: يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم. تضغط على استيراد و سوف تلاحظ النتائج جرب غير في كل مرة رقم و لاحظ الفرق. بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج و أتمنى من الجميع التجربة active file.rar 2
أبوبسمله قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 جزاكم الله خيرا اساتذتى الكرام ولكن ياريت تشرحولنا الطريقه لنستفاد ونتعلم منكم اساتذتى فنحن نتعلم منكم وجزاكم الله خيرا وياريت المرفقات مفتوحه كما عودتونا تمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم
صالح حمادي قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 2 دقائق مضت, أحمد الفلاحجى said: جزاكم الله خيرا اساتذتى الكرام ولكن ياريت تشرحولنا الطريقه لنستفاد ونتعلم منكم اساتذتى فنحن نتعلم منكم وجزاكم الله خيرا وياريت المرفقات مفتوحه كما عودتونا تمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم مرحبا أخي الهدف هو التعلم و الإستفادة من بعضنا البعض و سوف توضع المرفقات مفتوحة إن شاء الله لكن نريد التجربة و رؤية الملاحظات أولا ثم نضع الملف 1
Elsayed Bn Gemy قام بنشر نوفمبر 8, 2019 الكاتب قام بنشر نوفمبر 8, 2019 19 دقائق مضت, أحمد الفلاحجى said: جزاكم الله خيرا اساتذتى الكرام ولكن ياريت تشرحولنا الطريقه لنستفاد ونتعلم منكم اساتذتى فنحن نتعلم منكم وجزاكم الله خيرا وياريت المرفقات مفتوحه كما عودتونا تمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم اعزكم الله اخى الكريم نحن لا نخفى اكواد على احد فقط نحن نخفى طريقتنا فى استغلال الكود ملخص الموضوع هذا او يدور حول قراءة ملفات النصوص اونلاين نحن نستغل هذا الموضوع وكل منا له طريقته فى استخدام الكود منا من يستخدمه فى التفعيل ومنا من يستخدمه فى التحديث وهكذا ... وهذا هو الكود Function GetFromWebpage(URL As String) As String On Error GoTo Err_GetFromWebpage Dim objWeb As Object Dim strXML As String ' Instantiate an instance of the web object Set objWeb = CreateObject("Microsoft.XMLHTTP") ' Pass the URL to the web object, and send the request objWeb.Open "GET", URL, False objWeb.send ' Look at the HTML string returned strXML = objWeb.responseText GetFromWebpage = strXML 'End_GetFromWebpage: ' Clean up after ourselves! Set objWeb = Nothing Exit Function Err_GetFromWebpage: ' Just in case there's an error! MsgBox Err.Description & " (" & Err.Number & ")" Resume End_GetFromWebpage End Function 1
صالح حمادي قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 5 دقائق مضت, Elsayed Bn Gemy said: وهذا هو الكود ماذا وجدت في المرفق الذي أرسلته لك أخي السيد 1
أبوبسمله قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 جزاكم الله خيرا استذتنا الكرام نحن نتعلم منكم ونستفيد من خبراتكم وتجاربكم واعلم انكم لا تخفون عن طلابكم شيئا ولا تبخلون بالمساعده على احد قدر استطاعتكم ووقتكم فنحن نقدر ذلك باذن الله تعالى وكل عام وانتم بخير تهنئه من القلب بمولد نبى الرحمه المهداه من رب العالمين اللهم صل وسلم وبارك على سيدنا محمد وآل بيته الطاهرين واصحابه الغر الميامين طبتم واهتديتم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 اتمنى ان تكون هنالك نسخة اخرى تعمل على اوفيس 2007 لكي يتسنى لنا تجربته .. تحياتي
سلمان الشهراني قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 (معدل) 4 ساعات مضت, صالح حمادي said: أخي لا يمكن أن أبخل على نهر أشرب منه دائما أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد لكن كما يقول الأستاذ @jjafferr دائما نعود للبرنامج: يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم. تضغط على استيراد و سوف تلاحظ النتائج جرب غير في كل مرة رقم و لاحظ الفرق. بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج و أتمنى من الجميع التجربة active file.rar 25.59 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 9 downloads مشاء الله كعادتك مبدع بس ملاحظه بسيطه لمى افصل النت واشغل البرنامج وادخل رقم 1000 يعمل البرنامج تم تعديل نوفمبر 9, 2019 بواسطه سلمان الشهراني
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 5 ساعات مضت, سلمان الشهراني said: مشاء الله كعادتك مبدع بس ملاحظه بسيطه لمى افصل النت واشغل البرنامج وادخل رقم 1000 يعمل البرنامج بعد فصل الأنترنت أغلق البرنامج نهائيا ثم أعد تشغيله لقد قمت بتغيير العبارت جرب الآن 1
Elsayed Bn Gemy قام بنشر نوفمبر 9, 2019 الكاتب قام بنشر نوفمبر 9, 2019 9 ساعات مضت, صالح حمادي said: ماذا وجدت في المرفق الذي أرسلته لك أخي السيد وجدت خيرا كثيرا غير انه لم يفتح لان الوفيس عندى 2007 وفى العمل 2013 ان شاء الله اجربه واطلعك على النتائج احب التفكير خارج الصندوق كثيرا يجعلنا نبدع مثلما تبدع يا صديقى انا بقى استغل هذا الموضوع فى مشروع اخر سيشترك فيه كل الاخوة ان شاء الله اتمنى من الله التوفيق
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 4 ساعات مضت, Elsayed Bn Gemy said: وجدت خيرا كثيرا غير انه لم يفتح لان الوفيس عندى 2007 11 ساعات مضت, sandanet said: اتمنى ان تكون هنالك نسخة اخرى تعمل على اوفيس 2007 لكي يتسنى لنا تجربته .. تحياتي لقد عملته على نسخة 2003 4 ساعات مضت, Elsayed Bn Gemy said: انا بقى استغل هذا الموضوع فى مشروع اخر سيشترك فيه كل الاخوة ان شاء الله اتمنى من الله التوفيق نعم و أنا تدور في رأسي الكثير من الأسئلة حول استخدامها و يسرني كثيرا أن أشترك معكم في هذا العمل هذا مرفق الملف بنسخة 2003 active file.rar
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 56 دقائق مضت, صالح حمادي said: هذا مرفق الملف بنسخة 2003 لم يعمل يا استاذ صالح .. مع اني اعمل على اوفيس 2007
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 19 دقائق مضت, sandanet said: لم يعمل يا استاذ صالح .. مع اني اعمل على اوفيس 2007 لقد قمت بنقل البيانات و النماذج لملف معمول على أكسس 2003 جرب هذه المرة Active22.rar
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 4 دقائق مضت, صالح حمادي said: جرب هذه المرة لم يعمل ايضاً نفس الرسالة السابقة
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 الان, sandanet said: لم يعمل ايضاً نفس الرسالة السابقة اذن انتظر البرنامج الفتوح من عند الاستاذ السيد جمال
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 استاذي العزيز شكرا لك على المحاولة .. ننتظر الاخ الاستاذ السيد كما تفضلت
سلمان الشهراني قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 تمام استاذ صالح يعطيك العافيه سلمت يداك يعميل 100%
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 2 ساعات مضت, sandanet said: استاذي العزيز شكرا لك على المحاولة .. ننتظر الاخ الاستاذ السيد كما تفضلت جرب هذه النسخة بإمتداد mdb Active.rar
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 19 ساعات مضت, Elsayed Bn Gemy said: قراءة ملفات النصوص اونلاين نحن نستغل هذا الموضوع وكل منا له طريقته فى استخدام الكود منا من يستخدمه فى التفعيل ومنا من يستخدمه فى التحديث وهكذا ... وهذا هو الكود أنا أستخدم 3 طرق لقراءة ملفات النصوص أونلاين الطريقة الأولى: هي نفسها الطريقة التي تستعملها أنت أخي. الطريقة الثانية: و هي كالتالي: Function ReadURLFile(sFullURLWFile As String) As String On Error Resume Next Dim oHttp As Object Set oHttp = CreateObject("MSXML2.ServerXMLHTTP") Call oHttp.Open("GET", sFullURLWFile, False) Call oHttp.send 'Check for any errors reported by the server If oHttp.Status >= 400 And oHttp.Status <= 599 Then ReadURLFile = "" Else ReadURLFile = oHttp.responseText End If Error_Handler_Exit: On Error Resume Next Call oHttp.Close Set oHttp = Nothing Exit Function End Function نستدعي هذه الدالة بالشكل التالي: Dim d As String d = ReadURLFile("الرابط المباشر للملف النصي") الطريقة الثالثة: كالتالي: Function ImportTxtWeb(UrlTxtFile As String) As String Set ie = CreateObject("InternetExplorer.application") qurl = UrlTxtFile ie.navigate qurl ' t = Timer ' timeout = False 'On Error GoTo terreur Do DoEvents Loop Until ie.ReadyState = 4 Set doc = ie.Document ImportTxtWeb = doc.body.innertext End Function نستدعي هذه الدالة بالشكل التالي: Dim d As String d = ImportTxtWeb("الرابط المباشر للملف النصي")
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 15 دقائق مضت, صالح حمادي said: جرب هذه النسخة بإمتداد mdb جميل جداً الآن تعمل النسخة بشكل ممتاز .. بارك الله فيك استاذي صالح والآن ننتظر شرح الفكرة من الاستاذ السيد
Elsayed Bn Gemy قام بنشر نوفمبر 9, 2019 الكاتب قام بنشر نوفمبر 9, 2019 7 دقائق مضت, sandanet said: جميل جداً الآن تعمل النسخة بشكل ممتاز .. بارك الله فيك استاذي صالح والآن ننتظر شرح الفكرة من الاستاذ السيد هو فى شرح بعد شر ح استاذ صالح دلوقتى عندك الدالة اللى بتقرا الملف النصى مش باقى غير الملف النصى اكتب اللى انت عاوزة فى اى ملف من نوتباد وارفعه على اى موقع مثلا دروبوكس اكتب فى اى حاجة واستدعيه من داخل الاكسس مثلا ممكن تكتب رسالة للمستخدمين ممكن تكتب رقم النسخة للتحديث ممكن تكتب التفعيل زى استاذ صالح ما عمل وهكذا 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.