رمهان

اولا شكرا استاذ محمد ايمن ولي عودة حيث اعتقد يمكن سرد السيرفرات بواسطة api او قراءة قائمة الخدمات والعملية عملية تخاطب مع الويندوز وهنا تم استخدام مكتبة وسيطية وهي sqldmo ودائما استخدام المكتبات الخارجية كوسيط تجعلك مقيد مع هذه المكتبة بصلاحياتها ومدى استمراريتها لاصدارات حديثة مما يجعلك مقيد لمطور الوسيط الثالث الحقيقة انا تعاملت معها عن طريق الدوت نت والموضوع سهل جدا وبامر ضمني موجود ! الاخ محمد سلامة الخطأ واضح وهو عدم تعرف البرنامج على المرجع ! اذهب لقائمة المراجع يدوي وشوف المرجع للمكتبة هل هو معلم بصح وبدون كلمة missing ! احذف الصح واعادة ربطه يدوي باختيار مسار المكتبة وكمرجع بالتوفيق

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

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

تفضل copy txt val.rar

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

انصحك بان تبدا بالكتب الانجليش خصوصا اذا لغة الانجليش جيده لديك الكتب ثم الكتب ثم الكتب ثم الكتب

تفضل وولعنصر الاول فتحت النموذج الثاني ممررا له قيمة من النموذج الاول وعند الفتح للنموذج الثاني اصبحت الخاصية openargs بها قيمة ممرة لها من النموذج الاول استطيع قراءتها عند حدث عند الفتح تحياتي copy txt val.rar

تقصد

مرحبا ابو جودي ( طلبت عدم ذكر القاب وانت اهل لها ) ايش رايك نطبق محليا اولا ! وبدون سيرفر ! اقصد تنفيذ استعلام معقد محليا وهناك تاخر به وظهور بروقرس بار يبن العملية ؟ تحياتي

اخي شيفان الاولى ان لاتقيد نفسك بالتكبيق الذي استخدمة به الجملة وهي تسمى جملة التكرار فور هذه نقاط لعل لك بها فائدة 1. استفيد من الجملة في: - اريد تكرار مجموعة من الاوامر البرمجية وبتغير متغيرات بداخلها بكل لفة - قيمة العداد حيث ينحصر بين قيمتين 2. يكون العداد من الرقم الاصغر للاكبر دائما . وعند البدء بقيمة سالبة فعليك الانتباه الى ان معروف ان الرقم الاصغر باشارة سالب هو الاكبر فلو عملت فور لوب بالشكل التالي for i=-3 to 2 فاول قيمة للعداد هي -3 ثم -2 .... ثم الصفر واخيرا حتى 2 3. هناك خاصية مقدار القفز في الدوران وهي تتم باضافة step ثم قيمة القفز فمثلا for i=1 to 5 step 2 سيتم الدوران ثلاث مرات فقط لان المرة الاولى قيمة العداد 1 ثم 3 ثم 5 وحسب قيمة القفز تحياتي

العفو استاذ ابو جودي انا وصلت الى ان الامر يتطلب ان يكون الجدول ظاهر في نافيقيشن بان ( نافذة الكائنات ) تحياتي

اعزائي الحقيقة ترددت في اكمال المشاركة هنا ولكن كلما مريت هنا تسبقني اصابعي للكتابة ملبية مايدور بخاطري ويمكن اكون غلس حبتين ولكن اريد الفائدة واريد ان توضح الامور للاخت السائلة خصوصا وهي مبتدئة هذا الموضوع اعتبره اقل من مستوى البدايات في الاكسس خصوصا لو كان النموذجين مفتوحين فهنا الطرق الطبيعية 1. مشاركة الاستاذ شيفان فهي الاجابة الطبيعية لانها تعليم كيف تحصل على قيمة حسب المسار الذي عرف في الاكسس وهو كلمة النماذج ثم اسم النموذج ثم اسم العنصر 2. وضع المسار كمصدر للعنصر ومبتدئا بعلامة = . ليصبح تعبير به مسار للعنصر وبالنموذج المفتوح فاستطيع ان يكون التعبير في النموذج الثاني والمراد فتحه كالتالي =Forms!form4!Text0 وهكذا لبقية العناصر اما اذا كان النموذجين سيغلق الاول فيمكن يضل اعلاه ويكون الامر للنموذج الاول اخفاء وليس اغلاق. واما كيف لو نريد اغلاق النموذج الاول فهناك برضه حيلة ان تضع مشاركة الاستاذ شيفان وذلك بالتسلسل التالي قي الكود او الماكرو - فتح النموذج الثاني - اسناد القيم بالمسار - اغلق النموذج الاول بامر اغلاق وصريح باسم النموذج او اعد التركيز عليه وامر اغلاق فقط هنا ناتي الى اريد ان اغلق نموذج ومعي قيم احملها منه لاستخدمها لاحقا 1. تستخدم متغير عام لتخزين القيم وهذا ليس مستحبا في عدة امور ولان النقطة الثانية التالية اكثر تقدما 2. تستخدم الكائن tempvars وهو كائن جديد بدا من اكسس 2007 وهو يساعد في حفظ القيم المؤقتة وعلى مستوى البرنامج وبتحكم مرن 3. استخدام الباراميتر openargs عند فتح نموذج اخر وهنا افضل طريقة بل اتى هذا الخيار لما هنا بالتمام وهو تمرير القيم بين نموذجين سيغلق الاول منهما . تحياتي

فكرة حلوة ويمكن الاستمرار بان ياخذ الامر نص الاختيار عنوانا Private Sub cmb_Committe_AfterUpdate() btn_DropCommittee.Caption = cmb_Committe End Sub بالتوفيق

مادمت تطلب الاختزال استاذ ابا جودي ساقوم برفع محاولة لذلك تحياتي

اخي عبدالعزيز هذا المطلوب ختلف عن المطلوب باول مشاركة ! واعتقد ان الاستاذ شيفان اجاب على اخر طلب وهناك فكرة ان تربط الترقيم بان السجل جديد ليصبح كود بعد التحديث لاسم ولي الامر كالتالي Private Sub FATHER_NAME_AfterUpdate() Rem تعبئة حقول محددة من مربع الالتحرير والسرد ' Me.SONS = Me.FATHER_NAME.Column(1) ' Me.PHONE = Me.FATHER_NAME.Column(2) ' Me.INSTALLMENTS = Me.FATHER_NAME.Column(3) Rem ترقيم آلي If Me.NewRecord Then Me!NUM_PAID = Nz(DMax("[num_Paid]", "[TabPaids]"), 0) + 1 End Sub بالتوفيق

تمام واشكرك وصلت لما اريد

ماشاء الله عليك ابا جودي اذا عرف اسم الجدول اليس الامر التالي كفيل بفتحه docmd.opentable جرب لاني اريد ان اصل لحاجة في بالي

يمكن ان يكون التعبير التالي في خاصية القيمة الافتراضية للعنصر رقم المورد بالنموذج =DMax("[كود المورد]","الموردين")+1 بالتوفيق

الاخ عبدالعزيز الى الآن ولم ترفق المرفق الذي به المطلوب

Dim ADate As Date ADate = (DateAdd("YYYY", 1O, Me. [A]))-1 Me.[B] = ADate مع العلم ان اسم الكوماند في المشاركة ليس موجود في المرفق ضع الكود السابق خلف الزر وعند النقر بالتوفيق

بس تعال ياباشا لو عايزين ننقل كل العناصر !!

تمت التجربة والطريقة ناجحة

جمال الفكره في انه لايشترط النموذجين مفتوحين

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

ان شاء الله وقريبا