الغاء اول حرف من قيمة الحقل تلقائيا بعد التحديث

[Abdelaziz Osman]

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

لدى فى النموذج المرفق حقل باسم delz

اريد كود vba او طريقة يتم بها حذف اول  بقيم سجلات هذا الحقل تلقائيا 

بعد الادراج او التحديث

تفصيلا :   اذا اردت ان الصق محتويات هذه السجلات دفعة واحدة من ملف اكسل بحوالى 150 سجل او اكثر ولكن هذه السجلات فى الاكسل  تحتوى على سبيل المثال الحرف  "z" فى بداية قيمة السجل فاضطر الى تعديل تلك السجلات فى اكسيس بحذف "z" بخاصية الاستبدال او اي حرف اخر فى بداية الحقل

لان طبيعة قاعدة البيانات فى شغل الاكسيس لابد تقبل ان يبدأ الحقل بحرف Z على سبيل المثال 

فهل من طريقة يتم حذف الحرف z تلقائيا ؟ او اول حرف من الحقل

 

delz.accdb

[أبوبسمله]

وعليكم السلام

اتفضل وشغل استعلام التحديث

بالتوفيق

delz_1.accdb

[Foksh]

مشاركة مع الأستاذ @أبوبسمله ، لوقرأت الكود في مشاركة سابقة في الموضوع السابق لك ، لكنت حصلت على النتيجة التي تريدها 😉 

الفكرة الى حد ما مشابهة، على العموم سؤال ، هل الشرط عندك حرف Z فقط !!!!

 

ام هناك شروط أخرى 

تم تعديل فبراير 5, 2025 بواسطه Foksh

[Foksh]

 

على العموم ، جرب الفكرة التالية

Private Sub delz_AfterUpdate()
    If Left(Me.delz, 1) = "Z" Then
        Me.delz = Mid(Me.delz, 2)
    End If
End Sub

Private Sub Form_Load()
    Dim db As DAO.Database
    Set db = CurrentDb()
    db.Execute "UPDATE delz " & _
               "SET delz = Mid(delz, 2) " & _
               "WHERE delz IS NOT NULL AND Len(delz) > 1 AND Left(delz, 1) = 'Z'", dbFailOnError
    Set db = Nothing
    Me.Requery
End Sub

 

[kkhalifa1960]

مشاركة مع الاساتذة تفضل استاذ @Abdelaziz Osman محاولتي .

delz-111.rar

تم تعديل فبراير 6, 2025 بواسطه kkhalifa1960

[Abdelaziz Osman]

10 ساعات مضت, Foksh said:

مشاركة مع الأستاذ @أبوبسمله ، لوقرأت الكود في مشاركة سابقة في الموضوع السابق لك ، لكنت حصلت على النتيجة التي تريدها 😉 

الفكرة الى حد ما مشابهة، على العموم سؤال ، هل الشرط عندك حرف Z فقط !!!!

 

ام هناك شروط أخرى 

على اول خانة سواء حرف او رقم

[kkhalifa1960]

تقضل استاذ @Abdelaziz Osman  ازالة أول حرف سواء كان حرف أورقم .

delz-112.rar

[Foksh]

2 ساعات مضت, Abdelaziz Osman said:

على اول خانة سواء حرف او رقم

تفضل اخي الكريم 

Private Sub delz_AfterUpdate()
    If Len(Me.delz) > 0 Then
        Me.delz = Mid(Me.delz, 2)
    End If
End Sub

Private Sub Form_Load()
    Dim db As DAO.Database
    Set db = CurrentDb()
    db.Execute "UPDATE delz " & _
               "SET delz = Mid(delz, 2) " & _
               "WHERE delz IS NOT NULL AND Len(delz) > 1", dbFailOnError
    Set db = Nothing
    Me.Requery
End Sub

بدون تحديد الشرط 🤗 .