ramhan

قد يكون زر الامر بالنموذج الرئيسي هنا لابد للاشارة للنموذج الفرعي ومثلا لو اسم النموذج الفرعي subform1 ()Private Sub CmdUpdate_Click "me.subform1.form.recordsource="mytable End Sub

اعتقد المشكله في وجود لون بديل في خاصية لون بديل في خصائص التفصيل قم بوضع الخاصيه= no color مع ان الموضوع قديم ولكن حبيت الايضاح ولعله الحل مع الشكر لصاحبة الحل تحياتي

اخي الفاضل مارايك ان تستبدل الكود بالتالي فهو يمر على كل العناصر من نوع الخيار وياخذ العنوان وطبعا بشرط ان الخيار مفعلا Private Sub tar_GotFocus() For Each ct In Me.Section(0).Controls If ct.ControlType = acCheckBox Then If ct = -1 Then xt = xt & ct.Controls(0…

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

تقضل ولعله ماتريد Private Sub Command316_Click() DoCmd.GoToRecord , , acFirst Me.Painting = False For i = 1 To Me.RecordsetClone.RecordCount - 1 Me.Abs = 0: Me.Abs_N = 0 DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst Me.Painting = True End Sub…

عزيزي تفضل مع ملاحظة إضافة مرجع لمكتبة الاكسل من خلال محرر الاكواد >> أدوات >> مراجع وحسب اصدار الاوفيس لديك Microsoft Excel xx.x Object Library وكذلك ملاحظة تغيير المسار الملف الصحيح Private Sub أمر1_Click() Dim xl As Excel.Application Dim xlwb As Excel.Workb…

اخي الكريم اذهب فقط الى خصائص not وفي خاصية القيمة الافتراضية الصق التالي =[Forms]![yomm1]![not] بالتوفيق

اسمحو لي بالمشاركة معكم هنا ولكن بنقاط 1. انا لست مع من يكثر السؤال عن اخت أعطت من وقتها الكثير فمن ابسط حقوقها استثمار وقتها بما تراه مناسبا لها . طبعا المنطقي هو السؤال للاطمئنان فقط انها بخير فقط وغير ذلك فهو غير منطقي ! والا احنا قاعدين نشوف مصلحتنا بس ! 2…

معليش اسمحو لي بالتطفل هنا بالنسبة لك يا اخ يوم في حياتي اسمح لي ان أقول : انك بمناقشتك اضفت لبرنامج الأخ tbazh أفكار جيدة ملامسة للواقع والتي كان يفتقدها نظامه والذي على ما اضن انه يملكه من زمان ولكن لم ينزل النظام كليا مرة واحدة . بل يقوم باستيراد الكائنات و…

اهلا بك اخي للتشغيل Shell "outlook.exe" للإغلاق Set obj = GetObject(, "Outlook.Application") obj.Application.Quit وبالنسبة للاغلاق بعد فترة معينة أتوقع انها مش صعبة عليك اخي سلمان . نفس الكود السابق للاغلاق تضعه داخل تايمر بالنموذج ثم اغلاق التايمر . وكذلك يمك…

الأخ خضر: لم احكم بشي وعلى احد ! ولكن اطلعت على مرفقك ووجدت انك عامل عناصر ومخفيها وعامل عمود من نوع ole ! المهم انا لدي خلفية بسيطة في الاكسس واخذت وقت علشان افهم السيناريو المتبع ! فبالله عليك كيف تريد اخت سائلة مبتدئة في الاكسس ان تفهم السيناريو مباشرة ! بد…

يبدو انك محضوض اخي الكريم !!! حيث تفاعل الأعضاء بالمشاركة!!!!!! انا مع فكرة الأخ yms12 . ارفقي مرفقا اختي الكريمة به جدول الموظفين ونموذجه وبدون بيانات ليتم تطبيق افضل الطرق واسهلها . بالتوفيق

ضع الكود التالي عند حدث عند الفتح للنموذج : If Me.RecordsetClone.RecordCount = 0 Then Cancel = -1 بالتوفيق

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

اخي كافي انا أريد مرفق من عندك به المطلوب حتى لو لم يكن جزء من برنامجك التجاري وإنما مثال قريب لما تريد ليتسنى لي تطبيق الحل عليه. بالتوفيق

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

عزيزي تفضل بوضع المعادلة التالية في المربع b =Replace([a];Chr(13);",") وعندي سؤال بخصوص هذه القطع الميكانيكية : هل هي للمضخات ؟ تحياتي

اوكي ارفق البيانات الفعلية ! وسنحاول ! ولكن انتبه ان يجب ان يكون هناك حل مرئي ! اقصد انه عند محاولة التبديل قد لا يمكن حيث قلة المعلمين وتعارض البيانات ! بالتوفيق

عزيزي تفضل المحاولة : توزيع المعلمين على الحصص تحياتي ramhan_rnd().rar

اوكي عزيزي اذا أكملت الحل بالخوارزمية السابقة فانه عندما يكون المصفوفة مربعة أي عدد الحصص = عدد القاعات سنحصل على تكرار المعلم لقاعة واحدة وبحصص مختلفة أي سيصبح الشكل التالي: 11111 22222 33333 44444 55555 هل توافق ؟ ام تريد وضع القيم بشكل عشوائي وحظ ونصيب مع ض…