اضافة رقم لكل اسم لكن بشرط

[ابو هاله النبلسي]

السلام عليكم ورحمة الله وبركاته 

كيف يتم اضافة رقم لكل اسم في الحقل الحاسبي حسب المرفق لكن بداية كل رقم مفتاح 11 يعني الاسم الاول يصبح الرقم الحسابي 111 والاسم الثاني 112 والثالث 113 وهكذا 

New Microsoft Access Database.accdb

[ابو جودي]

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 بواسطه ابو جودي

[ابو هاله النبلسي]

@ابو جودي استاذي من الرقم 120 صعودا احتاج ان يصبح 11120 يعني رقم 11 يبدا كمفتاح لكافة الارقام 

[ابو جودي]

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 بواسطه ابو جودي

[ابو هاله النبلسي]

كل الود والشكر والتقدير لجنابك الكريم على هذا العمل الراقي