تعديل على كود vba _ اضافة رقم في استعلام تحديث

[figo82eg]

ارجو المساعدة فى الjعديل على كود لكى استفيد منه فى برنامجى وهو

' Addo
        strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn;"
        DoCmd.RunSQL strSQL

حيث اريد من الكود السابق أن يضيف 00 نهاية crn 

[kkhalifa1960]

تفضل أخي @figo82eg الكود بعد الاضافة .

                                       

' Addo
        strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn & "00";"
        DoCmd.RunSQL strSQL

 

[figo82eg]

@kkhalifa1960 أستاذى الكريم تظهر معى هذه الرسالة عند تطبيق الكود

Private Sub Command84_Click()
 Dim cityCode As String
    Dim strSQL As String
  DoCmd.SetWarnings True = False
  
    ' استخراج كود المدينة من المربع النصي
    cityCode = Me.Text82.Value
    
    ' التحقق من أن تم إدخال كود المدينة
    If Len(cityCode) > 0 Then
        ' نقل السجلات المستهدفة إلى جدول مؤقت "Test"
        strSQL = "SELECT * INTO Test FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';"
        DoCmd.RunSQL strSQL

        ' Delete4
        strSQL = "UPDATE Test SET crn = Right(crn, Len(crn)-4) WHERE Left(crn, 4) = '" & cityCode & "';"
        DoCmd.RunSQL strSQL
        
        ' Delete3 right
        strSQL = "UPDATE Test SET crn = Left(crn,Len(crn)-3) & Right(crn,2) "
        DoCmd.RunSQL strSQL
        
       ' Repete
        strSQL = "UPDATE Test SET crn = Left([crn],2)+[crn];"
        DoCmd.RunSQL strSQL
        
 
        ' Addo
         strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn & "00";"
        DoCmd.RunSQL strSQL
             
         
         
        ' حذف السجلات من الجدول الأصلي "BASIC_DATE"
        DoCmd.RunSQL "DELETE FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';"

        ' إدراج السجلات المحدثة من "Test" إلى الجدول الأصلي "BASIC_DATE"
        DoCmd.RunSQL "INSERT INTO [BASIC_DATE] SELECT * FROM Test;"

        ' حذف الجدول المؤقت "Test"
        DoCmd.DeleteObject acTable, "Test"

        ' رسالة تأكيد
        MsgBox "تم تحديث السجلات بنجاح!", vbInformation
        DoCmd.Requery
    Else
        ' رسالة في حالة عدم إدخال كود المدينة
        MsgBox "الرجاء إدخال كود المدينة أولاً!", vbExclamation
    End If
DoCmd.SetWarnings True = True
End Sub

وده الكود كامل بحاول اضيف فيه السطر السابق لكى اضيف 00 ولكن لايقبل

[Foksh]

محاولة مني جرب هذا الكود تعديلا على مشاركتك الأولى .

strSQL = "UPDATE Test SET crn = '" & cityCode & "' & LEFT(crn, LEN(crn)-2) & '00';"
DoCmd.RunSQL strSQL

 

[سامي الحداد]

 مشاركة مع الاساتذة جرب هذا التعديل 

Private Sub Command84_Click()
    Dim cityCode As String
    Dim strSQL As String

    ' استخراج كود المدينة من المربع النصي
    cityCode = Me.Text82.Value
    
    ' التحقق من أن تم إدخال كود المدينة
    If Len(cityCode) > 0 Then
        ' نقل السجلات المستهدفة إلى جدول مؤقت "Test"
        strSQL = "SELECT * INTO Test FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';"
        DoCmd.RunSQL strSQL

        ' Delete4
        strSQL = "UPDATE Test SET crn = Right(crn, Len(crn)-4) WHERE Left(crn, 4) = '" & cityCode & "';"
        DoCmd.RunSQL strSQL
        
        ' Delete3 right
        strSQL = "UPDATE Test SET crn = Left(crn,Len(crn)-3) & Right(crn,2) WHERE Left(crn, 4) = '" & cityCode & "';"
        DoCmd.RunSQL strSQL
        
        ' Repete
        strSQL = "UPDATE Test SET crn = Left([crn],2)+[crn] WHERE Left(crn, 4) = '" & cityCode & "';"
        DoCmd.RunSQL strSQL
        
        ' Addo
        strSQL = "UPDATE Test SET crn = crn & '00' WHERE Left(crn, 4) = '" & cityCode & "';"
        DoCmd.RunSQL strSQL

        ' حذف السجلات من الجدول الأصلي "BASIC_DATE"
        DoCmd.RunSQL "DELETE FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';"

        ' إدراج السجلات المحدثة من "Test" إلى الجدول الأصلي "BASIC_DATE"
        DoCmd.RunSQL "INSERT INTO [BASIC_DATE] SELECT * FROM Test;"

        ' حذف الجدول المؤقت "Test"
        DoCmd.DeleteObject acTable, "Test"

        ' رسالة تأكيد
        MsgBox "تم تحديث السجلات بنجاح!", vbInformation
        DoCmd.Requery
    Else
        ' رسالة في حالة عدم إدخال كود المدينة
        MsgBox "الرجاء إدخال كود المدينة أولاً!", vbExclamation
    End If
End Sub

 

[figo82eg]

اشكركم جميعاً اساتذتمى الكرام وجعل الله علمكم فى ميزان حسناتكم