Barna

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

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

هل الاوفيس لديك 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

الصورة هذه ليس فيها ما يدل على المادة ... اين اسم المادة في الصورة ؟؟؟ وبعدين تبغا التصميم مثل الصورة ... من اين احضر لك التصميم هذا لانها صورة ... وانا لست مصمم فوتوشوب للاسف 😁😁😁😁

هل هذ الصورة المطلوبة .....

وعليكم السلام ورحمة الله وبركاته ... اعمل مربع نص وسمه مثلا Text7 ثم في حدث عند عداد الوقت للنموذج ضع هذا الكود ... I = I + 1 Me.Text7 = I & "%" If I = 100 Then Me.TimerInterval = 0 ثم اصنع زر وضع في حدثه .... Me.TimerInterval = 100 جرب واعلمنا بالنتيجة ؟؟؟؟

دائما رائع أخي الكريم @مبرمج سابق .... ماشاء الله تبارك الله ...

جرب هذا ::::::: Dim RanNo() As Long Private Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer) ReDim RanNo(iFrom To iTo) For i = iFrom To iTo RanNo(i) = i Next i Randomize (Timer) For i = iFrom To iTo j = CInt((iTo - iFrom) * Rnd + iFrom) tmp = RanNo(i) RanNo(i) = RanNo(j) RanNo(j) = tmp Next i End Sub Private Sub أمر0_Click() RandomizeNumbers 0, 28 For i = 1 To 28 List1.AddItem RanNo(i) Next i End Sub

حياك الله اخي الغالي @kanory اهلا شرفتنا ... دائما الاستاذ يبقى استاذ .... منكم نتعلم استاذي الكريم .... شكرا لمرورك

طيب انظر الصور والمرفق هل هذا هو المطلوب ........ Info list.accdb