اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر (معدل)

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

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

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

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

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

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

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

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

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

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

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

قام بنشر

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

الأستاذين/ خضر الرجبي و فتي الوادي

بارك الله فيكما ووفقكم إلى كل خير وجعل مثواكم جنة الفردوس.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information