ابوخليل

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

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

تفضل 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 شريطة ان يكون النموذج المصدر مفتوحا

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

اخي الكريم يسرنا دعوتك للمشاركة هنا http://www.officena.net/ib/index.php?showtopic=41520 اما بالنسبة لمشاركتك الاخيرة فنأمل ان تخصها بمشاركة جديدة . من الافضل وهو المطلوب ان تشتمل كل مشاركة على استفسار واحد .

حول المرفق الى امتداد mdb لعلك تجد تفاعلا اكثر

لكي ندرج بيانات محددة لكل طالب كالاسم ومدة التأخر او عدد الغياب او غيره داخل نص الرسالة يجب ان نأخذها من الجدول او الاستعلام لذا يلزم انشاء نموذج فرعي داخل نموذج الرسائل مصدره الجدول او الاستعلام المذكور وباستخدام الدالة For يمكننا المرور والانتقاء من مجموعة السجلات الموجودة في النموذج الفرعي ثم ادراجها بين القوسين بدلا أو مع حقل الرسالة (txtMessage.Text) : Private Sub SendMessage() Dim t As String t = send(URLEncode(username), URLEncode(Password), ConvertToUnicode(txtMessage.Text), txtSender.Text, txtNumbers.Text) ShowResult (t) End Sub

يجب انتقاء عنوان مناسب يصف الموضوع تم تعديل العنوان