طلب تصحيح كود شرط التاريخ

[أبو نادر]

السلام عليكم

حبايبي عندي جدول كل يوم ارحل فيه التمام اليومي للأرفف ومحتاج مساعدتكم

عشان اتاكد ان المستخدم ارسل التمام عملت مربع باسم الرف واضفت كود للنموذج

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

 

دقيت اشارة يمين واشارة شمال وفرفرت حتى دخت ومو راضي يزبط   في شي غلط في كتابة الكود بمعيارين ؟ 

في المرفق الحقول المعنية والكود الي اضفته للتوضيح

 

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

 

 

[ابوخليل]

وعليكم السلام

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

هذا تعديل للكود بطريقتك

if DLookup("[الرف]","التمام_ترحيل","[الرف]='" & [الإلكترونيات] & "'" and "[التاريخ]=#" & date() & "#" )Then

وهذا تعديل بعد كتابة الحروف بطريقة صحيحة يفهمها طالب العلم

if DLookup("[raf]","tmamTrhel","[raf]='" & [Electronyat] & "'" and "[tareekh]=#" & date() & "#" )Then

 

[أبو نادر]

هلا يا وحش 

اولا : بعد كتابتي للموضوع وارساله .. مباشرة تقفل الموقع   

ثانيا :  قسم بالله اتذكر كلامك ونصيحتك  كل ما اكتب كود ويتلخبط .. اول كنت اكتب اكواد بسيطه وما تجي لخبطه

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

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

 

الله يعطيك العافيه يبو خليل .... بجرب الان

[أبو نادر]

للاسف يبو خليل .. تظهر رساله  type mismatch 

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

التوضيح في المرفق  ... بعد ما غيرت الاسماء للانقلش وحولتها  2003

 

 

tamam1.rar

تم تعديل أغسطس 22, 2016 بواسطه أبو نادر

[ابوخليل]

تفضل تم تعديل الكود  ويعمل بكفاءة

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

جرب ووافني بالنتيجة

Dim i As Integer
i = DCount("id", "tamam_tarhel", "raf='" & "electronic" & "'" & " And tarekh=#" & Date & "#")
If i > 0 Then
Me.av.BackColor = 64636
Me.av.ForeColor = 9382400
  Else
Me.av.BackColor = 2037680
Me.av.ForeColor = 16053492
End If

 

[أبو نادر]

فكرتك ميه ميه ما شاء الله عليك ... وطبقت الكود ولكن ما زبط ؟

رحت اتأكد وكتبت الكود في النموذج عشان يبان العدد ولكن ما زبط ؟

 

اشغلتك يبو خليل ....

[ابوخليل]

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

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

انا استخدم  التاريخ الميلادي في اكسس  واستخدم  وحدة نمطية خاصة بتحويل التاريخ

واضع في الجدول حقلين واحد نصي للتاريخ الهجري  والثاني تاريخ ميلادي

مارأيك ؟ 

هل الفكرة غريبة  ؟

[أبو نادر]

ااكيد فكرة غريبه .. انت ابو الحلول  الله يزيدك من العلم

بس غريبه .. انا مسوي كود بسيط في زر الترحيل

قبل الترحيل يتأكد اول بان التاريخ هو تاريخ اليوم واذا العكس تظهر وساله بتحديث التاريخ 

يعني يفهم التاريخ الهجري ؟ 

ما استغني عن حلك يبو خليل 

الليله بسهر مع ذا التاريخ 

[ابوخليل]

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

ولا تنسى ابو هادي صاحب العمل من دعواتك

الآن اذا اردت ان  تدخل تاريخ اليوم الحالي اكتب الدالة  () UmDate  بدلا من Date

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

ولا تنسى القوسين المعقوفين

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

حقل التاريخ الميلادي الموجود في الجدول ضروري  فقد تحتاجه مستقبلا

 

 

tamam3.rar

[أبو نادر]

الله يجزاك خير انت وابو هادي

أكيد بستفيد من هالعمل الله يوفقك والف شكر على جهودك

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

 

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

 

tamam2.rar

[ابوخليل]

ما شاء الله عليك احسنت

هكذا تكتسب الخبرة والاحتراف  ، ولكن أفة العلم النسيان 

في مثالي الاخير  عرضت عليك ما اعمله في برامجي ،

خاصة اذا كانت البرامج تشتمل على مستحقات مالية او انتدابات او اجازات ونحوها ..

فاذا اعتمدت على تاريخ اكسس الهجري ( فلا تتفاجأ ) اذا لم تتمكن من  اظهار يوم معين ، فاذا رجعت الى التقويم الورقي المعتمد وجدته يختلف عن  تقويم اكسس بزيادة يوم او نقصه .

حينها ستبدأ البحث عن حلول

[رمهان]

السلام عليكم

اسمحو لي بتعليق بمثابة التنويه

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

ورايت بان اخ ابو نادر غير النص في الجدول الى انجليزي بدلا من العربي اي كتبت electronic بدلا من الالكترونيات وهذا ليس مطلب للحل ابدا بل ستظهر بيناتك في تقاريرك بالانجليش

تكرما اخ ابو نادر تجربة التالي فالموضوع من حسن الحظ ان شرط التاريخ هو تاريخ اليوم من ما يجعل دالة date() كفيلة سواء تارخ هجري او ميلادي

If Nz(DLookup("[raf]", "tamam_tarhel", "[raf]='electronic' And [tarekh]=date()"), 0) <> 0 Then

بالتوفيق

[أبو نادر]

ابو خليل صدقت .. عندنا اذا اختلف اليوم عن تقويم ام القرى .. نمشي على تقويم ام القرى في المعاملات 

وبرضه بفكر فيها .. وبشوف اذا فيه طريقه بتعديل التاريخ الهجري عن طريق وندوز .. 

الاخ رمهان الله يعطيك العافيه .. انا غيرت المثال بالانقلش عشان ابو خليل  كمثال .. والا برنامجي ٩٠٪‏ عربي  وبتلافاها مستقبلا

بجرب حلك واعطيك خبر . ويا ليت تترجم . والف شكر لك

تم تعديل أغسطس 22, 2016 بواسطه أبو نادر

[أبو نادر]

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

ترجم ترجم ...

 

العلامات في الاكواد بلشششه