ابوخليل

السلام عليكم اخي : حاول حط شرط في الدالة انه اذا كان الناتج صفر تكون القيمة =صفر او اي شي تريده يظهر

تفضل openandclose.rar

وعليكم السلام ورحمة الله القاعدة المعمولة على 2003 تعمل على جميع الاصدارات الاحدث غالب اعمالي على 2003 وتعمل على 2010 و 2013 بكل جودة في بعض الاحيان اجد مشاكل مع 2007 عند الاقلاع ، ويتم علاجها بقفل القاعدة وفتحها من جديد يمكنك تحويل قواعد بيانات اكسس القديمة الى اصدارات احدث باستخدام حفظ باسم ثم تختار الاصدار المناسب

الفاصل بين الفقرات هو زر الادخال انتر انظر المفكرتين في التقرير تم ضبط الاسطر فيهما رغم ان كل سطر عبارة عن فقرة وانظر صورة الاصل في وورد

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

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

المشكلة عندك اما في برنامج الضغط او وندز

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

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

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

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

نعم يمكن بدون تدخل منك فقط اجعل القيمة الافتراضية للحقل في الجدول = Date()

شكرا لك استاذي نعم هو ما بحثت عنه بارك الله فيك وجعله في موازين اعمالك

تفضل لحذف السجل من لوحة المفايح واخفاء تحذير اكسس Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then DoCmd.CancelEvent If MsgBox("سيتم حذف السجل " & vbCrLf & _ "هل تريد المتابعة ؟؟", _ vbInformation + vbYesNo, _ "تحذير") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True Else Exit Sub End If End If End Sub db2.rar

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

السلام عليكم انظر الى آخر يسار السجل ، يوجد سهم صغير اسود اذا اردت حذف السجل حدد هذا السهم ثم انقر زر Del

السلام عليكم اخي بارك الله فيك اجتنب اي عمليات حذف او نقل داخل قاعدة البيانات تستطيع تحقيق طلبك بان تضيف حقل رقمي او حقل (نعم/لا) في جدول tab2 للتمييز بين السجلات المنتهية من غيرها

وبك اهلا ابا احمد نعم ولا اجمل .. وأعط القوس باريها وإذا اردنا ان ندخل الفئة (من/ الى ) حسب الاختيار db2.rar

السلام عليكم في المثال المرفق جدول يحتوي على اسماء وسنة الميلاد (اربعة ارقام) لكل واحد منهم المطلوب اظهار احصائية بالعدد حسب الفئة العمرية (بأقصر طريق) وكما هو موضح ومرسوم في النموذج علما انه يمكن استخراج العمر بمعلومية سنة الميلاد بمثل هذه Year(Date())-[brithyear] db1.rar

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

عليكم السلام ليست اصدار 2003 تم نقلها وتحويلها تفضل تم التعديل ، وقمت ببعض تعديل المسميات ،، db1.rar

التغيير في التصميم لا يمكن بعد الحماية ولكن تستطيع عمل التقارير حسب الطابعة ، فتقرير البطاقة لايمكن طباعته الا من طابعة البطاقات والتقارير الاخرى من الطابعة A4 .. وهكذا ... ويتم تغيير الطابعة من نموذج التقارير بحيث يختار الطابعة الافتراضية قبل امر الطباعة

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

الفكرة قريبة من الاولى ولكن هنا عملنا فلترة وفصل حسب النادي لاحظ القيمة الافتراضية في الجدول فمنطقيا قد يكون النقص من اليمين او يكون من اليسار لذا اي حقل فارغ ستظهر فيه العبارة الخاصة به rs.MoveFirst c1 = rs!club For i = 1 To ii If rs!club = c1 Then rs2.AddNew rs2!player1 = rs!player rs2!pl1club = rs!club rs2.Update rs.MoveNext Else rs.MoveNext End If Next i rs.MoveFirst rs2.MoveFirst For i2 = 1 To ii If rs!club <> c1 Then rs2.Edit rs2!player2 = rs!player rs2!pl2club = rs!club rs2.Update rs2.MoveNext rs.MoveNext Else rs.MoveNext End If Next i2 Append5.rar

اذا الوكلاء في جدول والمواطنين في جدول آخر فلنمسألة يسيرة فقط اربط علاقة بين الجدولين ( بين الرقمين في كلا الجدولين ) بحيث يكون جدول الوكلاء هو الرأس والآخر اطراف في هذا الوضع عندما تختار وكيلا يظهر جميع المواطنين المرتبطين به