ابوخليل

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

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

حول الملف الى امتداد mdb

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

شكرا لك يا ابا عبدالرحمن معلومة مفيدة ودرس شيق .. جزاك الله خيرا

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

جزاك الله خيرا

تفضل St2.rar

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

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

نعم يمكن الاستغناء عنها لانه عند اغلاق القاعدة يصبح قيمة المتغير صفرا

اما دخول صحيح وتفتح النماذج كلها ،او لا تفتح ابدا امهلني الى الليل سأرفق مثالا... ان لم تسبقني الى ذلك

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

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

تفضل ابو احمد هذه من عندي .. آمل التقييم subform.rar

تفضل قم بتوظيف الاوامر من خلال القائمة المختصرة عند عرض التقرير للمعاينة Public Function PrintEvenPages() Call PrintOddEven(False) End Function Public Function PrintOddPages() Call PrintOddEven(True) End Function Private Sub PrintOddEven(ByVal binOdd As Boolean) Dim rpT As Report Dim intPages As Integer Dim intPage As Integer Dim intStart As Integer On Error GoTo ErrLine Set rpT = Screen.ActiveReport intPages = rpT.Pages If binOdd Then intStart = 1 ElseIf intPages = 1 Then MsgBox "There are no even pages to print.", vbExclamation, "One page report" GoTo ExitLine Else intStart = 2 End If 'check for only one page For intPage = intStart To intPages Step 2 DoCmd.PrintOut acPages, intPage, intPage, acHigh, 1 Next ExitLine: On Error Resume Next Set rpT = Nothing Exit Sub ErrLine: 'Call ReportError("PrintOddEven") Resume ExitLine End Sub

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

وعليكم السلام هل يعني ان الترقيم التلقائي هو المعرف للطلاب ؟ اذا كان كذلك فانت في مشكلة حقيقية وللخروج منها هناك حلول : 1- الابقاء على الجداول كما هي والتعامل معها عبر الاستعلامات وهنا سيظهر على السطح تكرار االارقام عند الطلب والبحث فعند البحث عن رقم 7 مثلا سيخرج لنا سجلان لشخصين مختلفين وهكذا .. 2- اجراء عملية جراحية دقيقة في احدى القاعدتين لتغيير ارقام المعرفات والارقام الفرعية تبعا لذلك ويستلزم ذلك حذف العلاقات ثم اعادتها بعد الترقيم الجديد وحينئذ وبعد الدمج سيكون لزاما علينا التغيير من الترقيم التلقائي الآلي الى طرق ترقيم تلقائية اخرى ان اردنا الابقاء على هذا الرقم كمعرف

وعليكم السلام اذا كانت خاصية التكامل المرجعي موجودة في العلاقة بين الجدولين فيمكنك حصر الاعداد الخاصة بكل عميل واستخراج اعلى رقم ثم تضيف اليه 1 مثال : yourTextNum= DMax( "num","yourTable"UserName=" & me.UserName)+1 اما اذا كانت الخاصية غير موجودة فيمكنك تحقيق ذلك بتوظيف استعلام يجمع بين المعرف الرئيس ورقم الحساب في الجدول الفرعي ويكون المعرف معيارا من خلال النموذج ثم استخدم الجملة التالية : yourTextNum= DMax( "num","yourQuery")+1

تم نقل الموضوع الى المكان المناسب

حول الملف الى امتداد mdb

والمكافآت ؟؟

قد يكون لديك نقص في المكتبات في محرر الفيجوال تأكد من : Tools/References

لا بأس ولكنك في سؤالك هذا خرجت عن الترقيم الى موضوع آخر . فأرى ان تخصص لهذا السؤال مشاركة جديدة

بعد اذن اخي سمير اذا كان المصدر استعلاما اكتب في عنصر تحكم الحقل : =DlookUp( " filedName","QueryName") اما اذا كان المصدر نموذجا فاكتب = forms!formName!filedName شريطة ان يكون النموذج المصدر مفتوحا