مشكلة بكود الترقيم يومي لكل يوم على حده

[wael_rafat]

استاذ شيفان بارك الله فيك

بعد التجربة المبدئية تبين الاتي :-

ملف الdaialy_num   نفس المشكلة مرفق صورة توضيحية

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

وجاري التجربة الفعلية  واخبارك بالنتيجة  ان شاء الله

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

برجاء تسامحني على الازعاج والاطالة لحضرتك

وبارك الله فيك وجزاك الله كل خير  وزادك الله من فضله ...

[Shivan Rekany]

3 دقائق مضت, wael_rafat said:

استاذ شيفان بارك الله فيك

بعد التجربة المبدئية تبين الاتي :-

ملف الdaialy_num   نفس المشكلة مرفق صورة توضيحية

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

وجاري التجربة الفعلية  واخبارك بالنتيجة  ان شاء الله

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

برجاء تسامحني على الازعاج والاطالة لحضرتك

وبارك الله فيك وجزاك الله كل خير  وزادك الله من فضله ...

الله اكبر

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

لكن اكثر من ذلك بيظهر رسالة خطأ

وعندك تظهر شي اخر

اريد اعرف مالمشكلة لكن للأسف ما اكدرت ان اساعدك كالمطلوب

اعتذر منك

 

[wael_rafat]

2 ساعات مضت, رمهان said:

j = "dat =# " & F & "#"

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

2 ساعات مضت, رمهان said:

طبعا انا لي عوده معاك بحل وفكرة ولكن اريد ان اصل معاك لشي معين

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

وكان اخرها ..... جزئية اضافة زر بالقائمة عند اضافة صنف جديد  ..  الله لا يحرمنا منك

وان شاء الله بهذا الموضوع ايضا منتظر من حضرتك لمسة رمهانية  حتي تكتمل الصورة  حيث ان هذه الخاصية مهمة جدااااااا  بانظمة الكاشير

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

كل التقدير والاحترام استاذي ومعلمي القدير

4 دقائق مضت, Shivan Rekany said:

الله اكبر

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

لكن اكثر من ذلك بيظهر رسالة خطأ

وعندك تظهر شي اخر

اريد اعرف مالمشكلة لكن للأسف ما اكدرت ان اساعدك كالمطلوب

اعتذر منك

العفو منك استاذ شيفان

انا الذي اعتذر لحضرتك  على الازعاج والاطالة واخذ الكثير من وقتك

ربنا يبارك فيك وفى اهلك  وجزاك الله عنا كل خير

كل شكري وتقديري واحترامي استاذى

[رمهان]

طيب خلينا نقسم الطلب الى

1. ترقيم يومي

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

Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1

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

2. عدم اضافة تاريخ سابق

خلينا نقفل نقطة 1 اولا

 

بالتوفيق

[wael_rafat]

20 دقائق مضت, رمهان said:

طيب خلينا نقسم الطلب الى

1. ترقيم يومي

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

Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1

تمااام  استاذي .....  يعمل تمااام

تم تعديل فبراير 25, 2017 بواسطه wael_rafat

[رمهان]

تمام

2. مشكلة التاريخ السابق

ضع الحدث للنموذج قبل لتحديث وهكذا

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Date < DMax("dat", "Torderno") Then Cancel = MsgBox("لايمكن ... التاريخ سابق!")
End Sub

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

تحياتي

[wael_rafat]

8 دقائق مضت, رمهان said:

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

انا وضعت

 Dim F As Date
 
 If DCount("daily_serial", "Torderno") > 0 Then
 F = DMax("dat", "Torderno")
 
 If Date < F Then
 MsgBox " لا يمكن"
 DoCmd.close acForm, "f_order"
 End If
 End If
 
 Me.daily_serial = Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1
 

يا سلام عليك يا فناااان يا ملك الاختصارات

تسلم ايدك استاذنا الغالــــــــــــــي  والله لا يحرمنا منك

بارك الله فيك وزادك الله من فضله

كل الشكر والتقدير

[رمهان]

هل الموضوع تمام ويغلق ؟

مع اني مش عارف ليش رجعت ومصر وضع الترقيم في الكود ! انا عايزه قيمة افتراضية ! 

تحياتي

[wael_rafat]

3 دقائق مضت, رمهان said:

مع اني مش عارف ليش رجعت ومصر وضع الترقيم في الكود ! انا عايزه قيمة افتراضية !

هو بالفعل قيمة افتراضية  لنموذج المبيعات  on load

وايضا عند الضغط على زر حفظ  بعد ادخال البيانات ....

 واضحة استاذ رمهاان  ؟؟؟  ام اوضحلك اكثر   ؟؟

 

تم تعديل فبراير 25, 2017 بواسطه wael_rafat

[رمهان]

6 دقائق مضت, رمهان said:

هل الموضوع تمام ويغلق ؟

 

[wael_rafat]

الان, رمهان said:

هل الموضوع تمام ويغلق ؟

تمام ان شاء الله    وتسلم استاذنا  وجزاك الله كل خير

كل الشكر والتقدير  استاذنا .....

[رمهان]

العفو

[Shivan Rekany]

في ٢٥‏/٢‏/٢٠١٧ at 22:35, wael_rafat said:

العفو منك استاذ شيفان

انا الذي اعتذر لحضرتك  على الازعاج والاطالة واخذ الكثير من وقتك

ربنا يبارك فيك وفى اهلك  وجزاك الله عنا كل خير

كل شكري وتقديري واحترامي استاذى

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

On Error Resume Next
    Dim tDate As Date
        tDate = DMax("dat", "torderno")
            If tDate > Me.dat Then
                MsgBox "Êã ÊÛííÑ ÇáÊÇÑíÎ ÓíÛáÞ ÇáäÇÝÐÉ"
                        DoCmd.Close acForm, "aaa", acSaveNo
                    Exit Sub
            End If
If DCount("ID", "TORDERNO") < 1 Or IsNull(DMax("daily_serial", "TORDERNO", "[dat]=#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#")) = True Then
    If Me.dat > Date Then
        MsgBox "Êã ÊÛííÑ ÇáÊÇÑíÎ ÓíÛáÞ ÇáäÇÝÐÉ"
            DoCmd.Close acForm, "aaa", acSaveNo
                End If ' dat > date
        Me.daily_serial = 1
            Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1)
        Else
            DoCmd.GoToRecord , , acNewRec
        Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1)
    Me.daily_serial = DMax("daily_serial", "TORDERNO", "[dat] =#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#") + 1
End If ' DCount("ID", "TORDERNO") < 1

اي اضفت مع الشرط صيغة فورمات

"[dat] =#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#"

جرب وغير التاريخ الى اي تاريخ تريد
وشوف النتيجة
وهذا الملف بعد تعديل

 

Daily num.rar

[wael_rafat]

 بارك الله فيك استاذ شيفان  وجاري التجربة 

[wael_rafat]

تمااام استاذ شيفان  الكود يعمل تمام  تسلم ايدك

20 ساعات مضت, Shivan Rekany said:

اي اضفت مع الشرط صيغة فورمات

"[dat] =#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#"

تمام استاذ شيفان الكود يعمل تمام  تسلم ايدك