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