النافذ

أبشرك أخي ، توصلت للخطأ وحله . .fields(r) = .fields(r)+1 فقط اضافة s وشكرا لك .. أتعبتك معي كثيرا ،، لاحرمك الله الأجر ..

شكرا أخي مهند .. أتعبتك معي ، لكن احاول أن اجرب الكود .. واعطاني رسالة خطأ .. Run_Time error '438' Object doesn't support this property or method

أخي مهند .. حتى الآن لم أصل إلى ما أريد .. لأبين لك .. لدي جداول بالأكسل وباستمرار اعمل لها استيراد لأكسس لأنفذ عليها عملية لكل الحقول على كل الصفوف ، أي بكامل الجدول. المشكلة أن هذه الجداول مختلفة في مسميات الحقول وعددها، فمرة يكون عددها 100 حقل ومرات 150 ومرات 50 ، والاسماء تختلف. ولاحظ معي أن عدد الحقول كبير فيصعب كتابتها بالكامل في الكود من جهة أخرى. فأريد حل لايعتمد على اسماء الحقول وعددها، إنما حلقة تكرارية تعمل من اول حقل وحتى نهاية حقل أيا كان العدد. EOF وجد كوداً مشابهاً لما أريد في الـ Help الأكسس لكن اختلفت طريقة الاتصال بقاعدة البيانات وبالتالي هناك فرق في كتابة الكود.. Dim cnn1 As ADODB.Connection Dim rstEmployees As ADODB.Recordset Dim fldLoop As ADODB.Field Dim proLoop As ADODB.Property Dim strCnn As String ' Open connection and recordset. strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " Set cnn1 = New ADODB.Connection cnn1.Open strCnn Set rstEmployees = New ADODB.Recordset rstEmployees.Open "employee", cnn1, , , adCmdTable ' Display the attributes of the connection. Debug.Print "Connection attributes = " & _ cnn1.Attributes ' Display the attributes of the Employee table's ' fields. Debug.Print "Field attributes:" For Each fldLoop In rstEmployees.Fields Debug.Print " " & fldLoop.Name & " = " & _ fldLoop.Attributes Next fldLoop

أهلا بك أخي مهند وبارك الله لك في مجهوداتك ونفع الله بك .. لكن هل لي بحل أكثر مرونة ولايعتمد على عدد الحقول. وشكرا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،، فلقد سبق وأن سألت عن الحلقة التكرارية في مشاركة سابقة وكان السؤال : و وصل رداً من الأخ مهند وكان : وهذا هو رابط المشاركة : http://www.officena.net/ib/index.php?showt...205&hl=do+while سؤالي : كيف لي أن أجعل هذا التأثير في الإضافة على أكثر من حقل ، بمعنى ولتكن لدي عدد مرن من الحقول وأريد إضافة 1 لكل حقل .. ما أقصده كيف لي أن أنفذ حلقة تكرارية أخرى بالعرض على الحقول نفسها صفاُ داخل الحلقة السابقة .. ولقد حاولت باستخدام الحلقة For .. Each .. Next لكن لم استطع الوصول إلى الحل ... أرجو أن يكون الحل مرن بحيث لايعتمد على اسماء الحقول او عددها . وشكرا .

عذرا على التأخر .. فطوال الأيام الماضية لم استطع الرد او التعقيب لحدوث مشاكل في المنتدى .. لانه كان يعطيني رسالة خطأ الرابط الجديد للملف http://www.3ar.us/1/Payment.zip او هذا http://www.3ar.us/1/Payment2.zip

جميع ماتم شرحه .. هي حقول جدول information وليس للمشروع باكمله ... ---- وذلك لانه هو مايهمنا ، ويحتاج الى ايضاح بخلاف الباقي وشكرا :(

شرح مصطلحات المشروع .. ---------------------------------------- WorkPlace جهة العمل، الجهة التي يؤخذ منها العامل. Occupation مسمى الوظيفة التي معين عليها في جهته MemberShipTask مهمة العضو داخل المشروع الحالي PaymentWay طريقة التعويض، وصرف المكافأة Project1..Project8 وضع بشكل عام .. 8 مشاريع كحد أعلى تقام سنويا في كل مشروع يكلف فيه عدد من العمال في كل خانة من هذه الثمان يسجل فيها عدد الايام وعلى اثرها يتم حساب المكافأة Extra1..Extra8 أيام إضافية، لكل مشروع قد يسبق البدء ايام تحضيرية ، او من باب التحفيز والمكافئة كتابة زيادة ايام للعامل Note1..Note8 مقابل كل خانة مشروع .. خانة ملاحظات، يوضح فيها بيان صرف المكافأة ، اي مقابل ماذا؟ PaymentValue قيمة المكافأة التي يستحقها العامل مقابل اليوم الواحد، ويتم على أثرها حساب مكافأة المشروع بالكامل PaymentValue1..PaymentValue8 لكل مشروع في نهايته يحسب المكافأة وهي تساوي PaymentValue مضروب في Project + Extra1 Days مجموع الأيام لكل المشاريع PaymentFinal مجموع المكافآت PaymentCharacter المكافأة النهائية كتابة Notes مجموع الملاحظات ----------------- طريقة حساب المكافآت .. قد يتم حساب المكافآت لمشروع واحد .. او اكثر من مشروع حسب توجيه الصرف فهناك شاشة فيها اختيارين الاول : لكل العمال ... الثاني : حسب الجهة، فيحسب فقط لعمال الجهة الفلانية وهناك 8 اختيارات عبارة عن اختيار .. مشروع 1 مشروع 2 ... مشروع 8 فاذا اخترت جميع المشاريع يحسب للكل .. او اذا اخترت مشروع او بعضها يحسبها حسب النطاق ----------------- ما الشيء المتغير او المتجدد كل سنة .. فقط جدول information فنحتاج ان تبقى فيه بياناته كماهي للرجوع الى للاستفسار فقط وجميع الاستعلامات والنماذج والتقارير انما مرتبطة بهذا الجدول وباسمه مما يعني انه لابد لجدول السنة الجديدة ان يحوي نفس الاسم ----------------- رابط تحميل الملف ( يحوي الجداول فقط ) http://www.3ar.us/1/Payments.zip

اولا .. طريقة المهندس محمد .. كما توقعت لاتصلح مع وجود الشبكة واختلاف الانظمة. ------------------ الأخ / طيف .. هلا ساعدتني في عمل ذلك .. وارشدتنا الى البدء فيه .. مع التنويه إلى أن بيانات العام الماضي والمرحلة ، في اي وقت يمكن الحاجة الى الرجوع لها كاستعلام واستفسار ... وشكرا

من خلال البحث والتصفح وجد في رد للمهندس محمد طاهر .. شيء يحقق ما اريد http://www.officena.net/ib/index.php?showtopic=2052 فشكرا للمهندس .. لكن كنت اتمنى ان اجد حلاً لايرتبط بعنوان محدد للملفات .. ويكون الامر داينمكياً .. خصوصا انني استخدم هذا البرناج على الشبكة مع عدد من المستخدمين.

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

الاخ ابو نادر .. ماذكرت قد يحل الاشكال .. لكن بخطوات طويلة واجراءات في التعديل عديدة .. حتى تتصور معي ما اريد اوضح لك بالمثال .. عندي برنامج مزانية 1425هـ وبرنامج مزانية 1424هـ .. بدل من ان اجعل المستخدم على جهازه رابطين لكل برنامج رابط .. اريده ان يدخل على رابط وسيط للبرنامجين .. بمعنى يدخل على فورم .. وفيها سليكت ، يختار منها السنة ثم يضغط على زر تنفيذ .. هذا الزر هو الذي يشغل اما برنامج مزانية 1425هـ او برنامج 1424هـ . ولاحظ اني اقول برنامج .. وليس فقط قاعدة بيانات او جداول .. وشكرا

الاخ جمال ... بالنسبة للـ ( shell ) فحسب تجربتي انه لتنفيذ البرامج التنفيذية ( exe ) ... وعلى هذا فلا تفيدنا في شيء .. الأخ ابو نادر .. اشكر لك تعقيبك ومرورك .. وانا في صدد فعل ما اشرت اليه ..

مشكور اخوي جمال ،، وأنا بصدد التجربه .. لكن بودي اخذ رايك وبقية الاخوة في ما انوي فعله ... لدي برنامج لحساب ساعات عمال .. وكل سنة لها حسبة خاصه ، بمعنى عام 1424هـ لها حسابات خاصة في عدد الساعات والايام والمكافات .. وكلها متعلقة بجدول رئيسي يضم معلومات شخصية وبنكيه وساعات عمل .. ما افكر فيه ان انشئ برنامج اخر وافرغ الحقول المتعلقة بساعات العمل دون البيانات الشخصية واضع نموذج من خلاله يتيح له اختيار برنامج 1424هـ او 1425هـ فهل هناك طريقة افضل من هذه ؟ علما ان هناك قرابة 15 نموذج و 30 تقرير كلها متعلقة بالجدول الرئيسي .. فمن الصعب تكرار هذه النماذج والتقارير مرة اخرى لجدول رئيسي اخر يخص 1425هـ السنة الاخرى انا بانتظار آراءكم .. وشكرا لكم سلفاً

السلام عليكم ورحمة الله وبركاته ،،، أرحب بك أخي الحبيب / أختي الحبيبة .. دخولكم وتشريفكم للموضوع .. ما أسأل عنه .. لدي برنامجين وليكن على سبيل المثال ( ولا نأخذه بالاعتبار فلا ارغب في شخص يقول اجعل الملفين جدولين في ملف واحد ). لدينا برنامج درجات المرحلة الثانوية .. و برنامج درجات المرحلة المتوسطة .. ومن خلال برنامج إدارة المدرسة .. أرغب عمل نموذج يحوي زر لفتح برنامج درجات المرحلة الثانوية .. او برنامج درجات المرحلة المتوسطة .. باختصار : ماهو الكود الذي يتيح لي تشغيل برنامج اكسس من داخل الاكسس لقاعده بيانات اخرى ؟. وشكرا