Barna

جرب هذا <><><><><><><> Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ 200 If (Me.box2.Width) = 1 Then Me.Command8.Enabled = True End If End If End Sub

هل هذا ما تريد <><><><><><><> rprt.accdb

التاريخ في حقيته غير مسجل وبالرغم من انك تشاهده في الجدول ..... انظر الجدول الان ..... تفضل <><><><><> datex.rar

اعتقد هناك جداول مخفيه هي السبب ...... لأني استوردت القاعدة الى قاعدة اخرى فارغة تماما عمل البرنامج بدون مشاكل واغلق بدون مشاكل ...

نعم تم التحميل اخي من مكتبة الموقع . لم اجرب روابط اخرى . الملف يتم تحميله لدى ويتم استخراجه بدون مشاكل ..... ولكن عن اغلاق البرنامج تاتي رسالة برنامج الفيروسات ويتم حذف مباشرة ..... اما وقت العمل عليه لاتظهر مشاكل اعتقد هناك كود عند الاغلاق يعمل .... فيعتبرها برنامج الفيروسات إنه فيرس ... والله اعلم .... جاري التجربة على الملف ربما نعرف السبب !!!!

تقصد فرز للسجلات ذات تواريخ السنة الحالية تفضل ........................ New Microsoft Access Database (2).rar

تفضل :::::::: New Microsoft Access Database (2).rar

نعم انظر ......

جرب هذا ......................

هل الاوفيس لديك 64Bit

مشاركة مع استاذي @kanory تفضل ....... BOOK (2).accdb

من اسمك ... لان علي اخ وجبيب ... تحياتي له

اولا ::: هل لك اخ اسمه علي انا لم احمل ملفك لكن اعتقد تحتاج هذا ...

اقرأ هذه الدروس لعلك تستفيد منها

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

اجعل مصدر الصورة هكذا ... جرب =[CURRENTPROJECT].[PATH] & "\photos\" & [STUDENT_ID] & ".jpg"

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

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

هدية حلوة .... شكرا لك ... وكل عام انتم بخير

اليس هذا هو مثالك في اول مشاركة بالموضوع ؟؟؟؟ اليس هذه شروحك للمطلوب في البرنامج ؟؟؟؟؟؟؟؟؟

طيب جرب كدة ..... طبعا يتم انشاء المجلدات بجوار البرنامج ... 1.mdb

هذه هي الطريقة ..

لا ... ولكن ممكن نستخدم برنامج صغير لفعل ذلك عن طريق الاكسس ... دون ان يشعر فيه مستخدم الاكسس ...

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

ترى كلنا نحب الصعايدة والنعم فيهم .... اسمح لي استخدم مثالك بطريقة اخرى للفائدة واثراء الموضوع باستخدم هذا الكود .... Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL1 As String, strSQL2 As String Set db = CurrentDb db.QueryDefs.Delete "qr1" If com1 = "التقرير الاول" Then strSQL1 = "SELECT tblA.ID, tblA.fld FROM tblA;" Set qdf = db.CreateQueryDef("qr1", strSQL1) ElseIf com1 = "التقرير الثاني" Then strSQL2 = "SELECT tblB.ID, tblB.fld FROM tblB;" Set qdf = db.CreateQueryDef("qr1", strSQL2) End If DoCmd.OpenReport "rptFlayReport", acViewPreview وهذا المثال ..... Chang Record Sources Report.mdb