مدحت توفيق قام بنشر سبتمبر 5, 2020 مشاركة قام بنشر سبتمبر 5, 2020 قصدي هو عندما افتح نموذج ادخل ضد الغير جديد يفتح علي رقم الوثيقة باضافة واحد من خلال القيمة السابقة رقم الوثيقة = القيمة السابقة + 1 رقم الوثيقة = قابل لتغير في اي وقت برجاء المساعدة المرفق بالاسفل وافر الاحترام والتقدير شاكرين حسن تعاونكم معنا k222 (1).rar رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر سبتمبر 5, 2020 مشاركة قام بنشر سبتمبر 5, 2020 ممكن توضيح ل 6 ساعات مضت, سالم محمد said: رقم الوثيقة = قابل لتغير في اي وقت يعنى مثلا عندك رقم 41/20/995/4455 و 41/20/995/4456 يعن الاربع اقام 4455 و 4456 دول اللى هيتغيروا بزياده 1 ولا ايه اللى هيتغير وضح اكتر حتى تجد الحل باذن الله بالتوفيق اخى رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 صح يعني مثلا اخر سجل في رقم 41/20/995/4456 عند فتح سجل جديد يزود واحد ليصبح 41/20/995/4457 رقم الوثيقة مش ثابت ممكن يتغير في اي وقت بمعني استلمت عدد ٥٠٠ وثيقة بمسلسل معين بعد فتره هستلم بسريال مختلف ويكون 41/20/995/34500 اريد عند اضافة رقم الوثيقة عند فتح سجل جديد رقم الوثيقه+١ رقم الوثيقة قابل للتغير رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 (معدل) تفضل التعديل اخي الكريم و لإضافة رقم 1 على اخر وثيقة ضع في القيمة الافتراضية لحقل رقم الوثيقة ="41/20/995/" & Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1 kkkkk1.accdb تم تعديل سبتمبر 6, 2020 بواسطه د.كاف يار رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 السيد / د.كاف يار المحترم تحيه طيبه وبعد ارقام السريال مختلفه غير ثابته مثلا ممكن 41/20/995 او 400/420/20 او 62/20/12 او 40/20/465 او 45/20/55 رقم الوثيقة يتغير باستمرار مع استلام وثائق بسريال جديد ومختلف ماالحل رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 من طريقة البرنامج و تعدد الشركاات بداخله استنتج بأنكم وسطاء تأمين أي أنك لا تستطيع الالتزام بترقيم تلقائي فكل شركة لها سياسة خاصة في ترقيم الوثائق السنة/رقم الوكيف أو الوسيط / رقم المنطقة/ رقم الوثيقة اذا عليك اضافة تقارير المبيعات الواردة من شركة التأمين دون تعديل رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 السيد / د.كاف يار المحترم ،،،، نعم هذا البرنامج يخص شركة وساطة في هذا البرنامج اقوم بادخل بيانات كل وثيقة علي حدا ربما اكثر 700000 وثيقة مختلف في السريال ممكن يكون نفس السريال 1000 او 2000 وباقي السريال ارقام مختلف فعاوز بدل ما اقوم بادخل رقم الوثيقه في كل مره اني ادخل اول رقم في السريال الجديد يقوم البرنامج باضافة +1 عند فتح سجل جديد رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 تفضل سيتم اضافة عدد 1 لرقم الوثيقة حتى لو اختلف السيريال ضع هذا في عنصر التحكم ( مربع نص ) في النموذج Replace(DLast("[رقم الوثيقة]";"[ضد الغير]");Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11);Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1) رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 السيد / حسين كمال المحترم لا استطيع ذلك حولت اكثر من مره لتفيذ ذلك الكود لم استطيع برجاء المساعدة Replace(DLast("[رقم الوثيقة]";"[ضد الغير]");Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11);Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1) xx.rar رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 تفضل لكن لو تقرأ المعادلة ستجد أنك ملزم بتنسيق معين لأرقام الوثائق xx.accdb 1 رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 السيد / حسين كمال المحترم هذه المعادلة تخص سريال من نفس النوع لكن التعامل يكون مع شركات عديدة ويكون عشرين شركة كل شركة لها سريال مختلف عن الاخر في نفس وقت الشركة تقوم بتغير السريال من الحين والاخر المطلوب ان مدخل البيانات حين يفتح النموذج ( تكون في معادلة تجلب له اخر رقم وثيقة ) وتضيف +1 بحيث يسهل تغير الوثيقة في اي وقت علما بانه هناك تقسيم لشركات ( 20 جدول ) الفكره اريد النموذج يفتح رقم الوثيقة زيادة + 1 ورقم الوثيقة ممكن اغيره في وقت وافر الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 السلام عليكم اخى @سالم محمد مشاركه مع اخى واستاذى حسين @د.كاف يار جزاه الله خيرا فى حالة انك بترك رقم الوثيقه فارغ سيتم جلب اخر سجل تم تسجيله وزياده +1 اما اذا قمت بكتابه رقم وثيقه جديد اى فى حاله التغيير سيتم تسجيله ثم بعد ذلك يتم جلب اخر سجل تم تسجيله وزياده +1 جرب ووافنا بالنتيجه Private Sub nameTamin_AfterUpdate() If Len(numW & "") = 0 Then lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0) strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1 strT = Left(lR, InStrRev(lR, "/")) Me.numW = strT & strRnum Else Me.numW = Me.numW End If End Sub بالتوفيق ان شاء الله k222 - 1.accdb رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 7, 2020 الكاتب مشاركة قام بنشر سبتمبر 7, 2020 (معدل) السيد / الفلاحجى المحترم تحيه طيبه وبعد بخصوص الكود تم نجاحه فقط اريد اظهار الارقام الوثيقة بدل من الفارغ برجاء المساعدة في ذلك الف شكر علي الكود وافر الاحترام والتقدير تم تعديل سبتمبر 7, 2020 بواسطه سالم محمد رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصول لاخى واستاذى حسين @د.كاف يار جزاه الله خيرا 💐 اتفضل ان شاء الله يكون ما تريد Option Compare Database 'Option Explicit Private Sub btnSave_Click() DoCmd.GoToRecord , , acNewRec LastNum End Sub Private Sub Form_Load() LastNum End Sub Private Sub LastNum() lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0) strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1 strT = Left(lR, InStrRev(lR, "/")) Me.numW = strT & strRnum End Sub بالتوفيق k222 - 1.accdb 1 رابط هذا التعليق شارك More sharing options...
مدحت توفيق قام بنشر سبتمبر 7, 2020 الكاتب مشاركة قام بنشر سبتمبر 7, 2020 السيد/ الفلاحجى المحترم السيد / د.كاف يار المحترم شكر لكم علي المساعده وافر الاحترام والتقدير شاكرين علي حسن تعاونكم معنا رابط هذا التعليق شارك 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.