علي المصري

اعمل علاقة بين الجدولين في الاستعلام كما بالصورة

استخدم التالي في حدث بعد التحديث أو حدث الحالي Me.التضامن = Right(الضمان, 2)

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

السلام عليكم ورحمة الله وبركاته مرفق لحضراتكم جزء من قاعدة البيانات التي اعمل على انهائها جزاكم الله خيرا على كل ما قدمتموه لي من نصائح ومساعدات المشكلة الجديدة عندما بدأت اضيف المخالفات السلوكية للطلاب قمت بعمل جدول وتحت اسم TblStuMokh وعمل نموذج باسم BehControl كما بالمرفق ولكن عند تسجيل مخالفة لطالب اجد انه تم تعديل المخالفة السابقة ولا يضيف جديد إلى الجدول كما انه لم استطع كتابة كود او دالة لمعرفة عدد المخالفات السابقة لانه عند الإنذار الثالث لابد من تحويل الطالب إلى الاختصاصي الاجتماعي كما اني فكرت في إضافة حقل جديد في جدول أسماء الطلاب StudentsNames تحت اسم Notes_N مثلا بحيث اربط النموذج به بحيث يقوم بتسجيل المخالفة للطالب في هذا الحقل بمعنى في المخالفة الأول ييتم كتابة 1 وفي حالة حصولة على المخالفة الثانية يتم استبدال 1 بــ 2 ولكنها لم تفلح ما اريده هو عند الضغط على معاينة التقرير أو الطباعة يتم تسجبل المخالفة للطالب ويتم حساب عدد المخالفات السابقة واضافة واحد عليها لكي يكون الرقم الجديد هو عدد المخالفات السابقة بالإضافة للمخالفة الأخيرة على ألا تزيد عن 3 فهل من حل aaa.rar

شكرا جزيلا تم بحمد الله

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

تمام يا خبير ولكن هل سيختلف الكود على اختلاف إصدارات اكسيس حتى لا يحدث مشاكل فيما بعد

متأسف تم وضع الكود بالخطأ كود تصدير إلى اكسيل

شكرا جزيلا وبارك الله فيك الكود اعرفه والحمد لله DoCmd.TransferSpreadsheet , , "table1", "c:\Users\ali\Documents\ali.xlsx", True ويمكن كتابته بالطريقة التالية DoCmd.TransferSpreadsheet , , "StudentsNames", CurrentProject.Path & "\Ali.xls", True ولكن اريد كود بحيث يفتح مربع حواري للبحث عن الملف المراد استيراد البيانات منه شكرا جزاك الله خيرا

للرفع

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

تم حل هذه المشكلة بحمد الله قمت بإضافة SNameEng لكل الجداول والاستعلامات المختلفة التي قام بعملها العلامة الأستاذ جعفر ثم كتبت هذا الكود في مصدر حقل الاسم في التقرير =IIf(DLookUp("[MyLang]";"tbl_MyLang";"[Auto_ID]=" & 1)=1;[SName];[SNameEng]) تم بحمد لله حل المشكلة ودا بفضل الله ثم مساهمات العلامة الكبير الأستاذ جعفر شكرا جزيلا

شكرا جزيلا ً لك وجعله في ميزان حسناتك جزاك الله خيرا طلب اخير في التقرير الذي قمت حضرتك بعمله هل يمكن ان نضع الشرط التالي اذا كانت قيمة myLang = 1 في جدول tbl_MyLang تظهر الأسماء باللغة العربية وإذا كانت تساوي 2 تظهر الأسماء باللغة الانجليزية حيث ان الأسماء متوفرة باللغتين في جدول أسماء الطلاب

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

أستاذنا الفاضل جعفر تظهر رسالة 13 type missmatch عند تعديل مصدر بيانات cmb_month من SELECT Format(['Date],"mmm-yy") AS Month_Year, Format(['Date],"yy") AS Expr1, Format(['Date],"mm") AS Expr2 FROM MainTble GROUP BY Format(['Date],"mmm-yyyy"), Format(['Date],"yy"), Format(['Date],"mm") ORDER BY Format(['Date],"yy"), Format(['Date],"mm"); إلى SELECT Format(['Date],"mmm-yyyy") AS Month_Year, Format(['Date],"yy") AS Expr1, Format(['Date],"mm") AS Expr2 FROM MainTble GROUP BY Format(['Date],"mmm-yyyy"), Format(['Date],"yy"), Format(['Date],"mm") ORDER BY Format(['Date],"yy"), Format(['Date],"mm"); فما الخطأ في ذلك اريد ان يظهر الشهر في القائمة المنسدلة كما يلي أكتوبر - 2015 مثلاً وليس أكتوبر - 15 شكرا

أو يمكن استخدام الكود الأخير بالشكل التالي ActiveWindow.SelectedSheets.PrintOut From:=Range("C3").Value, To:=Range("E3").Value, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=Range("C4").Value, To:=Range("E4").Value, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False حيث انه يعتمد على القيم الموجودة في الخلايا C3, E3 and C4, F4 كود طباعه.rar

يمكنك استخدام الكود التالي Sub PrintMe() Application.SendKeys ("^p") End Sub سوف يظهر مربح حواري للطباعة حدد الصفحات المراد طباعتها كود طباعه.rar كما يمكنك استخدام الكود التالي ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False للاحظ ان الصفحات محددة من 1 إلى 2 و 3 إلى 4 يمكنك تغيرها كما تشاء

لا تحذف الدالة ولكن استخدمها في النموذج نفسه

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

اكتب الكود في وحدة نمطية ونفذ الخطوات المكتوبة بالعربي وفي حدث فتح النموذج الساسي للبرنامج اكتب الكود التالي Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub Database2.rar

السلام عليكم ورحمة الله وبركاته جرب استخدام الكود التالي : Attribute VB_Name = "HideAccessWindows" Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function 'وهو فقط لاستدعاء الوحدة النمطية السابقة 'ثالثاً :نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة '1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog). '2- في التبويب "الكل" (All) 'حول الخاصية "منبثق" (Pop up) الى نعم (Yes) 'حول الخاصية "مشروط" (Modal) الى نعم (Yes) 'خلف النموذج 'Private Sub Form_Open(Cancel As Integer) 'fSetAccessWindow (SW_HIDE) 'End Sub

الأستاذ الفاضل جعفر لا اجد الكلام الذي يكفيك حقك في هذا العمل الرائع الذي قدمته لي شكرا جزيلا وجزاك الله خيرا وزادك علما

للرفع

في مصدر البيانات للتقرير غير المعيار من [Forms]![البيانات]![الاسم] إلى [Forms]![FORM1]![البيانات]![الاسم]

نفس الجدول MainTble والاستعلام QLate شكرا على الاهتمام