د.كاف يار

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

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

احبتي حتى لا أطيل في الشرح و بدون مقدمات قصتي تتضح من عنواني و نبدء الآن ... انشئ Module جديد و اضف الكود التالي Option Explicit Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & strInput Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responsetext .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing End Function ثم يمكن تجربة هذه الشفرة الخاصة بتغيير لغة العرض بالطريقة التالية MsgBox Translate("اهلا و سهلا", "ar", "en") مرفق مثال تطبيقي على ما ورد اعلاه و دمتم في رعاية الله و حفظه ... . Data.mdb

اخي الكريم الطريقة التي تستخدمها جدا مجهدة ماذا لو أردت مستقبل اضافة لغة أخرى هل ستعيد بناء الكود من جديد ؟؟ 💡 اقتراح استخدم خدمة translate google فهي تحوي اغلب لغات العالم ان جازت لك الفكرة ستجد ادناه الطريقة للاستفادة منها انشئ Module جديد و اعطه اي اسم ترغب به و ثم اضف الكود التالي Option Explicit Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & strInput Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responsetext .Close End With 'Range("H1") = objHTTP.responsetext Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing End Function بعد ان اضفنا الشفرة الخاصة بجلب اللغة نبدء الأن باستدعاء تلك الشفرة بالطاريقة التالية في حدث ازرار اللغة ضغط كود استدعاء الشفرة اعلاء لاستبدال اللغة المدخلة الى اللغة التي تريدها ' رسالة للتجربة MsgBox Translate("اهلا و سهلا", "ar", "en") بهذه الطريقة تستطيع بناء جدول يحتوي على جميع اللغات التي تريدها و بكل بساطه تستطيع ان تجعل برنامج يخدم جميع لغات العالم تقبل مروري

للأسف المعلومات غير مكتملة اخي الكريم حتى في الرابط الذي ارفقته غير مكتملة الموضوع جميل و مهم و هو يأخذ المستخدم للأعماق و حتى يتنسى العمل به يجب ان يكون لدى المستخدم احد برامج تحرير XML لكن السؤال هنا هل يستطيع الاكسس التعامل مع لغات او محررات أخرى غير XML ؟ من المهم جدا لكل مبرمج معرفة لغة XML لما لها اهمية في صناعة الأدات فحتى نكون منتجين لا مستهلكين للأدوات يجب فعلا تعلم XML و ان نصنع ادواتنا حسب حاجتنا و تصورنا و ان نخرج بها عن المألوف موضوع جميل آمل أن تكمل ما بدءت به . تقبل مروري ... .

اخي الكريم هل تظهر رسالة بالرفض عند الحفظ ؟؟

اخي الكريم طلال يمكن فعلا ربط الوورد بالأكسس من خلال طريقتين الطريقة الأسهل دمج المراسلات ( اسهل طريقة ) من خلال اضافة علامات مرجعية في ملف WORD و استخدام كود برمجي بسيط جدا ( الطريقة المفضلة بسبب عدم وجود تنبيه أمان) تفضل هذا المثال اعددته لك بالكود ارسال البيانات للورد.zip

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

ياليت لو ترفق اي ملف عليه مشكلة خلينا نحاول معاك لإيجاد حل

تفضل التعديل اخي الكريم 1.accdb

لتصفح ملفات الكمبيوتر و اختيار الصورة Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) Else Exit Sub End If End With

صدقت صحيح لكني عدلت الملف حسب طلب اخونا السائل

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

ممتاز لكن فيه خطأ كذلك تفضل التعديل اولا يجب حفظ السطر قبل تنفيذ الحدث لضمان سلامة العملية الحسابية ثم اذا كان هذا السطر هو المستخلص الأول للمشروع بالتالي الكود لن يجد نتيجه للجميع في الجدول فالحل ان يتم اضافة حقل المستخلص لاضافة المتبقي من قيمة المشروع Me.المتبقي = Me.نص30 - Nz(DSum("[مبلغ المستخلص]", "[المستخلصات]", "[كود المشروع]=" & Me.كود_المشروع), Me.مبلغ_المستخلص) مرفق التعديل المشاريع_2.rar

تفضل هذا التعديل اخي الكريم ( اكتشفت خطأ في حساب التاريخ حيث تم التعديل ليحسب من التاريخ الحالي للنظام ) Up_عقود_2.rar

تفضل اخي الكريم

تفضل هذه مشاركة من طرفي اخي طلال لكي تتعدد امامك الحلول و تختار الانسب منها المشاريع.rar

تفضل التعديل اخي الكريم المشكلة انك لم تقم بتفعيل المكتبات بعد نقل الكود قاعدة بيانات جديد.accdb

تفضل التعديل اخي الكريم قادة بيانات البرنامج.accdb

تفضل التعديل اخي الكريم Up_عقود.rar

العفو اخي الكريم فكلنا في خدمتكم

تفضل التعديل اخي الكريم يحب ان يكون الملف في نفس مسار البرنامج او امسح المسار لكي يتم اختيار مكان الملف للاستيراد Handicapés vièrge.zip

طيب اتفضل هذا التعديل عقود خدمات 2.accdb

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

ماشاء الله دائما متألق و حلولك بسيطه و هذا ما يجعلك مشاركاتك جميلة