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

[صالح حمادي]

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

قم بتغيير لغة الجهاز إلى العربية قبل عمل نسخ ثم قم باللصق و سوف تلاحظ الفرق.

[Elsayed Bn Gemy]

 DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\ajial.accdb", acForm, "student", "student", False
 'فقط استبدل اسماء النماذج 

هذا على حد علمى

[omarahmed1424]

جزاكم الله خيرا على النصيحة وعلى الكود

 

[omarahmed1424]

في ٣‏/١١‏/٢٠١٨ at 14:15, Elsayed Bn Gemy said:

 DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\ajial.accdb", acForm, "student", "student", False
 'فقط استبدل اسماء النماذج 

هذا على حد علمى

للاسف لم يعمل على استبدال النماذج 

[Elsayed Bn Gemy]

اخى الكريم دعنا نجرب فكرة اخرى

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

يعنى حذف القديم ثم نقل الجديد بنفس اسم النموذج الجديد

مبدئيا هذا كود حذف النموذج القديم

 Dim objAcc As Access.Application
Set objAcc = GetObject("C:\myOldDB.mdb")
objAcc..DoCmd.DeleteObject acForm, "frmBad"
objAcc.Application.Quit
Set objAcc = Nothing

ثم انقل الجديد بهذا الكود

 DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\myOldDB.mdb", acForm, "formName", "FormName", False

 

[ابوآمنة]

متألق كعادتك

بورك فيك أخيك

[sofiane05552]

مشاء الله بارك الله فيك

[أبو عبدالله الحلوانى]

السلام عليكم

عندي ملاحظتان:

1- قد افترضت أنني سأقوم باستيراد الفورم الجديد واحذف القديم

نحن الآن نتكلم عن عميل أى أن النسخة التى لديه ستكون بصيغة  .accde  على الأقل وهذا غير متاح بها على حد علمى 

2- عند تحميل الاصدار الجديد - وأنا الآن أتكلم عن العميل - من المفترض أن يتم استبدال النسخة القديمة بالجديدة بشكل آلى 

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

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

 

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

[sofiane05552]

12 دقائق مضت, أبو عبدالله الحلوانى said:

السلام عليكم

عندي ملاحظتان:

1- قد افترضت أنني سأقوم باستيراد الفورم الجديد واحذف القديم

نحن الآن نتكلم عن عميل أى أن النسخة التى لديه ستكون بصيغة  .accde  على الأقل وهذا غير متاح بها على حد علمى 

2- عند تحميل الاصدار الجديد - وأنا الآن أتكلم عن العميل - من المفترض أن يتم استبدال النسخة القديمة بالجديدة بشكل آلى 

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

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

 

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

فكرة رائعة 

[فارس بني هلال]

ما شاء الله تبارك الله

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

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

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

فاذا اخذنا نسب التحديثات على اقل تقدير تكون 

80 % للنماذج ( تتطلب فترة بسيطة للانجاز )

15% للاستعلامات (تتطلب فترة متوسطة للانجاز) اقل من شهر

5% للجداول (تتطلب فترة طويلة للانجاز) اكثر من شهر

وفقك الله لكل خير وزاد في علمك وطرح فيك الخير والبركة

جاري تنزيل المرفق والعمل عليه وان شاء الله سنوافيكم بانتائج

 

[زياد الحسناوي]

عمل موفق

 

سؤالي هو التالي

 

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

و اذا تم اضافة حقول جديدة لجدول معين يتم اضافتها ؟ 

 

او جدول كامل استعلام نموذج…  الخ 

[Elsayed Bn Gemy]

اخوانى الكرام اشكركم جميعا على تفاعلكم وابداء ملاحظتكم التى هى فى غاية الاهمية
 

لى تعقيب بسيط

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

انا قرات ملاحظتكم جميعا واصدقكم القول فكررت بها جميعا
ليست هناك مشكلة على الاطلاق فى التحديث سواء كانت جداول - استعلامات - نماذج - تقارير - ماكرو - وحدات نمطية

 

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

نعم  فى قواعد بيانات من نوع ACCDE  او Mde  لا تسطيع تغيير الاكواد سواء فى النماذج او الوحدات النمطية  او حتى لا تسطيع حذف النماذج والوحدات النمطية

ولكن دائما هناك ثغرة 

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

وحذف القديمة

السؤال ماذا لو كان التحديث فى الجداول

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

ذلك الامر متاح اماماكم  حتى لوكان الجدول الجديد غير مطابق فى عدد الحقول  كما فى الجدول القديم 

 

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

ثم استيرادها الى القاعدة المحدثة

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

واعجبنى كثيرا  تعليق اخونا  فارس كثيرا

في ٢‏/١‏/٢٠١٩ at 01:04, فارس بني هلال said:

جاري تنزيل المرفق والعمل عليه وان شاء الله سنوافيكم بانتائج

 

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

 

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

 

 

 

 

 

[N_ELMASRY]

فكرة رائعة وجديدة وأكثر من رائعة ....

جزاك الله خيرًا على الفكرة وشعلة البداية

وجارى التحميل والتجربة

ومحاولة المشاركة إن لم تكن بالتطوير فالأفكار

[ابوآمنة]

جزاك الله خيراً 

تم تجربة الفكرة وهي تعمل بنجاح 

شكراً لك دائماً متألق 

[Ali Mohamed Ali]

ممتاز بارك الله فيك

[فريدالطحان]

يعطينى error فى تلك الجملة

 

Private Function GetContentLength(ByVal url As String) As Long
    Dim hInternet             As Long
    Dim hRequest              As Long
    Dim dwFileSize            As Long
    Dim dwLength              As Long
    Dim dwIndex               As Long

    dwLength = 4    ' DWORD 32 bit value buffer length.
    hInternet = InternetOpenW(0, 1, 0, 0, WININET_API_FLAG_SYNC)
    hRequest = InternetOpenUrlW(hInternet, StrPtr(url), 0, 0, 0, 0)

    If HttpQueryInfoW(hRequest, HTTP_QUERY_CONTENT_LENGTH Or HTTP_QUERY_FLAG_NUMBER, dwFileSize, dwLength, dwIndex) Then
        GetContentLength = dwFileSize
    Else
        GetContentLength = (-1)
    End If

    InternetCloseHandle hRequest
    InternetCloseHandle hInternet
End Function

تم تعديل مايو 10, 2020 بواسطه فريدالطحان

[a222]

السؤال هو كيف ادخل واغير الرابط من البرنامج الي عطيته للعميل .. ؟ 

[kamelnet5]

السلام عليكم و رحمة الله و بركاته

عند عرض ملف التعليمات لايكتب بالغة العربي ويظهر هكذا

 

ماهي المشكلة جزاككم الله خيرا