ازهر عبد العزيز قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 (معدل) السلام عليكم ..... كيف استطيع تحويل التاريخ الى العربي في التقرير المتغير.accdb تم تعديل يوليو 8, 2019 بواسطه ازهر عبد العزيز رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 تريده مفصل كما هو موجود يعني مثلا 05 ذو القعدة 1440 او تاريخ فقط 1440/11/05 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 وعليكم السلام 🙂 جوابك قد تحصل عليه في احد هذه الروابط . . . جعفر 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 (معدل) اتفضل كل شئ بالعربى >>---> التاريخ الميلادى - التاريخ الهجرى - الوقت دونما التقيد بلغة النظام المتغير (1).accdb تم تعديل يوليو 8, 2019 بواسطه ابا جودى 1 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر يوليو 8, 2019 الكاتب مشاركة قام بنشر يوليو 8, 2019 أستاذ @Barna استاذي @ابا جودى استاذي @jjafferr شكرا جزيلا لكم احسنت تم الحل معكم شكرا لمروركم الكريم رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 الاستاذة الافاضل باقى الداتا الموجودة فى التقرير كيف يتم يحويلها ارجو المساعدة للاستفادة 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 (معدل) 20 دقائق مضت, jo_2010 said: الاستاذة الافاضل باقى الداتا الموجودة فى التقرير كيف يتم يحويلها ارجو المساعدة للاستفادة شوف الاستعلام الذى هو مصدر التقرير مررت كل ما اريد تعريبه الى الكود ArbNmbr(myData) مع تغيير muData بـــ اسم الحقل الذى اريد تغير قيمه الى العربيه ArbNmbr([FildeName]) المتغير (2) .accdb تم تعديل يوليو 8, 2019 بواسطه ابا جودى 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 4 ساعات مضت, ابا جودى said: دونما التقيد بلغة النظام اخوي ابا جودي 🙂 ملاحظتك غير دقيقة !! لأنه اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل على هذه الرسالة ، لأن الكود عندك به كلمات عربية : والطريقة اللي ممكن تجعل برامجك تشتغل بكل اللغات بدون الخطأ اعلاه : ولكن ، صحيح انك ما راح تحصل على خطأ ، وصحيح انك استخرجت الارقام العربية من unicode الخط ، ولكن كلماتك العربية (اسماء الايام والاشهر) تحتاج ان يكون في الوندوز خطوط عربية 😞 جعفر 1 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 عفو استاذى خاننى التعبيـــــر انا اقصد دونما التقييد بتنسيق الوقت والتاريخ واللغة المستخدمة لعرضهما لكن نعم استاذى لابد من وجود اللغة العربية طبعا والخطوط العربية رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 6 ساعات مضت, jjafferr said: . جعفر اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل ايضا على هذه الرسالة ، لأن الكود عندك به كلمات عربية 6 ساعات مضت, jjafferr said: جعفر ولكن ما قصدته ان نخرج من تحت عباءه التعديل على اعدادت الويندوز مثل هذا الموضوع من يعدل يحصل على النتيحة ومن لا يعدل لن يحصل عليها رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 استاذنا الفاضل اب جودى خالص الشكر على المثال المرسل الذى تعلمت منة وقمت بتطبيقة على عملى خالص الشكر 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 8, 2019 مشاركة قام بنشر يوليو 8, 2019 19 دقائق مضت, jo_2010 said: استاذنا الفاضل اب جودى خالص الشكر على المثال المرسل الذى تعلمت منة وقمت بتطبيقة على عملى خالص الشكر اخى الحبيب ان استوجب الامر الشكر فليكم لله تعالى ولاساتذتنا الكرام الذين لولا فضل الله تعالى علينا ثم افضالهم ما وصلنا الى هذه النتائج المبشرة بالخير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 9, 2019 مشاركة قام بنشر يوليو 9, 2019 23 ساعات مضت, ابا جودى said: اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل ايضا على هذه الرسالة ، لأن الكود عندك به كلمات عربية اذا كانت الكلمات العربية في جدول ، فلن تحصل على رسالة الخطأ ، وانما لن يستطيع الاكسس قراءة الكلمات لأنه لا توجد خطوط عربية في الوندوز ، فيعطيك الاكسس علامات استفهام بدل الكلمة ، هكذا مثلا: ????? ??? 🙂 جعفر رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 9, 2019 مشاركة قام بنشر يوليو 9, 2019 الان, jjafferr said: اذا كانت الكلمات العربية في جدول ، فلن تحصل على رسالة الخطأ ، وانما لن يستطيع الاكسس قراءة الكلمات لأنه لا توجد خطوط عربية في الوندوز ، فيعطيك الاكسس علامات استفهام بدل الكلمة ، هكذا مثلا: ????? ??? 🙂 جعفر بصراحة هذه معلومة لم اكن اعلم عنها انا كنت اظن ان كل الكلمات العربية ان لم يكن الويندوز يدعم اللغة العربية فلن يستطع قرائتها طيب استاذى الجليل ومعلمى القدير و والدى الجبيب لى سؤال حضرتك قمت بالاطلاع على فكرتى والالية التى استخدمتها بوضع كل شئ بالموديول هل حضرتك تنصح بان انقل كل شئ الى جداول واقوم بجلب ما اريد منها على طريقتكم بدمج الطريقتين رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 9, 2019 مشاركة قام بنشر يوليو 9, 2019 وبهذا نحصل على تعريب الارقام دون التقيد بتنسيق الويندوز او التعديلاعلى اعداداته كما اننا نتلافى ما اشرتم اليه بعاليه انتظر رايكم أستاذى الجليل و ومعلمى القدير و والدى الحبيب استاذ @jjafferr واعتذر لاثقالى عليكم بكثرة اسألتى حزاكم الله الفردوس الأعلى رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 9, 2019 مشاركة قام بنشر يوليو 9, 2019 1 دقيقه مضت, ابا جودى said: هل حضرتك تنصح بان انقل كل شئ الى جداول واقوم بجلب ما اريد منها على طريقتكم بدمج الطريقتين نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ، وطبعا الكود الانجليزي يظل في الكود 🙂 واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ، والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه : Public Function ToWhat(ByRef myData As String, To_Hijri_Milady As String) As String On Error GoTo ErrorHandler 'to call the Function 'Hijri to Milady 'txt Milady date = ToWhat(txt Hijri date, "H") ' 'Milady to Hijri 'txt Hijri date = ToWhat(txt Milady date, "M") Dim CorctAdjustDay As Integer CorctAdjustDay = DLookup("[AdjustDay]", "tblAdjustHjriDate") If To_Hijri_Milady = "M" Then myData = Trim(Format(DateAdd("d", -1 * CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 1 d = CDate(myData) VBA.Calendar = 0 Else myData = Trim(Format(DateAdd("d", CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 0 d = CDate(myData) VBA.Calendar = 1 End If s = CStr(d) ToWhat = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal ErrorHandlerExit: Exit Function ErrorHandler: If Err = 13 Then MsgBox "لم تقم بإداخال قيمة صحيحة للتاريخ", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Exit Function 'Resume Next Else Resume ErrorHandlerExit End If End Function جعفر 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 9, 2019 مشاركة قام بنشر يوليو 9, 2019 (معدل) 19 دقائق مضت, jjafferr said: نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ، وطبعا الكود الانجليزي يظل في الكود 🙂 واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ، والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه : جعفر جزاكم الله خيرا على معلوماتكم الرائعة وتوجيهاتكم الرشيدة وبعدين ايه اذا تسمح لى دى انا وما املك ملك يمينك لبيك يا استاذى الجليل ومعلمى القدير و والدى الحبيب يا استاذ @jjafferr لم تبخلوا يوما على اى طالب علم وانا منهم بشئ زادكم الله من فضله شكرا على دمج الدالتين بصراحة ولا اروع ان شاء الله تعالى مستقبلا اعود نفسيى على ذلك بامر الله تعالى اسال الله تعالى لكم البركة فى العلم والعمر والعمل واسال الله تعالى ان يرزقكم القبول وان يتقبل منكم اعمالكم ويرضى عنكم ويرضيكم وللعلم استاذى الجليل ومعلمى القدير والدى الحبيب استاذ @jjafferr هذا هو المرفق الاخير لى بهذا الصدد ان احببتم الاطلاع عليه التحويل من هجرى الى ميلادى.accdb تم تعديل يوليو 9, 2019 بواسطه ابا جودى 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 10, 2019 مشاركة قام بنشر يوليو 10, 2019 شكرا بشمهندس 🙂 جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان