اذهب الي المحتوي
أوفيسنا

إضافة بيانات إلى بيانات حقل نصي


الردود الموصى بها

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

يوجد لدي جدول باسم CENSUS ، مكون من عدة حقول. أهمها والذي توجد به المشكلة حقل من نوع نص أسمه COMMERCIALNO يحتوي على أرقام.

أردت في ذلك الحقل أن أضيف إلى بياناته الرمز /8

بمعنى ، يوجد لدي رقم 3555 وأريد أن أستبدله ليكون بالشكل التالي 3555/8

فهل من سبيل إلى ذلك ، مع العلم أن لدي عدد 2594 سجل وتعديلها بالطريقة اليدوية متعب وشاق :)

لقد حاولت عن طريق إستعلام التحديث ولكني فشلت.

فهل من سبيل إلى ذلك يرحمكم الله. :rol:

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

السلام عليكم

أخي ابن مسقط :fff: ، بارك الله فيك

الحل في استعلام التعديل كما كنت تفكر ولكن هكذا

ex20.JPG

مع الاحترام

رابط هذا التعليق
شارك

السلام عليكم ...

أو استخدم هذا الكود :

Dim db As Database
 Dim MyTABLE As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set MyTABLE = db.OpenRecordset("ÌÏæá1", dbOpenTable)
Do While Not MyTABLE.EOF
MyTABLE.Edit
    MyTABLE![ÇáÑÞã] = MyTABLE![ÇáÑÞã] + "/8"
    MyTABLE.Update
    MyTABLE.MoveNext
  Loop
MyTABLE.Close

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information