ابو هاله النبلسي قام بنشر نوفمبر 28, 2021 مشاركة قام بنشر نوفمبر 28, 2021 السلام عليكم ورحمة الله وبركاته كيف يتم اضافة رقم لكل اسم في الحقل الحاسبي حسب المرفق لكن بداية كل رقم مفتاح 11 يعني الاسم الاول يصبح الرقم الحسابي 111 والاسم الثاني 112 والثالث 113 وهكذا New Microsoft Access Database.accdb رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 28, 2021 مشاركة قام بنشر نوفمبر 28, 2021 (معدل) 4 ساعات مضت, ابو عبد الرحمن العراقي said: السلام عليكم ورحمة الله وبركاته كيف يتم اضافة رقم لكل اسم في الحقل الحاسبي حسب المرفق لكن بداية كل رقم مفتاح 11 يعني الاسم الاول يصبح الرقم الحسابي 111 والاسم الثاني 112 والثالث 113 وهكذا اتفضل قم بوضع هذا الكود فى حدث عند النقر على زر امر فى نموذج On Error GoTo Oops Dim db As dao.Database: Set db = CurrentDb() Dim rs As dao.Recordset: Set rs = db.OpenRecordset("file-1") Dim intSpID As Long: intSpID = 110 With rs .MoveFirst Do intSpID = intSpID + 1 rs.Edit rs![الرقم الحسابي] = intSpID rs.Update .MoveNext Loop Until .EOF .Close End With db.Close function_exit: Set rs = Nothing Set db = Nothing Exit Sub Oops: ' Handle the errors here GoTo function_exit تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي 1 رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر نوفمبر 28, 2021 الكاتب مشاركة قام بنشر نوفمبر 28, 2021 @ابو جودي استاذي من الرقم 120 صعودا احتاج ان يصبح 11120 يعني رقم 11 يبدا كمفتاح لكافة الارقام رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر نوفمبر 28, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 28, 2021 (معدل) 2 ساعات مضت, ابو عبد الرحمن العراقي said: @ابو جودي استاذي من الرقم 120 صعودا احتاج ان يصبح 11120 يعني رقم 11 يبدا كمفتاح لكافة الارقام اتفضل بسيطة غير للكود الاتى On Error GoTo Oops Dim db As dao.Database: Set db = CurrentDb() Dim rs As dao.Recordset: Set rs = db.OpenRecordset("file-1") Dim intSpID As Long: intSpID = 0 With rs .MoveFirst Do intSpID = intSpID + 1 rs.Edit rs![الرقم الحسابي] = 11 & intSpID rs.Update .MoveNext Loop Until .EOF .Close End With db.Close function_exit: Set rs = Nothing Set db = Nothing Exit Sub Oops: ' Handle the errors here GoTo function_exit تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي 1 رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر نوفمبر 29, 2021 الكاتب مشاركة قام بنشر نوفمبر 29, 2021 كل الود والشكر والتقدير لجنابك الكريم على هذا العمل الراقي رابط هذا التعليق شارك 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.