kanory

طيب استخرج المجلد بجوار القاعدة ثم استخدم هذا الكود Sub ExportReports_To_OnePDF_PDFtk() Dim arrReports As Variant Dim i As Integer Dim strTempFolder As String Dim strFinalPDF As String Dim strPDFtk As String Dim strCmd As String strPDFtk = CurrentProject.Path & "\PdftkBuilderPortable\pdftk.exe" strTempFolder = CurrentProject.Path & "\TempPDF\" strFinalPDF = CurrentProject.Path & "\AllReports.pdf" arrReports = Array("rpt1", "rpt2", "rpt3") If Dir(strTempFolder, vbDirectory) = "" Then MkDir strTempFolder End If If Dir(strTempFolder & "*.pdf") <> "" Then Kill strTempFolder & "*.pdf" End If For i = LBound(arrReports) To UBound(arrReports) DoCmd.OutputTo acOutputReport, arrReports(i), acFormatPDF, _ strTempFolder & (i + 1) & "_" & arrReports(i) & ".pdf", False Next i strCmd = """" & strPDFtk & """ " & _ """" & strTempFolder & "*.pdf"" cat output " & _ """" & strFinalPDF & """" Shell strCmd, vbHide MsgBox "تم إنشاء ملف PDF واحد بنجاح ?" & vbCrLf & strFinalPDF, vbInformation Kill strTempFolder & "*.pdf" End Sub PdftkBuilderPortable.rar

استتخدم هذا مع تعدي اسماء التقارير في المصفوفة Sub Export_All_Reports_To_OnePDF() Dim arrReports As Variant Dim i As Integer Dim strFile As String ' أسماء التقارير بالترتيب المطلوب arrReports = Array("Q", "Report2", "Report3") strFile = CurrentProject.Path & "\AllReports.pdf" ' فتح التقارير (مخفية) For i = LBound(arrReports) To UBound(arrReports) DoCmd.OpenReport arrReports(i), acViewPreview, , , acHidden Next i ' دمج وتصدير في ملف واحد DoCmd.OutputTo acOutputReport, arrReports(0), acFormatPDF, strFile, False ' إغلاق التقارير For i = LBound(arrReports) To UBound(arrReports) DoCmd.Close acReport, arrReports(i), acSaveNo Next i MsgBox "تم إنشاء الملف بنجاح", vbInformation End Sub

انشأ مديول وضع فيه هذا Public Sub FillBookmark(BMName As String, BMValue As String) Dim rng As Object If Objwrd.ActiveDocument.Bookmarks.Exists(BMName) Then Set rng = Objwrd.ActiveDocument.Bookmarks(BMName).Range rng.Text = BMValue Objwrd.ActiveDocument.Bookmarks.Add BMName, rng Else MsgBox "Bookmark غير موجود: " & BMName, vbExclamation End If End Sub ثم استخدم هذا في الزر لديك جرب واعلمنا بالنتيجة Private Sub أمر0_Click() On Error GoTo Err_Handler 'فتح ملف الوورد OpenClsword (CurrentProject.Path & "\123.doc") 'تعبئة الـ Bookmarks بدون تكرار Call FillBookmark("AA", txtYear) Call FillBookmark("A1", Format(tx1, "#,##0.00")) Call FillBookmark("A2", Format(tx2, "#,##0.00")) Call FillBookmark("A3", Format(tx3, "#,##0.00")) Call FillBookmark("A4", Format(tx4, "#,##0.00")) Call FillBookmark("A5", Format(tx5, "#,##0.00")) Call FillBookmark("A6", Format(tx6, "#,##0.00")) Call FillBookmark("A7", Format(tx7, "#,##0.00")) Call FillBookmark("A8", Format(tx8, "#,##0.00")) Call FillBookmark("A9", Format(tx9, "#,##0.00")) Exit Sub Err_Handler: MsgBox "حدث خطأ أثناء التصدير إلى الوورد", vbCritical End Sub

هل تريد تصدير هذه التقارير في ملف واحد ام ملفات متعددة

لما لا تستخدم مسح البيانات القديمة وادراج الجديد

استبدل الكود بهذا <><><><><><><> Private Sub أمر0_Click() On Error Resume Next OpenClsword (CurrentProject.Path & "\123.doc") Objwrd.ActiveDocument.Bookmarks("AA").Select Objwrd.Selection.InsertAfter txtYear Objwrd.ActiveDocument.Bookmarks("A1").Select Objwrd.Selection.InsertAfter Format(tx1, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A2").Select Objwrd.Selection.InsertAfter Format(tx2, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A3").Select Objwrd.Selection.InsertAfter Format(tx3, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A4").Select Objwrd.Selection.InsertAfter Format(tx4, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A5").Select Objwrd.Selection.InsertAfter Format(tx5, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A6").Select Objwrd.Selection.InsertAfter Format(tx6, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A7").Select Objwrd.Selection.InsertAfter Format(tx7, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A8").Select Objwrd.Selection.InsertAfter Format(tx8, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A9").Select Objwrd.Selection.InsertAfter Format(tx9, "#,##0.00") End Sub

استخدم هذا <><><><><> If Len(Nz(Me.Image.Picture, "")) = 0 Or Dir(Me.Image.Picture) = "" Then Beep MsgBox "لا يمكن طباعة هذا التقرير بدون صورة شخصية ((يرجى اضافة صورة شخصية))" Else RName = "Personel" FldCriteria = "[Key]=" & Me![Key] DoCmd.OpenReport RName, acViewNormal, , FldCriteria End If

تأكد من المرفق المرسل اخي الكريم

تفضل <><><><><><> تصفية في نموذج البحث.accdb

طيب ....... 🤔

جرب المرفق التالي ( طبعا عند تحويل الموظف الى مطوي القيد يختفي من مجموعة الموظفين على رأس العمل ويجده في المطوي قيدهم تحويل.accdb

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

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

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

يعني استمر في التعديل على هذه النسخة وبالطريقة التي ذكرتها

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

: "أذهب البأس رب الناس، اشف أنت الشافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقما اللهم اشف اخانا قاسم ووالدته وجميع مرضى المسلمين

هل هذه الفكرة هي المطلوبة بالنسبة للعد التنازلي :::: لاحظ العد يتوقف لحظة فرز الاسئلة العشوائي حفاظا على وقت المتسابق .... ويعود العد مرة اخرى ..... طبعا سرعت واختصرت الوقت عشان الملف لا يصبح كبير

وحدة وحدة ..... استاذ @خالد عبد الغفار ماهي الطلبات ؟؟؟ وهل هذه الطلبات غير موجودة في النسخة الاساسية للمسابقة ؟!

وعليكم السلام اهلا بك استاذي القدير @ابوخليل في حالة المرفق داخل قاعدة البيانات ..... دائما التعامل يكون بحيلة سواءا لفتح المرفق او عرض المرفق مباشرة .... والحيله هي تصدير المرفق ثم التعامل معه .... في مثالك مثلا والطلب بفتح المرفق مباشرة .... الكود يقوم اولا بتصديره ثم فتحه .... جرب هذا الكود لاني لم افتح القاعدة التي لديك Private Sub cmdOpenAttachment_Click() Dim rs As DAO.Recordset2 Dim rsA As DAO.Recordset2 Dim fld As DAO.Field2 Dim tmpPath As String Dim fileName As String 'افتح السجل الحالي Set rs = Me.Recordset 'اسم الحقل الذي يحتوي على المرفق Set fld = rs.Fields("MyAttachmentField") '← غيّر الاسم حسب جدولك If fld.Value Is Nothing Then MsgBox "لا يوجد مرفق لفتحه.", vbExclamation Exit Sub End If 'افتح المرفق داخل الحقل Set rsA = fld.Value If rsA.RecordCount = 0 Then MsgBox "لا يوجد مرفق.", vbExclamation Exit Sub End If rsA.MoveFirst 'الاسم الأصلي للمرفق fileName = rsA.Fields("FileName").Value 'حدد مسار مجلد مؤقت tmpPath = Environ("TEMP") & "\" & fileName 'احفظ المرفق كملف مؤقت rsA.Fields("FileData").SaveToFile tmpPath 'افتح الملف بالبرنامج الافتراضي FollowHyperlink tmpPath End Sub

هل المطلوب ايقونة واحدة ام ممكن ان تكون اكثر من واحدة

وهل عرفت السبب ؟؟؟؟؟؟؟ هو هذا حلي الجديد !!!! هههههههه وايضا هناك حل ثالث ؟؟؟ تفضل اولا الحل الثالث باستخدام Private Sub Form_Open(Cancel As Integer) Dim SQL As String SQL = "SELECT Nom_Menha, Menha_ID, ID FROM Qry_menha " & _ "WHERE Menha_ID = '" & Forms!FrmMenah!Etar.Column(1) & "' " & _ "ORDER BY Menha_ID;" Me.Menha_Name.RowSource = SQL End Sub اما الحل الثاني والذي اكتشفته انت اريدك ان تعرفة بنفسك !!! تغير المصدر3.mdb

اخي طاهر ايضا هناك طريقة اخرى وبدون ادراج مربع النص اذا تريدها ارفقها لك ابشر

طيب جرب المرفق التالي تغير المصدر.mdb