wael_rafat قام بنشر فبراير 25, 2017 الكاتب قام بنشر فبراير 25, 2017 استاذ شيفان بارك الله فيك بعد التجربة المبدئية تبين الاتي :- ملف الdaialy_num نفس المشكلة مرفق صورة توضيحية ولكن الملف كل يوم ورقم تسلسلي جديد بواسطة نموذج فرعي.rar الذي يحتوي على نموذج فرعي .... يعمل تمام وجاري التجربة الفعلية واخبارك بالنتيجة ان شاء الله طبعا كنت اتمني تحقيق الهدف بدون عمل نموذج فرعي ... ولكن حضرتك ما قصرت معي وبميزان حسناتك ان شاء الله برجاء تسامحني على الازعاج والاطالة لحضرتك وبارك الله فيك وجزاك الله كل خير وزادك الله من فضله ...
Shivan Rekany قام بنشر فبراير 25, 2017 قام بنشر فبراير 25, 2017 في 25/2/2017 at 19:24, wael_rafat said: استاذ شيفان بارك الله فيك بعد التجربة المبدئية تبين الاتي :- ملف الdaialy_num نفس المشكلة مرفق صورة توضيحية ولكن الملف كل يوم ورقم تسلسلي جديد بواسطة نموذج فرعي.rar الذي يحتوي على نموذج فرعي .... يعمل تمام وجاري التجربة الفعلية واخبارك بالنتيجة ان شاء الله طبعا كنت اتمني تحقيق الهدف بدون عمل نموذج فرعي ... ولكن حضرتك ما قصرت معي وبميزان حسناتك ان شاء الله برجاء تسامحني على الازعاج والاطالة لحضرتك وبارك الله فيك وجزاك الله كل خير وزادك الله من فضله ... Expand الله اكبر اخي الكريم انا جربت الملف الاول وحين اغير الى شهر ثالث بيعمل عادي لكن اكثر من ذلك بيظهر رسالة خطأ وعندك تظهر شي اخر اريد اعرف مالمشكلة لكن للأسف ما اكدرت ان اساعدك كالمطلوب اعتذر منك 1
wael_rafat قام بنشر فبراير 25, 2017 الكاتب قام بنشر فبراير 25, 2017 في 25/2/2017 at 16:43, رمهان said: j = "dat =# " & F & "#" Expand استاذنا الغالي رمهان بعد التجربة ظهرت نفس المشكلة الموجودة بالسابق . في 25/2/2017 at 16:43, رمهان said: طبعا انا لي عوده معاك بحل وفكرة ولكن اريد ان اصل معاك لشي معين Expand اتمنى ذلك استاذى الحبيب ، وطبعا حضرتك عارف ان تطوير برنامج ال POS بعد فضل الله سبحانة وتعالي يرجع لحضرتك وتوجيهاتك وتحليلاتك ولمساتك الرمهانية الجميلة والمختصرة المعهود بها . وكان اخرها ..... جزئية اضافة زر بالقائمة عند اضافة صنف جديد .. الله لا يحرمنا منك وان شاء الله بهذا الموضوع ايضا منتظر من حضرتك لمسة رمهانية حتي تكتمل الصورة حيث ان هذه الخاصية مهمة جدااااااا بانظمة الكاشير بارك الله فيك وجزاك الله عنا كل خير كل التقدير والاحترام استاذي ومعلمي القدير في 25/2/2017 at 19:31, Shivan Rekany said: الله اكبر اخي الكريم انا جربت الملف الاول وحين اغير الى شهر ثالث بيعمل عادي لكن اكثر من ذلك بيظهر رسالة خطأ وعندك تظهر شي اخر اريد اعرف مالمشكلة لكن للأسف ما اكدرت ان اساعدك كالمطلوب اعتذر منك Expand العفو منك استاذ شيفان انا الذي اعتذر لحضرتك على الازعاج والاطالة واخذ الكثير من وقتك ربنا يبارك فيك وفى اهلك وجزاك الله عنا كل خير كل شكري وتقديري واحترامي استاذى
رمهان قام بنشر فبراير 25, 2017 قام بنشر فبراير 25, 2017 طيب خلينا نقسم الطلب الى 1. ترقيم يومي جرب ان تضع التعبير التالي كتعبير لخاصية القيمة الافتراضية للعنصر Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1 هنا سياخذ العنصر الترقيم اليومي عند فتح سجل جديد 2. عدم اضافة تاريخ سابق خلينا نقفل نقطة 1 اولا بالتوفيق 1
wael_rafat قام بنشر فبراير 25, 2017 الكاتب قام بنشر فبراير 25, 2017 (معدل) في 25/2/2017 at 22:11, رمهان said: طيب خلينا نقسم الطلب الى 1. ترقيم يومي جرب ان تضع التعبير التالي كتعبير لخاصية القيمة الافتراضية للعنصر Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1 Expand تمااام استاذي ..... يعمل تمااام تم تعديل فبراير 25, 2017 بواسطه wael_rafat
رمهان قام بنشر فبراير 25, 2017 قام بنشر فبراير 25, 2017 تمام 2. مشكلة التاريخ السابق ضع الحدث للنموذج قبل لتحديث وهكذا Private Sub Form_BeforeUpdate(Cancel As Integer) If Date < DMax("dat", "Torderno") Then Cancel = MsgBox("لايمكن ... التاريخ سابق!") End Sub وهو نفس الفكرة بملفك ولكن باختصار وتغيير موقع الحدث تحياتي 1
wael_rafat قام بنشر فبراير 25, 2017 الكاتب قام بنشر فبراير 25, 2017 في 25/2/2017 at 22:58, رمهان said: وهو نفس الفكرة بملفك ولكن باختصار وتغيير موقع الحدث Expand انا وضعت 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 يا سلام عليك يا فناااان يا ملك الاختصارات تسلم ايدك استاذنا الغالــــــــــــــي والله لا يحرمنا منك بارك الله فيك وزادك الله من فضله كل الشكر والتقدير
رمهان قام بنشر فبراير 25, 2017 قام بنشر فبراير 25, 2017 هل الموضوع تمام ويغلق ؟ مع اني مش عارف ليش رجعت ومصر وضع الترقيم في الكود ! انا عايزه قيمة افتراضية ! تحياتي
wael_rafat قام بنشر فبراير 25, 2017 الكاتب قام بنشر فبراير 25, 2017 (معدل) في 25/2/2017 at 23:14, رمهان said: مع اني مش عارف ليش رجعت ومصر وضع الترقيم في الكود ! انا عايزه قيمة افتراضية ! Expand هو بالفعل قيمة افتراضية لنموذج المبيعات on load وايضا عند الضغط على زر حفظ بعد ادخال البيانات .... واضحة استاذ رمهاان ؟؟؟ ام اوضحلك اكثر ؟؟ تم تعديل فبراير 25, 2017 بواسطه wael_rafat
رمهان قام بنشر فبراير 25, 2017 قام بنشر فبراير 25, 2017 في 25/2/2017 at 23:14, رمهان said: هل الموضوع تمام ويغلق ؟ Expand
wael_rafat قام بنشر فبراير 25, 2017 الكاتب قام بنشر فبراير 25, 2017 في 25/2/2017 at 23:20, رمهان said: هل الموضوع تمام ويغلق ؟ Expand تمام ان شاء الله وتسلم استاذنا وجزاك الله كل خير كل الشكر والتقدير استاذنا .....
Shivan Rekany قام بنشر فبراير 27, 2017 قام بنشر فبراير 27, 2017 في 25/2/2017 at 19:35, wael_rafat said: العفو منك استاذ شيفان انا الذي اعتذر لحضرتك على الازعاج والاطالة واخذ الكثير من وقتك ربنا يبارك فيك وفى اهلك وجزاك الله عنا كل خير كل شكري وتقديري واحترامي استاذى Expand شكرا لاستاذ رمهان على المشاركة وحل بطريقة اخرى لكن لكي نواصل الحل بطريقة الاولى تم تعديل الكود السابق الى 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 قام بنشر فبراير 27, 2017 الكاتب قام بنشر فبراير 27, 2017 بارك الله فيك استاذ شيفان وجاري التجربة
wael_rafat قام بنشر فبراير 28, 2017 الكاتب قام بنشر فبراير 28, 2017 تمااام استاذ شيفان الكود يعمل تمام تسلم ايدك في 27/2/2017 at 10:12, Shivan Rekany said: اي اضفت مع الشرط صيغة فورمات "[dat] =#" & Format(Me.dat.Value, "mm/dd/yyyy") & "#" Expand تمام استاذ شيفان الكود يعمل تمام تسلم ايدك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.