mrastra قام بنشر مارس 21, 2016 قام بنشر مارس 21, 2016 السلام عليكم مطلوب ترقيم حقل كالتالى 1 - 3 -5- 7 - 9- 11 وعند الوصول الى الرقم 11 .....يبدا الترقيم من جديد شكراااااااااااااااا
كرار صبري _ أبو جنى قام بنشر مارس 22, 2016 قام بنشر مارس 22, 2016 وعليكم السلام و رحمة الله و بركاته ... If DCount("*", "tp") = 0 Or DLast("[id]", "tp") = 11 Then txt1 = 1 Else txt1 = DLast("[id]", "tp") + 2 txt1.Requery End If . . . كرار ... 3
رمهان قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 في 3/22/2016 at 11:28, كرار صبري _ أبو جنى said: وعليكم السلام و رحمة الله و بركاته ... If DCount("*", "tp") = 0 Or DLast("[id]", "tp") = 11 Then txt1 = 1 Else txt1 = DLast("[id]", "tp") + 2 txt1.Requery End If . . . كرار ... فكرة وحل جميل ! ولكن ياترى ماهو الحدث المناسب استاذ كرار في وجهة نظرك ! وانصح دائما بان الترقيم التلقائي الذي له شكل خاص او قاعدة خاصة يكون حقل محسوب يظهر في الاستعلام والنماذج والتقارير معتمدا على حقل تعريف من نوع ترقيم تلقائي ومخفي ! تحياتي
كرار صبري _ أبو جنى قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 20 ساعات مضت, رمهان said: فكرة وحل جميل ! ولكن ياترى ماهو الحدث المناسب استاذ كرار في وجهة نظرك ! شكرا استاذ رمهان ... يمكن ان نضع الكود في حدث عند التحديث لخلية الاسم مثلا ... 20 ساعات مضت, رمهان said: فكرة وحل جميل ! ولكن ياترى ماهو الحدث المناسب استاذ كرار في وجهة نظرك ! شكرا استاذ رمهان ... يمكن ان نضع الكود في حدث عند التحديث لخلية الاسم مثلا ...
رمهان قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 8 دقائق مضت, كرار صبري _ أبو جنى said: يمكن ان نضع الكود في حدث عند التحديث لخلية الاسم مثلا ... لا يوجد حدث بهذا الاسم !!!!! وعد ولي عوده
كرار صبري _ أبو جنى قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 3 دقائق مضت, رمهان said: لا يوجد حدث بهذا الاسم !!!!! اقصد بعد التحديث ...
رمهان قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 تمام ياباشا لو حصل ان تم حذف احد السجلات وليكن الاخير ! مارايك ؟
كرار صبري _ أبو جنى قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 9 دقائق مضت, رمهان said: لو حصل ان تم حذف احد السجلات وليكن الاخير ! اذا تم حذف الاخير فلا مشكلة ... لكن اذا تم حذف سجل من الوسط هنا المشكلة ؟؟؟
رمهان قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 الان, كرار صبري _ أبو جنى said: اذا تم حذف الاخير فلا مشكلة ... لكن اذا تم حذف سجل من الوسط هنا المشكلة ؟؟؟ ليش يا استاذ ! هنا ومن الكود السابق If DCount("*", "tp") = 0 Or DLast("[id]", "tp") = 11 Then تقول اذا العدد صفر او 11 ! ولكن عند حذف الاخير اصبح الاخير 10 ! فلم ينطبق الشرط الاعلى وسيذهب الكود الى else والتي بها اخذ الاخير والذي اصبح 10 ثم زيادة 2 ليصبح العدد 12 وهنا اصبح التسلسل 10 ثم 12 ! ايه رايك ؟ وعلى فكره انا معجب بافكارك دائما تحياتي
كرار صبري _ أبو جنى قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 3 دقائق مضت, رمهان said: ولكن عند حذف الاخير اصبح الاخير 10 يصبح الاخير 9 ... فلا مشكلة ... و لكن المشكلة الحذف من الوسط ... حبي و احترامي ...
رمهان قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 1 دقيقه مضت, كرار صبري _ أبو جنى said: يصبح الاخير 9 ... فلا مشكلة ... و لكن المشكلة الحذف من الوسط ... حبي و احترامي ... برافو عليك ! صحيح ! اذا" تظل مشكلة الحذف من الوسط ! تقبل تحياتي اتمنى ان لا نشغل وقتك ابا جنى في المشكلة حتى يعود السائل 2
كرار صبري _ أبو جنى قام بنشر مارس 25, 2016 قام بنشر مارس 25, 2016 2 ساعات مضت, رمهان said: تقبل تحياتي و تحياتي ... في ٢١/٣/٢٠١٦ at 01:07, mrastra said: السلام عليكم تسلسل خاص 1-11 .rar
mrastra قام بنشر مارس 29, 2016 الكاتب قام بنشر مارس 29, 2016 (معدل) انا موجود ومتابع من اول يوم اخى الكريم ولكن للاسف الكود لا يعمل معى ولو تسمحلى اقول انا كل يوم بعد احل المسالة دى اكثر من 4 ساعات فى اليوم نظرا لاحتياجى الشديد اليها الموضوع متشعب اكثر من ذلك واسمحلى ارفق النلف ليتم التعديل عليه والمطلوب كالاتى بعد تحديث خانه عدد السجلات قى النموذج يبدا العدد من جديد ..... من اول الرقم 1 ثانيا عند الوصول الى شهر 11 تبدا سنه جديدة بعد السنه الحاليه ملحوظة :- الشهر ليس ثابت البداية وانما ممكن يكون 1 او 3 او 5 او 7 او 9 او 11 المهم العدد يبدا من " ابتداء من شهر " ويوصل الى العدد 11 ثم يبدا من الرقم 1 قم 3 ثم 5 ثم 7 ثم 9 ثم 11 وحينها تبدا سنه تالية يعنى لو السنه كانت 2007 يبقى ابتداء من شهر 11 تكون السنه 2008 وهكذا اسف للاطالة الملف فى المرفقات for.rar تم تعديل مارس 29, 2016 بواسطه mrastra
mrastra قام بنشر مارس 29, 2016 الكاتب قام بنشر مارس 29, 2016 وصلت لنتيجة معقولة عملت الترتيب ولكن حصل مشكلتين الاولى انه كمل ترقيم ووصل عدد السجلات اللا الالاف ثانيا عمل كل جروب بنهم سجل فاضى والكود كالاتى Private Sub num_AfterUpdate() Dim i As Integer DoCmd.SetWarnings False DoCmd.RunSQL "delete * from tb_sub where eshterak_id = " & Me.eshterak_id & ";" Do Until DLast("[month_date]", "[tb_sub]") = 11 For i = 1 To Me.num DoCmd.RunSQL " insert into tb_sub (eshterak_id ,month_date,year_date) values ( " & Me.eshterak_id & "," & Me.fr * i & "," & Me.ye & ")" Next i Me.frm_sub.Requery DoCmd.SetWarnings True End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.