تحميل ملف من موقع عن طريق رابط ثابت مزود في البرنامج مسبقاً

[Shivan Rekany]

14 دقائق مضت, sandanet said:

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

فرضنا انا واحد من المستخدمين
لا اريد ان يتم تنزيل اي ملف الا بعد موافقتي

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

[sandanet]

منذ ساعه, sandanet said:

في الكود الذي عدلته يوجد تحته كود غير مفعل وهو لقاعدة اسمها system_admin.MDE هل يمكن دمجها ايصاَ لكي يتم تطبيق البرنامج على اكثر من قاعدة؟ 

استاذي @Shivan Rekany ارجو ان لايكون سؤالي قد سقط سهواً فلازلت انتظر اجابتك 

 

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

 

تحياتي

[jjafferr]

السلام عليكم

 

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

واسمحوا لي بأن ابدأ العمل في هذا البرنامج ، وبموضوع مستقل ان شاء الله

 

وشكرا اخي ابو عبدالله التذكير والرابط ، فموضوع اخونا العود ابو خليل كان على بالي وكنت سأستخدمه بطريقة او اخرى

 

جعفر

[Shivan Rekany]

9 دقائق مضت, sandanet said:

استاذي @Shivan Rekany ارجو ان لايكون سؤالي قد سقط سهواً فلازلت انتظر اجابتك 

نقدر نستخدم هذا

في البداية نكتب اون ايرور ريسوم نيكست

On Error Resume Next
Dim sql As String
Dim sql1 As String
Dim x As Integer
x = Len(Forms!FORM1![txtPath]) - Len(Replace(Forms!FORM1![txtPath], ".", ""))

If (Split(Forms!FORM1!txtPath, ".")(1)) = "MDE" Then
    sql = "UPDATE TdateT INNER JOIN [system.MDE].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo"
    sql1 = "UPDATE TdateT INNER JOIN [system_admin.MDE].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo"

        Else
    sql = "UPDATE TdateT INNER JOIN [system.MDB].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo"
    sql1 = "UPDATE TdateT INNER JOIN [system_admin.MDB].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo"

End If

DoCmd.SetWarnings False
DoCmd.RunSQL (sql)
DoCmd.RunSQL (sql1)

DoCmd.close acForm, Me.nAME

 

20 دقائق مضت, sandanet said:

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

لا فهمت مني خطأ .!

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

[sandanet]

اشكرك استاذ @Shivan Rekany الان 100% الملف يقبل mdb و mde وكذلك يقبل قاعدتين الاولى system والاخرى system_admin وهذا اثر من رائع بالنسبة لي فبارك الله فيك على مجهوداتك الرائعة 

 

بالنسبة لملف الـ text فاعتقد ان عملية تنزيله على الجهاز اولاً ومن ثم المقارنة هو ابسط الحلول المتوفرة الى الآن الا اذا كانت هنالك فكرة غيرها حينها نستطيع ان نختار الافضل منهما

كذلك يمكن اعطاء امر بحذف ملف الـ text من الجهاز بعد اكتمال مقارنة المعلومات ..

 

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

[Shivan Rekany]

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

الان 100% الملف يقبل mdb و mde

وما هو الحال اذا يكون القاعدة من نوع ACCDB ACCDE ؟
اليك هذا لكل انواع ACCDB ACCDE MDB MDE

غیر ھذا السطر من الكود 

If (Split(Forms!FORM1!txtPath, ".")(1)) = "MDE" Then

بـهذا

If Right(Split(Forms!FORM1!txtPath, ".")(1),1) = "E" Then

 

[sandanet]

جميل جداً استاذ @Shivan Rekany ساضيفها الى الكود مع اني لا استخدم صيغ Accdb ولا Accde على الاطلاق بل افضل البقاء على mdb  و mde لكن لامانع من تطوير الملف .. بارك الله فيك

 

تحياتي