ارجو المساعده فى الخطأ الذى يحدث بالكود

[إبراهيم ابوليله]

الاخوه الافاضل

تحية طيبه وبعد

مرفق شيت يقو باستخراج كشف حساب للعميل

الرقم السرى 123

اضغظ على الزر الموجود فى لاشيت

ثم زر ENTER OR CORRECT

ثم ادخل التاريخ

ثم رقم العميل 20100100401

ثم اكتب فى خانة PAYED اى مبلغ تريده

وليكن 10500

ثم قم بعمل SAVE

اذهب الى الشيت ستلاحظ الاخطاء التالية

1- يوجد كود ضمن اليوزر فورم 12 يتم استدعاءه اسمه CALL CODE

    هذا الكود لا يعمل فلماذا

2- اضغط على الزر الموجود فى الشيت ثم REPORT

   ثم ادخل التاريخ من 1/1/2013 الى  التاريخ الذى قمت بادخاله مسبقا

   ثم اكتب رقم العميل 20100100401 واى اسم تريد فى خانة SHEET NAME

  ثم اضغط على زر BALLANCE

 ثم اذهب الى الشيت الذى قمت بانشائه ستلاحظ ان البيانات التى قمت باضافتها 

 لا تظهر ضمن كشف الحساب 

3-اذا ذهبت الى شيت INVOICE ثم قمت بعمل دبل كليك على التاريخ 

ثم قمت بعمل ريبورت ستجد ان البيانات قد ظهرت

ارجو المساعده

LXR-2013.rar

[إبراهيم ابوليله]

الاخوه الافاضل

اعتقد انك يجب ان تشاهدو ذلك

 

STA.rar

[حمادة عمر]

الاخوه الافاضل

اعتقد انك يجب ان تشاهدو ذلك

 

الاخ الكريم / إبراهيم ابوليله

 

ما فهمته من الفيديو المرفق ان المشكلة لديك هو انك تكتب التاريخ بصيغة في الفورم

ويتم ترحيله للاكسيل بصيغة اخري وعلي ذلك

 

قم بتنسيق الخلايا الخاصة بالتاريخ من تنسيق خلايا

للحصول علي شكل التاريخ الذي اطلبه

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

[عبدالله المجرب]

2- اضغط على الزر الموجود فى الشيت ثم REPORT

   ثم ادخل التاريخ من 1/1/2013 الى  التاريخ الذى قمت بادخاله مسبقا

   ثم اكتب رقم العميل 20100100401 واى اسم تريد فى خانة SHEET NAME

  ثم اضغط على زر BALLANCE

 ثم اذهب الى الشيت الذى قمت بانشائه ستلاحظ ان البيانات التى قمت باضافتها 

 لا تظهر ضمن كشف الحساب 

3-اذا ذهبت الى شيت INVOICE ثم قمت بعمل دبل كليك على التاريخ 

ثم قمت بعمل ريبورت ستجد ان البيانات قد ظهرت

ارجو المساعده

 

بصراحة جربت الخطوات وظهرت البيانات في عرض الطباعة

[إبراهيم ابوليله]

 

2- اضغط على الزر الموجود فى الشيت ثم REPORT

   ثم ادخل التاريخ من 1/1/2013 الى  التاريخ الذى قمت بادخاله مسبقا

   ثم اكتب رقم العميل 20100100401 واى اسم تريد فى خانة SHEET NAME

  ثم اضغط على زر BALLANCE

 ثم اذهب الى الشيت الذى قمت بانشائه ستلاحظ ان البيانات التى قمت باضافتها 

 لا تظهر ضمن كشف الحساب 

3-اذا ذهبت الى شيت INVOICE ثم قمت بعمل دبل كليك على التاريخ 

ثم قمت بعمل ريبورت ستجد ان البيانات قد ظهرت

ارجو المساعده

 

بصراحة جربت الخطوات وظهرت البيانات في عرض الطباعة

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

ستلاحظ اننى حينما اقوم بكتابة التاريخ فى اليوزر فورم مثلا 1/4/2013

يتم ترحيله الى الشيت 4/1/2013

ارجو المساعده

[حمادة عمر]

الاخ الكريم / ابراهيم

جرب عمل تنسيق لعمود التاريخ بتغيير التنسيق كما ذكرت لك في المشاركة رقم 3#

وان كنت لا تريد من عمود التاريخ شئياً غير الادخال جرب تنسيق العمود الي نص

 

فما يظهر معك في صفحة الاكسيل بعد الترحيل هو نفس اليوم ونفس الشهر ونفس العام ولكن بتغيير التنسيق فقط

يضع الشهر قبل اليوم

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

[إبراهيم ابوليله]

الاخ الكريم / ابراهيم

جرب عمل تنسيق لعمود التاريخ بتغيير التنسيق كما ذكرت لك في المشاركة رقم 3#

وان كنت لا تريد من عمود التاريخ شئياً غير الادخال جرب تنسيق العمود الي نص

 

فما يظهر معك في صفحة الاكسيل بعد الترحيل هو نفس اليوم ونفس الشهر ونفس العام ولكن بتغيير التنسيق فقط

يضع الشهر قبل اليوم

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

الاخ حماده

مشكورا على الاهتمام

ولكنى بالفعل مطبق تنسيق التاريخ على الخلايا

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

تم الترحيل خطأ كما ذكرت 

ولكنى عن الذهاب الى الخليه

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

يتم كتابة التاريخ بالصوره الصحيحه

وبصراحه لا اعرف ما هو الخطأ

وبذلك فانا لى سؤال لك

هل قمت بتجربة الملف

وهل تم ترحيل التاريخ معك بصوره صحيحه

جرب انت انت تدخل التاريخ  1/4/2013

1/5/2013

1/2/2013

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

تم تعديل فبراير 20, 2013 بواسطه إبراهيم ابوليله

[حمادة عمر]

الاخ الكريم / إبراهيم ابوليله

قم بتغيير تنسيق التاريخ في التكست بوكس 3 الي الكود التالي بدلاً من الموجود وجرب

حيث قمت بتجربته اكثر من مرة ويعطيني النتيجة المطلوبة

برجاء التجربة

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

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'تنسيق التاريخ ... قم بتبديل اليوم مكان الشهر
TextBox3.Value = Format(TextBox3.Value, "MM/DD/YYYY")
End Sub

[إبراهيم ابوليله]

الاخ الكريم / إبراهيم ابوليله

قم بتغيير تنسيق التاريخ في التكست بوكس 3 الي الكود التالي بدلاً من الموجود وجرب

حيث قمت بتجربته اكثر من مرة ويعطيني النتيجة المطلوبة

برجاء التجربة

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

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'تنسيق التاريخ ... قم بتبديل اليوم مكان الشهر
TextBox3.Value = Format(TextBox3.Value, "MM/DD/YYYY")
End Sub

اخى الكريم 

حماده مشكورا على الاهتمام

وبارك الله فى امثالك

ولكنى اتسائل 

لماذا ذلك

مع ان ذلك من المفرض ان يكون خطأ

والمشكله اننى اريد ان اعرف ما سبب حدوث ذلك

ارجو ان يساعدنا احد الخوه الاعضاء

من خبراء المنتدى

كمان على ما اعتقد اخى

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

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

سوف تجد التاريخ مكتوبا ليس كما اردته

وبالتالى ممكن تظن انك كتبته بالطريق الخطأ

فترجع الى كتابته مره اخرى

وهكذا

تم تعديل فبراير 20, 2013 بواسطه إبراهيم ابوليله

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

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

وننتظر ايضاً رد من احد عباقرة هذا الصرح الكبير

والمهم اخي الكريم انها تعمل لديك بكفاءة كما تريد

ولاتقلق من ذلك فلا يوجد خطأ بالكود باذن الله

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

[علي سالم 75]

استخدم  CDate

 

 

مثال:

Range("C5").Value = CDate(Me.TextBox1)
 

تحياتي