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

wael_rafat · فبراير 23, 2017

السلام عليكم ،،،

اخواني واساتذتي الكرام الافاضل

ظهرت معي مشكلة غريبة بخصوص الترقيم اليومي لكل يوم على حدة ، ولم افهم السبب وراء ذلك ؟؟؟

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

Private Sub dailyserial()

كود ترقيم يومي لكل يوم على حده

Dim F, k As Date

Dim j As String

Dim s As Long

If DCount("daily_serial", "Torderno") > 0 Then

F = DMax("dat", "Torderno")

If Date < F Then

MsgBox " غير مسموح ..... لقت تم تغيير تاريخ اليوم ", vbCritical, " تحذير "

DoCmd.close acForm, "f_order"

End If

If Date > F Then

daily_serial = 1

Else

j = "Day(dat) = " & Day(Me.dat)

daily_serial = DMax("daily_serial", "Torderno", j) + 1

End If

Else

daily_serial = 1

End If

End Sub

المشكلة التي ظهرت

على سبيل المثال :

فى يوم 23/2/2017 بدأ ترقيم السجل الاول برقم ( 1 ) ...... تمام

ولكن السجل الثاني يعطي رقم 120 وليس رقم ( 2 ) ؟؟؟؟

باقي السجلات الترقيم مظبوط 121 – 122 – 123 – 124 ....... الخ

فى يوم 24/2/2017 بدأ ترقيم السجل الاول برقم ( 1 ) ...... تمام

ولكن السجل الثاني يعطي رقم 109 وليس رقم ( 2 ) ؟؟؟؟

باقي السجلات الترقيم مظبوط 110 – 111 – 112 – 113 ....... الخ

فى يوم 25/2/2017 بدأ ترقيم السجل الاول برقم ( 1 ) ...... تمام

ولكن السجل الثاني يعطي رقم 95 وليس رقم ( 2 ) ؟؟؟؟

باقي السجلات الترقيم مظبوط 96 – 97 – 98 – 99 ....... الخ

معني ذلك ان المشكلة تكمن فى السجل الثاني الذي يلي الرقم ( 1 ) الخاص بتاريخ اليوم المحدد

وهذه صورة توضيحية للمشكلة للجدول مع وجود السجلات بالجدول ( 2250 سجل )

ولكن بعد تفريغ السجلات من الجدول ضبط الترقيم ...... تمام

غريبة جدا ؟؟؟؟؟

السؤال ما علاقة وجود السجلات باداء الكود ...

وهذه صور توضيحية لعمل الكود مظبوط ولكن بتفريغ الجدول

مع كل الشكر والتقدير ،،،

وبارك الله فيكم جميعاااا ...

**Shivan Rekany** · فبراير 23, 2017

اخي وائل
ارفق نسخة مصغرة من القاعدة لكي نشوفه

تحياتي

wael_rafat · فبراير 23, 2017

اشكرك اخي استاذ شيفان على المشاركة وسرعة الاستجابة

وهذا هو المعتاد منك بارك الله فيك

اتفضل المرفق ... وبة السجلات كما هو

Daily num.rarFetching info...

**Shivan Rekany** · فبراير 23, 2017

في 23‏/2‏/2017 at 08:04, wael_rafat said:

اشكرك اخي استاذ شيفان على المشاركة وسرعة الاستجابة

وهذا هو المعتاد منك بارك الله فيك

اتفضل المرفق ... وبة السجلات كما هو

Daily num.rarFetching info...

Expand

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

مثلا في تاريخ 23\1\2017 عندك رقم 219

لذا واليوم 23\2\2017 يبدأ من رقم 120
وهذا هو الخطأ
وانتظرني لعل اجيب لك حل
تحياتي

**Shivan Rekany** · فبراير 23, 2017

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

Private Sub Command2_Click()
If DCount("ID", "TORDERNO") < 1 Then
    If dat > Date Then
        MsgBox "تم تغيير التاريخ سيغلق النافذة"
            DoCmd.Close
                End If ' dat > date
        Me.daily_serial = 1
            Else
        Me.daily_serial = DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#") + 1
End If ' DCount("ID", "TORDERNO") < 1
End Sub

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

Daily num.rar

wael_rafat · فبراير 23, 2017

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

وللاسف بعد التجربة تظهر رسالة يطلب فيها انه لابد من ادخال قيمة بحقل ال daily _serial

سامحني استاذي

**Shivan Rekany** · فبراير 23, 2017

في 23‏/2‏/2017 at 11:36, wael_rafat said:

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

وللاسف بعد التجربة تظهر رسالة يطلب فيها انه لابد من ادخال قيمة بحقل ال daily _serial

سامحني استاذي

Expand

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

Private Sub Command2_Click()
On Error Resume Next
If DCount("ID", "TORDERNO") < 1 Or IsNull(DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#")) = 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]=#" & Me.dat & "#") + 1
End If ' DCount("ID", "TORDERNO") < 1
End Sub

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

Daily num.rarFetching info...

تم تعديل فبراير 23, 2017 بواسطه Shivan Rekany

wael_rafat · فبراير 23, 2017

في 23‏/2‏/2017 at 12:00, Shivan Rekany said:

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

Expand

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

انا اللي اسف علي الاطالة

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

كل الشكر والتقدير لشخصكم الكريم

wael_rafat · فبراير 23, 2017

للاسف استاذ شيفان ما ضبط

ففي حالة اختيار شهر اخر او سنة اخرى لا يتم الترقيم ويثبت عند رقم ( 1 )

مرفق صورة توضيحية

وسامحني استاذي الكريم

**Shivan Rekany** · فبراير 23, 2017

في 23‏/2‏/2017 at 13:57, wael_rafat said:

للاسف استاذ شيفان ما ضبط

ففي حالة اختيار شهر اخر او سنة اخرى لا يتم الترقيم ويثبت عند رقم ( 1 )

مرفق صورة توضيحية

وسامحني استاذي الكريم

Expand

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

wael_rafat · فبراير 23, 2017

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

بالاضافة الي انني اقوم بتغيير التاريخ الي الامام والي الخلف وللاسف بيقبل ايضا ...

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

**Shivan Rekany** · فبراير 23, 2017

في 23‏/2‏/2017 at 14:33, wael_rafat said:

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

بالاضافة الي انني اقوم بتغيير التاريخ الي الامام والي الخلف وللاسف بيقبل ايضا ...

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

Expand

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

wael_rafat · فبراير 23, 2017

في 23‏/2‏/2017 at 12:00, Shivan Rekany said:

Private Sub Command2_Click()
On Error Resume Next
If DCount("ID", "TORDERNO") < 1 Or IsNull(DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#")) = 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]=#" & Me.dat & "#") + 1
End If ' DCount("ID", "TORDERNO") < 1
End Sub

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

Daily num.rarFetching info...

Expand

اتفضل استاذى هذاالفيديو يوضح كلامي

1.rarFetching info...

**Shivan Rekany** · فبراير 23, 2017

في 23‏/2‏/2017 at 17:08, wael_rafat said:

اتفضل استاذى هذاالفيديو يوضح كلامي

1.rarFetching info...

Expand

اي الفيديو بيقول ان الكود بيعمل صح
لانك غيرت تاريخ الجهاز الى تاريخ قبل الان وغيرت الى 21\2\2017
وهذا التاريخ ما كان موجود في الجدول لذا بدأت برقم 1
شوف غير التاريخ الى 18\2\2017 وشوف بأي رقم راح يبدأ
تحياتي

wael_rafat · فبراير 23, 2017

يا استاذ شيفان المفروض ما يقبل بتاريخ اقل من تاريخ اليوم

هذا معناه تلاعب بالجهاز

والفيديو التالي يوضح الخطأ فى حالة اختيار شهر اخر

2.rarFetching info...

**رمهان** · فبراير 23, 2017

في 23‏/2‏/2017 at 07:19, wael_rafat said:

السلام عليكم ،،،

اخواني واساتذتي الكرام الافاضل

ظهرت معي مشكلة غريبة بخصوص الترقيم اليومي لكل يوم على حدة ، ولم افهم السبب وراء ذلك ؟؟؟

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

Private Sub dailyserial()

كود ترقيم يومي لكل يوم على حده

Dim F, k As Date

Dim j As String

Dim s As Long

If DCount("daily_serial", "Torderno") > 0 Then

F = DMax("dat", "Torderno")

If Date < F Then

MsgBox " غير مسموح ..... لقت تم تغيير تاريخ اليوم ", vbCritical, " تحذير "

DoCmd.close acForm, "f_order"

End If

If Date > F Then

daily_serial = 1

Else

j = "Day(dat) = " & Day(Me.dat)

daily_serial = DMax("daily_serial", "Torderno", j) + 1

End If

Else

daily_serial = 1

End If

End Sub

المشكلة التي ظهرت

على سبيل المثال :

فى يوم 23/2/2017 بدأ ترقيم السجل الاول برقم ( 1 )   ......   تمام

ولكن السجل الثاني يعطي رقم 120   وليس رقم ( 2 ) ؟؟؟؟

باقي السجلات الترقيم مظبوط 121 – 122 – 123 – 124 ....... الخ

فى يوم 24/2/2017 بدأ ترقيم السجل الاول برقم ( 1 )   ......   تمام

ولكن السجل الثاني يعطي رقم 109   وليس رقم ( 2 ) ؟؟؟؟

باقي السجلات الترقيم مظبوط 110 – 111 – 112 – 113 ....... الخ

فى يوم 25/2/2017 بدأ ترقيم السجل الاول برقم ( 1 )   ......   تمام

ولكن السجل الثاني يعطي رقم 95   وليس رقم ( 2 ) ؟؟؟؟

باقي السجلات الترقيم مظبوط 96 – 97 – 98 – 99 ....... الخ

معني ذلك ان المشكلة تكمن فى السجل الثاني الذي يلي الرقم ( 1 ) الخاص بتاريخ اليوم المحدد

وهذه صورة توضيحية للمشكلة للجدول مع وجود السجلات بالجدول ( 2250 سجل )

ولكن بعد تفريغ السجلات من الجدول ضبط الترقيم ......  تمام

غريبة جدا ؟؟؟؟؟

السؤال ما علاقة وجود السجلات باداء الكود ...

وهذه صور توضيحية لعمل الكود مظبوط ولكن بتفريغ الجدول

مع كل الشكر والتقدير ،،،

وبارك الله فيكم جميعاااا ...

Expand

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

جرب تعديل السطر الى

j = "dat =# " & Me.dat & "#"

في عملك السابق

بالتوفيق

wael_rafat · فبراير 24, 2017

اهلا بيك استاذنا الغالــي رمهان صاحب اللمسات الرمهانية الجبارة ... الله لا يحرمنا منكم

بعد التجربة حصل الاتــــي :-

1 - الترقيم خلال اليوم الحالي والايام التالية خلال الشهر ...... تمااااااام

2 - عند تغيير التاريخ للخلف يغلق النموذج ..... تماااام

ولكن ..

عند اختيار شهر او سنة مختلف مثل 1 / 3 / 2017 او 1/ 1 / 2018 يقوم بترقيم الرقم ( 1 ) فقط .....ثم بعد ذلك تظهر الرسالة التالية

وهذا هو الملف

wael.rarFetching info...

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

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

**Shivan Rekany** · فبراير 24, 2017

في 23‏/2‏/2017 at 17:23, Shivan Rekany said:

اي الفيديو بيقول ان الكود بيعمل صح
لانك غيرت تاريخ الجهاز الى تاريخ قبل الان وغيرت الى 21\2\2017
وهذا التاريخ ما كان موجود في الجدول لذا بدأت برقم 1
شوف غير التاريخ الى 18\2\2017 وشوف بأي رقم راح يبدأ
تحياتي

Expand

الان انا فهمتك بالضبط

غدا ان شاء الله راح اعود لك ومع طلبك

الان انا عم استخدم موبايل

انتظرني

تحياتي

**Shivan Rekany** · فبراير 24, 2017

اتفضل هذا هو الكود

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]=#" & Me.dat & "#")) = 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]=#" & Me.dat & "#") + 1
End If ' DCount("ID", "TORDERNO") < 1

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

Daily num.rar

wael_rafat · فبراير 24, 2017

استاذي شيفان والله انا محرج منك

انا اسف .... للاسف نفس المشكلة تظهر عند اختيار شهر تالي وايضا سنة تالية

واضح ان المشكلة تكمن فى عدم التعرف على الشهر والسنة

وربنا يبارك فيك ويجازيك عنا كل خير ... مع احترامي وتقديري

wael_rafat · فبراير 24, 2017

اساتذتي الافاضل بارك الله فيكم

المشكلة ان الكود يبحث عن اكبر قيمة لل daily_serial لنفس اليوم المخزن بالجدول بصرف النظر عن الشهر والسنة ، ثم يقوم باضافة +1

يعني مثلا تاريخ اليوم 24 / 2 / 2017

يوجد لدينا بالجدول يوم 24/ 1 / 2017 اعلي قيمة له 30

ويوم 24/ 6/ 2016 اعلى قيمة له 40

ويوم 24/ 9/ 2015 اعلي قيمه له 50

فان الكود يقوم يأخذ اعلي قيمة ليوم 24 بالجدول ثم +1 وهنا اعلي قيمة رقم 50 بتاريخ 24/ 9 /2015 وبعد اضافة 1 لها فيصبح الرقم الجديد 51

مع ان الشهر والسنة مختلفين ...

وعلية .....

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

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

wael_rafat · فبراير 24, 2017

بارك الله فيكم

**Shivan Rekany** · فبراير 25, 2017

اتفضل اخي
اليك هذا القاعدة وانا جربت عليه وغيرت التاريخ الى 14\3\2017 وكان نتيجة مضبوطة
لكن حين انا حولت التاريخ الى شهر 4 بيطلع رسالة خطأ ومع ذلك طلع معي رسالة اخر باقتراب مدة صلاحية اوفيس
وانا اعمل على اوفيس اصدار 2010 لكن مش عصلية :biggrin:
جرب انت احتمال ما يصير معك هذا شي Daily num.rar
وعملت هذا بواسطة نموذج فرعي وبيشتغل تمام 100% كل يوم ورقم تسلسلي جديد بواسطة نموذج فرعي.rar

**رمهان** · فبراير 25, 2017

جرب

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

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

**Shivan Rekany** · فبراير 25, 2017

في 25‏/2‏/2017 at 16:43, رمهان said:
جرب
j = "dat =# " & F & "#"
طبعا انا لي عوده معاك بحل وفكرة ولكن اريد ان اصل معاك لشي معين
Expand

انا جربت لكن نفس الخطأ اللي صار معي اللي قلت في مشاركتي السابقة بعد تغيير التاريخ

في 25‏/2‏/2017 at 15:41, Shivan Rekany said:

اتفضل اخي
اليك هذا القاعدة وانا جربت عليه وغيرت التاريخ الى 14\3\2017 وكان نتيجة مضبوطة
لكن حين انا حولت التاريخ الى شهر 4 بيطلع رسالة خطأ ومع ذلك طلع معي رسالة اخر باقتراب مدة صلاحية اوفيس
وانا اعمل على اوفيس اصدار 2010 لكن مش عصلية
جرب انت احتمال ما يصير معك هذا شي Daily num.rar

Expand

تسجيل الدخول

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

الردود الموصى بها

wael_rafat

Shivan Rekany

wael_rafat

Shivan Rekany

Shivan Rekany

wael_rafat

Shivan Rekany

wael_rafat

wael_rafat

Shivan Rekany

wael_rafat

Shivan Rekany

wael_rafat

Shivan Rekany

wael_rafat

رمهان

wael_rafat

Shivan Rekany

Shivan Rekany

wael_rafat

wael_rafat

wael_rafat

Shivan Rekany

رمهان

Shivan Rekany

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information