Barna

اجعل مصدر الصورة هكذا ... جرب =[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

جرب التعديل وانتظر حتى ظهور الرسالة ...... Dim MWordDocCopyOf As String Dim NWordDocCopyOf As String Dim LWordDocOriginal As String Dim LWordDocCopyOf As String Dim Warning As String DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Dir(CurrentProject.Path & "\" & Me.المعرف & "\", vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "\" & Me.المعرف & "\" End If LWordDocOriginal = CurrentProject.Path & "\asd.docx" LWordDocCopyOf = CurrentProject.Path & "\" & Me.المعرف & "\" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" If IsFileLocked(LWordDocCopyOf) = True Then MsgBox "يرجى غلق ملف الوورد!" Application.FollowHyperlink LWordDocCopyOf Exit Sub Else FileCopy LWordDocOriginal, LWordDocCopyOf MWordDocCopyOf = LWordDocCopyOf NWordDocCopyOf = Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") LWordDoc.Documents.Open MWordDocCopyOf LWordDoc.Visible = True LWordDoc.ActiveDocument.Bookmarks("A1").Select LWordDoc.Selection.InsertAfter Nz(b1.Value, "") LWordDoc.ActiveDocument.Bookmarks("A2").Select LWordDoc.Selection.InsertAfter Nz(b2.Value, "") LWordDoc.ActiveDocument.Bookmarks("A3").Select LWordDoc.Selection.InsertAfter Nz(b3.Value, "") LWordDoc.ActiveDocument.Bookmarks("A4").Select LWordDoc.Selection.InsertAfter Nz(b4.Value, "") LWordDoc.ActiveDocument.Bookmarks("A5").Select LWordDoc.Selection.InsertAfter Nz(b5.Value, "") LWordDoc.Application.Documents(NWordDocCopyOf).Save End If LWordDoc.Quit Set LWordDoc = Nothing DoCmd.GoToRecord , , acNext Next i Warning = MsgBox("تم تصدير البيانات للملف ....... هل تريد فتح الملف المصدر", vbOKOnly, "تنبيه")

جرب كده ....... Private Sub OpenFile_Click() Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.Path & "\وارد\" File_Name = Dir(File_Path & Me.crn & "*.pdf") If File_Name = "" Then MsgBox "المستند غير محفوظ" Exit Sub End If While File_Name <> "" Name_Path = File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub

طيب ابدأ انت بتصميم الجداول والنماذج ... وبعدين نجي للاحصاء المطلوب ... ام تريد برنامج يصمم لك فيه هذه الطلبات ؟؟؟ اذا كان تريد برنامج متكامل هناك في المنتدى قسم خاص بطلبات تصميم البرامج .. يمكن طرح طلبك هناك ... تجد ما يسرك .

تفضل ..... جرب .... legan.rar

الحمد لله رب العالمين

تفضل شاهد هذا الموضوع

هههه ابا جودي ..... اذا حضر الماء بطل التيمم ...

طيب في حدث عند تحميل النموذج ضع هذه الشيفرة ..... Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Tb-Empl") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) If (IsNull(rs.Fields(5))) Then rs.Edit rs![نهاية الخدمة] = rs![تاريخ التوظيف] + 365 rs.Update End If rs.MoveNext Wend End If rs.Close Set rs = Nothing