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

التحكم فى قفل وفتح قاعدة البيانات اونلاين

Recommended Posts

في ٣‏/١١‏/٢٠١٩ at 22:43, Elsayed Bn Gemy said:

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

نستطيع جعل ملف نصي واحد لتفعيل جميع النسخ التي نبيعها 

بحيث نضع لكل نسخة رقم تسلسلي خاص بها تبحث عنه في الملف النصي و تأخذ بياناته التاريخ و حالة التفعيل و الملاحظة 

يعني كل عميل راح تظهر عنده رسالة خاص به حسب نسخته.

لقد جربت هذه الطريقة و نجحت معي 100%

شارك هذه المشاركه


رابط المشاركه
شارك
48 دقائق مضت, صالح حمادي said:

نستطيع جعل ملف نصي واحد لتفعيل جميع النسخ التي نبيعها 

بحيث نضع لكل نسخة رقم تسلسلي خاص بها تبحث عنه في الملف النصي و تأخذ بياناته التاريخ و حالة التفعيل و الملاحظة 

يعني كل عميل راح تظهر عنده رسالة خاص به حسب نسخته.

لقد جربت هذه الطريقة و نجحت معي 100%

الحمد لله اخى صالح اين المرفق الخاص بى لا تبخل علينا
اتشرف بان اكون احد عملائك

شارك هذه المشاركه


رابط المشاركه
شارك
4 ساعات مضت, Elsayed Bn Gemy said:

الحمد لله اخى صالح اين المرفق الخاص بى لا تبخل علينا

أخي لا يمكن أن أبخل على نهر أشرب منه دائما

4 ساعات مضت, Elsayed Bn Gemy said:

اتشرف بان اكون احد عملائك

أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة 

أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد

لكن كما يقول الأستاذ @jjafferr دائما  

اقتباس

في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال

نعود للبرنامج:

يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا

كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم.

تضغط على استيراد و سوف تلاحظ النتائج

جرب غير في كل مرة رقم و لاحظ الفرق.

بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج

و أتمنى من الجميع التجربة

 

 

444.jpg

active file.rar

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

جزاكم الله خيرا اساتذتى الكرام

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

وياريت المرفقات مفتوحه كما عودتونا

تمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

شارك هذه المشاركه


رابط المشاركه
شارك
2 دقائق مضت, أحمد الفلاحجى said:

جزاكم الله خيرا اساتذتى الكرام

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

وياريت المرفقات مفتوحه كما عودتونا

تمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

مرحبا أخي 

الهدف هو التعلم و الإستفادة من بعضنا البعض و سوف توضع المرفقات مفتوحة إن شاء الله

لكن نريد التجربة و رؤية الملاحظات أولا ثم نضع الملف 

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك
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

 

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك
5 دقائق مضت, Elsayed Bn Gemy said:

وهذا  هو الكود

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

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

جزاكم الله خيرا استذتنا الكرام

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

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

وكل عام وانتم بخير تهنئه من القلب بمولد نبى الرحمه المهداه من رب العالمين اللهم صل وسلم وبارك على سيدنا محمد وآل بيته الطاهرين واصحابه الغر الميامين

طبتم واهتديتم

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

شارك هذه المشاركه


رابط المشاركه
شارك

اتمنى ان تكون هنالك نسخة اخرى تعمل على اوفيس 2007 لكي يتسنى لنا تجربته .. تحياتي

شارك هذه المشاركه


رابط المشاركه
شارك
4 ساعات مضت, صالح حمادي said:

أخي لا يمكن أن أبخل على نهر أشرب منه دائما

أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة 

أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد

لكن كما يقول الأستاذ @jjafferr دائما  

نعود للبرنامج:

يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا

كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم.

تضغط على استيراد و سوف تلاحظ النتائج

جرب غير في كل مرة رقم و لاحظ الفرق.

بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج

و أتمنى من الجميع التجربة

 

 

444.jpg

active file.rar 25.59 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 9 downloads

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

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

شارك هذه المشاركه


رابط المشاركه
شارك
5 ساعات مضت, سلمان الشهراني said:

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

بعد فصل الأنترنت أغلق البرنامج نهائيا ثم أعد تشغيله

لقد قمت بتغيير العبارت جرب الآن

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك
9 ساعات مضت, صالح حمادي said:

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

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

لان الوفيس عندى  2007

وفى العمل 2013 ان شاء الله اجربه واطلعك على النتائج

احب التفكير خارج الصندوق كثيرا
يجعلنا نبدع مثلما تبدع يا صديقى

انا بقى استغل هذا الموضوع فى مشروع اخر سيشترك فيه كل الاخوة ان شاء الله
اتمنى من الله التوفيق

شارك هذه المشاركه


رابط المشاركه
شارك
4 ساعات مضت, Elsayed Bn Gemy said:

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

لان الوفيس عندى  2007

 

 

11 ساعات مضت, sandanet said:

اتمنى ان تكون هنالك نسخة اخرى تعمل على اوفيس 2007 لكي يتسنى لنا تجربته .. تحياتي

لقد عملته على نسخة 2003

4 ساعات مضت, Elsayed Bn Gemy said:

انا بقى استغل هذا الموضوع فى مشروع اخر سيشترك فيه كل الاخوة ان شاء الله
اتمنى من الله التوفيق

نعم و أنا تدور في رأسي الكثير من الأسئلة حول استخدامها

و يسرني كثيرا أن أشترك معكم في هذا العمل

هذا مرفق الملف بنسخة 2003

 

active file.rar

شارك هذه المشاركه


رابط المشاركه
شارك
56 دقائق مضت, صالح حمادي said:

هذا مرفق الملف بنسخة 2003

لم يعمل يا استاذ صالح .. مع اني اعمل على اوفيس 2007

11.png

شارك هذه المشاركه


رابط المشاركه
شارك
19 دقائق مضت, sandanet said:

لم يعمل يا استاذ صالح .. مع اني اعمل على اوفيس 2007

لقد قمت بنقل البيانات و النماذج لملف معمول على أكسس 2003

جرب هذه المرة

Active22.rar

شارك هذه المشاركه


رابط المشاركه
شارك
4 دقائق مضت, صالح حمادي said:

جرب هذه المرة

لم يعمل ايضاً نفس الرسالة السابقة 

شارك هذه المشاركه


رابط المشاركه
شارك
الان, sandanet said:

لم يعمل ايضاً نفس الرسالة السابقة 

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

شارك هذه المشاركه


رابط المشاركه
شارك

استاذي العزيز شكرا لك على المحاولة .. ننتظر الاخ الاستاذ السيد كما تفضلت

شارك هذه المشاركه


رابط المشاركه
شارك
2 ساعات مضت, sandanet said:

استاذي العزيز شكرا لك على المحاولة .. ننتظر الاخ الاستاذ السيد كما تفضلت

جرب هذه النسخة بإمتداد mdb

Active.rar

شارك هذه المشاركه


رابط المشاركه
شارك
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("الرابط المباشر للملف النصي")

 

شارك هذه المشاركه


رابط المشاركه
شارك
15 دقائق مضت, صالح حمادي said:

جرب هذه النسخة بإمتداد mdb

جميل جداً الآن تعمل النسخة بشكل ممتاز .. بارك الله فيك استاذي صالح 

والآن ننتظر شرح الفكرة من الاستاذ السيد

شارك هذه المشاركه


رابط المشاركه
شارك
7 دقائق مضت, sandanet said:

جميل جداً الآن تعمل النسخة بشكل ممتاز .. بارك الله فيك استاذي صالح 

والآن ننتظر شرح الفكرة من الاستاذ السيد

هو فى شرح بعد شر ح استاذ صالح

دلوقتى عندك الدالة اللى بتقرا الملف النصى

مش باقى غير الملف النصى

اكتب اللى انت عاوزة فى اى ملف من نوتباد

وارفعه على اى موقع مثلا دروبوكس

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

مثلا ممكن تكتب رسالة للمستخدمين ممكن تكتب رقم النسخة للتحديث

ممكن تكتب التفعيل زى استاذ صالح ما عمل

وهكذا

 

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • المتواجدين الان   0 اعضاء متواجدين الان

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

×
×
  • اضف...