صالح حمادي قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 في 3/11/2019 at 21:43, Elsayed Bn Gemy said: مثلا ممكن نعمل قاعدة بيانات تانية تتحكم فى ملفات التكست اللى عندك كمبرمج الخاصة بكل نسخة من البرامج اللى ابيعها Expand نستطيع جعل ملف نصي واحد لتفعيل جميع النسخ التي نبيعها بحيث نضع لكل نسخة رقم تسلسلي خاص بها تبحث عنه في الملف النصي و تأخذ بياناته التاريخ و حالة التفعيل و الملاحظة يعني كل عميل راح تظهر عنده رسالة خاص به حسب نسخته. لقد جربت هذه الطريقة و نجحت معي 100%
Elsayed Bn Gemy قام بنشر نوفمبر 8, 2019 الكاتب قام بنشر نوفمبر 8, 2019 في 8/11/2019 at 15:36, صالح حمادي said: نستطيع جعل ملف نصي واحد لتفعيل جميع النسخ التي نبيعها بحيث نضع لكل نسخة رقم تسلسلي خاص بها تبحث عنه في الملف النصي و تأخذ بياناته التاريخ و حالة التفعيل و الملاحظة يعني كل عميل راح تظهر عنده رسالة خاص به حسب نسخته. لقد جربت هذه الطريقة و نجحت معي 100% Expand الحمد لله اخى صالح اين المرفق الخاص بى لا تبخل علينا اتشرف بان اكون احد عملائك
صالح حمادي قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 في 8/11/2019 at 16:29, Elsayed Bn Gemy said: الحمد لله اخى صالح اين المرفق الخاص بى لا تبخل علينا Expand أخي لا يمكن أن أبخل على نهر أشرب منه دائما في 8/11/2019 at 16:29, Elsayed Bn Gemy said: اتشرف بان اكون احد عملائك Expand أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد لكن كما يقول الأستاذ @jjafferr دائما اقتباس في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال Expand نعود للبرنامج: يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم. تضغط على استيراد و سوف تلاحظ النتائج جرب غير في كل مرة رقم و لاحظ الفرق. بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج و أتمنى من الجميع التجربة active file.rarFetching info... 2
أبوبسمله قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 جزاكم الله خيرا اساتذتى الكرام ولكن ياريت تشرحولنا الطريقه لنستفاد ونتعلم منكم اساتذتى فنحن نتعلم منكم وجزاكم الله خيرا وياريت المرفقات مفتوحه كما عودتونا تمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم
صالح حمادي قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 في 8/11/2019 at 20:48, أحمد الفلاحجى said: جزاكم الله خيرا اساتذتى الكرام ولكن ياريت تشرحولنا الطريقه لنستفاد ونتعلم منكم اساتذتى فنحن نتعلم منكم وجزاكم الله خيرا وياريت المرفقات مفتوحه كما عودتونا تمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم Expand مرحبا أخي الهدف هو التعلم و الإستفادة من بعضنا البعض و سوف توضع المرفقات مفتوحة إن شاء الله لكن نريد التجربة و رؤية الملاحظات أولا ثم نضع الملف 1
Elsayed Bn Gemy قام بنشر نوفمبر 8, 2019 الكاتب قام بنشر نوفمبر 8, 2019 في 8/11/2019 at 20:48, أحمد الفلاحجى said: جزاكم الله خيرا اساتذتى الكرام ولكن ياريت تشرحولنا الطريقه لنستفاد ونتعلم منكم اساتذتى فنحن نتعلم منكم وجزاكم الله خيرا وياريت المرفقات مفتوحه كما عودتونا تمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم Expand اعزكم الله اخى الكريم نحن لا نخفى اكواد على احد فقط نحن نخفى طريقتنا فى استغلال الكود ملخص الموضوع هذا او يدور حول قراءة ملفات النصوص اونلاين نحن نستغل هذا الموضوع وكل منا له طريقته فى استخدام الكود منا من يستخدمه فى التفعيل ومنا من يستخدمه فى التحديث وهكذا ... وهذا هو الكود 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 في 8/11/2019 at 21:14, Elsayed Bn Gemy said: وهذا هو الكود Expand ماذا وجدت في المرفق الذي أرسلته لك أخي السيد 1
أبوبسمله قام بنشر نوفمبر 8, 2019 قام بنشر نوفمبر 8, 2019 جزاكم الله خيرا استذتنا الكرام نحن نتعلم منكم ونستفيد من خبراتكم وتجاربكم واعلم انكم لا تخفون عن طلابكم شيئا ولا تبخلون بالمساعده على احد قدر استطاعتكم ووقتكم فنحن نقدر ذلك باذن الله تعالى وكل عام وانتم بخير تهنئه من القلب بمولد نبى الرحمه المهداه من رب العالمين اللهم صل وسلم وبارك على سيدنا محمد وآل بيته الطاهرين واصحابه الغر الميامين طبتم واهتديتم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 اتمنى ان تكون هنالك نسخة اخرى تعمل على اوفيس 2007 لكي يتسنى لنا تجربته .. تحياتي
سلمان الشهراني قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 (معدل) في 8/11/2019 at 20:40, صالح حمادي said: أخي لا يمكن أن أبخل على نهر أشرب منه دائما أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد لكن كما يقول الأستاذ @jjafferr دائما نعود للبرنامج: يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم. تضغط على استيراد و سوف تلاحظ النتائج جرب غير في كل مرة رقم و لاحظ الفرق. بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج و أتمنى من الجميع التجربة active file.rar 25.59 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 9 downloads Expand مشاء الله كعادتك مبدع بس ملاحظه بسيطه لمى افصل النت واشغل البرنامج وادخل رقم 1000 يعمل البرنامج تم تعديل نوفمبر 9, 2019 بواسطه سلمان الشهراني
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 00:45, سلمان الشهراني said: مشاء الله كعادتك مبدع بس ملاحظه بسيطه لمى افصل النت واشغل البرنامج وادخل رقم 1000 يعمل البرنامج Expand بعد فصل الأنترنت أغلق البرنامج نهائيا ثم أعد تشغيله لقد قمت بتغيير العبارت جرب الآن 1
Elsayed Bn Gemy قام بنشر نوفمبر 9, 2019 الكاتب قام بنشر نوفمبر 9, 2019 في 8/11/2019 at 21:23, صالح حمادي said: ماذا وجدت في المرفق الذي أرسلته لك أخي السيد Expand وجدت خيرا كثيرا غير انه لم يفتح لان الوفيس عندى 2007 وفى العمل 2013 ان شاء الله اجربه واطلعك على النتائج احب التفكير خارج الصندوق كثيرا يجعلنا نبدع مثلما تبدع يا صديقى انا بقى استغل هذا الموضوع فى مشروع اخر سيشترك فيه كل الاخوة ان شاء الله اتمنى من الله التوفيق
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 07:17, Elsayed Bn Gemy said: وجدت خيرا كثيرا غير انه لم يفتح لان الوفيس عندى 2007 Expand في 9/11/2019 at 00:15, sandanet said: اتمنى ان تكون هنالك نسخة اخرى تعمل على اوفيس 2007 لكي يتسنى لنا تجربته .. تحياتي Expand لقد عملته على نسخة 2003 في 9/11/2019 at 07:17, Elsayed Bn Gemy said: انا بقى استغل هذا الموضوع فى مشروع اخر سيشترك فيه كل الاخوة ان شاء الله اتمنى من الله التوفيق Expand نعم و أنا تدور في رأسي الكثير من الأسئلة حول استخدامها و يسرني كثيرا أن أشترك معكم في هذا العمل هذا مرفق الملف بنسخة 2003 active file.rarFetching info...
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 11:40, صالح حمادي said: هذا مرفق الملف بنسخة 2003 Expand لم يعمل يا استاذ صالح .. مع اني اعمل على اوفيس 2007
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 12:38, sandanet said: لم يعمل يا استاذ صالح .. مع اني اعمل على اوفيس 2007 Expand لقد قمت بنقل البيانات و النماذج لملف معمول على أكسس 2003 جرب هذه المرة Active22.rarFetching info...
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 13:01, صالح حمادي said: جرب هذه المرة Expand لم يعمل ايضاً نفس الرسالة السابقة
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 13:05, sandanet said: لم يعمل ايضاً نفس الرسالة السابقة Expand اذن انتظر البرنامج الفتوح من عند الاستاذ السيد جمال
sandanet قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 استاذي العزيز شكرا لك على المحاولة .. ننتظر الاخ الاستاذ السيد كما تفضلت
سلمان الشهراني قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 تمام استاذ صالح يعطيك العافيه سلمت يداك يعميل 100%
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 13:35, sandanet said: استاذي العزيز شكرا لك على المحاولة .. ننتظر الاخ الاستاذ السيد كما تفضلت Expand جرب هذه النسخة بإمتداد mdb Active.rarFetching info...
صالح حمادي قام بنشر نوفمبر 9, 2019 قام بنشر نوفمبر 9, 2019 في 8/11/2019 at 21:14, Elsayed Bn Gemy said: قراءة ملفات النصوص اونلاين نحن نستغل هذا الموضوع وكل منا له طريقته فى استخدام الكود منا من يستخدمه فى التفعيل ومنا من يستخدمه فى التحديث وهكذا ... وهذا هو الكود Expand أنا أستخدم 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 في 9/11/2019 at 16:15, صالح حمادي said: جرب هذه النسخة بإمتداد mdb Expand جميل جداً الآن تعمل النسخة بشكل ممتاز .. بارك الله فيك استاذي صالح والآن ننتظر شرح الفكرة من الاستاذ السيد
Elsayed Bn Gemy قام بنشر نوفمبر 9, 2019 الكاتب قام بنشر نوفمبر 9, 2019 في 9/11/2019 at 16:32, sandanet said: جميل جداً الآن تعمل النسخة بشكل ممتاز .. بارك الله فيك استاذي صالح والآن ننتظر شرح الفكرة من الاستاذ السيد Expand هو فى شرح بعد شر ح استاذ صالح دلوقتى عندك الدالة اللى بتقرا الملف النصى مش باقى غير الملف النصى اكتب اللى انت عاوزة فى اى ملف من نوتباد وارفعه على اى موقع مثلا دروبوكس اكتب فى اى حاجة واستدعيه من داخل الاكسس مثلا ممكن تكتب رسالة للمستخدمين ممكن تكتب رقم النسخة للتحديث ممكن تكتب التفعيل زى استاذ صالح ما عمل وهكذا 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.