ابوخليل

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

جعلنا اسم المستخدم في متغير عام ويتم جلبه عند فتح النموذج وعند الضغط على زر جديد ب2.rar

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

الحل : ان تعمل على نسخة اوفيس english فلو فرضنا ان نسخة الوندز انجليزية ايضا ، فيمكنك كتابة التسميات بحروف عربية ولكن عند العرض والتشغيل ستظهر بحروف غير مفهومة ، حتى تغير اعدادات اللغة الى العربية يعني ان الرسالة المذكورة ستختفي ولن تراها ستسأل ؟ كيف اكتب بحروف عربية والوندز والاوفيس اجليزي ؟ الجواب : انه يمكنك ذلك ، وندز يوفر ذلك من خلال خصائص لوحة المفاتيح

If IsNull(Me.date_from) Or IsNull(Me.date_to) Then Exit Sub Me.da.SetFocus Me.da.Text = CalcAgeD(Me.date_from, Me.date_to) Me.mo.SetFocus Me.mo.Text = CalcAgeM(Me.date_from, Me.date_to) Me.ye.SetFocus Me.ye.Text = CalcAgeY(Me.date_from, Me.date_to) هذه الاسطر الموجودة في النموذج والخاصة باستخراج العمر (الفارق بين تاريخين ) ضعها في حدث الحالي للنموذج فحدث الحالي يقوم بالتغيير عند التنقل بين السجلات

الامر يسير ويجب انك تحاول حتى تستفيد فقط انسخ كود المربع الاول للمربع الثاني وغير ما يلزم Prog.1003.rar

تفضل وآمل ان يكون هو بغيتك Private Sub Text0_Click() Text0 = Text0.Name End Sub db2016x.rar

لا يمكنني فتح المرفق .. لا املك في جهازي الا الاصدار2003

تفضل طريقة ارى انها افضل من الكتابة فقط حيث يمكنك الاختيار او الكتابة للبحث عن المفردة Prog.1002.rar

احفظ المرفق على صيغة mdb

وهذا مثال آخر Private Sub co1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & Str(Nz(Me![co1], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub مربع تحرير.rar

جرب الاصدار 10 وما فوق

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

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

If Nz(DLookup("id", "[tbl]", "[c]&[f]&[k]&[d]='" & c & f & k & d & "'"), 0) <> id Then Cancel = MsgBox("مكرر")

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

هذا رابط لموضوع يناقش مشكلتك

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

الدالة mid تقوم باقتطاع عدد معين من الرقم حسب الاختيار فمثلا العدد 1637524890 مكون من 10 ارقام mid("1637524890",4,3) سترجع بــ او بتعبير آخر ستقتطع العدد 752 فالرقم 4 يعني العدد الواقع في الخانة الرابعة من اليسار والعدد 3 يعني ثلاث خانات بعد العدد الرابع او بالاصح ثلاث خانات مع العدد الرابع

لن تخرج المسألة عن شيئين 1- اعدادات المنطقة واللغة 2- نسخة الاوفيس

معذرة فأنا لم اطلع على المرفق بسبب الاصدار ولكن من واقع تجربة يمكنك التعديل على اسم العميل فقط لان الشرط واقع عليه والطريقة الفضلى لادخال البيانات انيصبح النموذج للادخال فقط من خصائص النموذج / لسان التبويب بيانات /اجعل القيمة : ادخال بيانات=نعم بكذا بمجرد الحفظ سيختفي السجل ولا يمكن التعديل عليه ولا مانع من وضع الضوابط مثل الكود اعلاه اما التعديل فشأنه مختلف ويمكن اجراء التعديل من نموذج آخر لايشتمل على هذا الكود

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

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

استعمل هذا التعبير mydate: Mid([snumber];1;4)+"/"+Mid([snumber];5;2)+"/"+Mid([snumber];7;2) ويمكن استبدال علامة الزائد بـ &

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