اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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

قام بنشر

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

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

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information