سؤال عن التقارير والأكواد

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

الذي فهمة من سؤالك انك تريد طريقة انشاء رقم تسلسلي في التقرير اذا كان هذا الذي تريده فهاذ المثال يعمل على الاكسيس 2000 (( اما اذا كان المقصود شي ثاني فارجو التوضيح ))

http://mypage.ayna.com/mesfer823/code.zip

وتقبل تحياتي / مسافر

mesfe2@hotmail.com

اولا اعتذر عن لخبطة القراءة من العربية الى الانجليزية والعكس فالكود عندي مكتوب صح ولكن عند طباعة في الرد يختلف اتجاه آمل مراعاة ذلك .

هذا الكود يقوم بقراة الجدول unit ثم يقوم بترقيم الحقل num

تنبيه : اذا اردت ان ترتب الجدول في التقرير حسب كود للصنف او ابجديا فقم بالعمليات التاليه

1. عمل استعلام يقوم بانشاء جدول على ان يكون مرتب حسب كود الصنف او ابجديا

2. غير اسم الجدول في البرنامج اسفل الى اسم الجدول الذي تم انشاءه

3. عمل ماكرو يقوم اولا بمناداة الاستعلام ثم تنفيذ الكود .

()Public Static Function order_all

 Dim wr As Workspace

 Dim db As Database

 Dim MyTABLE As Recordset

 Dim i As Variant





(Set db = DBEngine.Workspaces(0).Databases(0

(Set MyTABLE = db.OpenRecordset("unit", dbOpenTable



 i = 0

  Do While Not MyTABLE.EOF

    i = i + 1

    MyTABLE.Edit

    MyTABLE![num] = i

    MyTABLE.Update

    MyTABLE.MoveNext

  Loop

  MyTABLE.Close

End Function

أشكرك كثيرا يا مسافر هذا ما اردت بالضبط

(جزاك الله خيرا)

أخي العطار شكرا لك

ولكن انت تعلم اني لا اعرف الكثير عن الكود والذي ان صح

اعتقادي ان الكود في الاكسس يسمي VBA هل هذا صحيح

وارجو الرد ضروري جدا علي الشق الثاني من السؤال

هل يجب ان اتعلم VB من اجل كتابة الاكواد ام يوجد شرح مفصل للاكواد يتبع اكسس خاصة وما هي الروابط المتوفرة للتعلم أو الكتب.

وشكرا لك

------------------------------------------------

الهم انصر اخواننا في فلسطين

اخي شوقي اولا دعني اشكر الصديق مسافر فلقد نورني الى طريقه جديده في عمل الرقم التسلسل فلقد كنت دائما اعتمد على الكود . اما بالنسبة الى طلبك فانا اعتذر فانا لا اعرف اي موقع يمكن الاستفادة منه ولكن يمكن الاستفادة من الكود الموجود مع قاعدة البيانات المرفقة مع اكسس ففيها الشئ الكثير الذي يمكن الاستفادة منه ابدا بقراءتها وفهم تسلسلها فستجدها سهله ايضا اقراء ملف المساعدة ففيه امثله كثيره لكل امر من الاوامر ( هناك طريقه جميله في تعلم الكود اذا وجدت امر قم بتضليله ثم اضغط عل F1 فيقدم لك الشرح لهذا الامر ).

اما العلاقة بين اكسس و فيجول بيسك بالنسبة للكود فاعتقد ان بينهما تقارب كبير جدا واذا تعلمت كود الاكسس فسيصبح تعلم الفيجول بيسك بسيط . عموما انصحك بتعلم الكود خاصة اذا كنت تعرف الانجليزيه فاوامر الكود جدا سهله ومن خبرتي مع الكود وجدت ان الاوامر التي ستحاجها بصورة متكررة قليله يمكن تعلمها والاستفادة منها لاقصى حد آسف للاطالة واتمنى لك التوفيق .

شكرا لك أخي العطار واطل كما تحب فأنا احب هذا النوع من الاطالة