كل الانشطه

اخي الفاضل استعملت هذا الكود ولكن بيصدر تقرير واحد

استتخدم هذا مع تعدي اسماء التقارير في المصفوفة 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

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

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج تعديل علي هذا الكود ليصدر أكثر من تقرير دفعة واحدة بدلا من تقرير واحد يعني بدلا من أيكون تقرير واحد Q يكون A b c Q DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, strPathAndfile, True

تفضل السمكة بالهناء والشفاء حساب مع الترتيب حسب المديونية رغم أني لا أفهم شيء في المحاسبة عملاء جديد.xlsb

قد تستفيد من هذ الملف 🙂 : (( للعلم وكما ذكر الباش مهندس فادي @Foksh كان هذا الموضوع هو عنوان تحدي مجموعة الأكسس ، وكانت هناك عدة مشاركات لمختلف الأعضاء وكانت هذه مشاركتي المتواضعة 🙂 )) موسى الكلباني- التتحدي 10 _ التقييم 5 نجوم.accdb

تمام ......... زادك الله من علمه وبارك فيك والف شكر

تقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة لدعم الباحثين والمترجمين، مع التركيز على رفع جودة الأعمال الأكاديمية، وتشمل خدماتها خدمة ترجمة اللغات الحية التي تضمن الدقة اللغوية وسلامة المصطلحات، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، وتسهم الأدلة العملية مثل نصائح مفيدة للمترجمين المستقلّين والترجمة العلمية في تعزيز مهارات المترجم، مع توضيح مهارات المترجم اللازمة لتحقيق مستوى احترافي وضمان الالتزام بالمعايير الأكاديمية. https://www.sanadkk.com/blog/post/38/%D8%B9%D8%B4%D8%B1-%D9%86%D8%B5%D8%A7%D8%A6%D8%AD-%D9%85%D9%81%D9%8A%D8%AF%D8%A9-%D9%84%D9%84%D9%85%D8%AA%D8%B1%D8%AC%D9%85%D9%8A%D9%86-%D8%A7%D9%84%D9%85%D8%B3%D8%AA%D9%82%D9%84%D9%8A%D9%86-%D8%A7%D9%84%D9%85%D8%A8%D8%AA%D8%AF%D8%A6%D9%8A%D9%86.html

اعتقد العمل ادناه ( نموذجي / مرن ) هذا ما امكنني الوصول اليه Private Sub SetRating(v As Integer) If Me.MyRating = v Then Me.MyRating = 0 Else Me.MyRating = v End If Me.Dirty = False End Sub Private Sub btnStar1_Click() SetRating 1 End Sub Private Sub btnStar2_Click() SetRating 2 End Sub Private Sub btnStar3_Click() SetRating 3 End Sub Private Sub btnStar4_Click() SetRating 4 End Sub Private Sub btnStar5_Click() SetRating 5 End Sub لتقييم النجوم2.rar

تتناول الدراسات المتخصصة تساؤل كيف تكون مترجم جيد؟ لتوضيح المهارات والخطوات اللازمة للنجاح في مجال الترجمة العلمية والأكاديمية، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة لدعم الباحثين والمؤسسات، من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية وسلامة المصطلحات، بالإضافة إلى خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تساعد الأدلة العملية مثل استراتيجيات الترجمة العلمية وأنواع الترجمة pdf الباحثين والمترجمين على فهم أساليب الترجمة المختلفة، وتطبيق أفضل الممارسات لضمان جودة ودقة الترجمة الأكاديمية. https://www.sanadkk.com/blog/post/39/%D9%83%D9%8A%D9%81-%D8%AA%D8%B5%D8%A8%D8%AD-%D9%85%D8%AA%D8%B1%D8%AC%D9%85-%D8%AC%D9%8A%D8%AF.html

تتناول الدراسات المتخصصة تساؤل هل يفشل بعض المترجمين المستقلين؟ لتسليط الضوء على التحديات التي قد تواجه المترجمين في إنجاز الأعمال العلمية بدقة واحترافية، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة حلولًا متخصصة لدعم الباحثين والمؤسسات، من خلال خدمة ترجمة اللغات الحية التي تضمن الدقة وسلامة المصطلحات، بالإضافة إلى خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما يبرز الدور المهم لـ مهارات المترجم العلمي في نجاح الترجمة وضمان الالتزام بالمعايير الأكاديمية، وهو ما تقدمه بشكل احترافي شركة سندك للترجمة من خلال خدمات متكاملة ودعم مستمر. https://www.sanadkk.com/blog/post/41/%D9%84%D9%85%D8%A7%D8%B0%D8%A7-%D9%8A%D9%81%D8%B4%D9%84-%D8%A8%D8%B9%D8%B6-%D8%A7%D9%84%D9%85%D8%AA%D8%B1%D8%AC%D9%85%D9%8A%D9%86-%D8%A7%D9%84%D9%85%D8%B3%D8%AA%D9%82%D9%84%D9%8A%D9%86.html

تتناول الدراسات المتخصصة صعوبات الترجمة العلمية | تحديات ومشكلات وأنواعها لشرح أبرز الإشكاليات التي تواجه نقل المحتوى العلمي بدقة، مع توضيح ما الترجمة العلمية؟ وأهميتها في إيصال المعرفة الأكاديمية بشكل سليم، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة تدعم الباحثين والمؤسسات، من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية والفروق الثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تسلط المراجع الأكاديمية الضوء على ما مشكلات الترجمة التقليدية؟، وبيان أوجه القصور التي قد تؤثر في جودة الترجمة، مما يؤكد أهمية الاعتماد على منهجيات حديثة ومعايير احترافية في الترجمة العلمية. https://www.sanadkk.com/blog/post/1667/%D8%B5%D8%B9%D9%88%D8%A8%D8%A7%D8%AA-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

تتناول الدراسات المتخصصة قواعد الترجمة العلمية | مناهجها وصعوباتها وشروطها لفهم الأسس التي يقوم عليها هذا النوع من الترجمة، مع توضيح ما هي الترجمة العلمية؟ وأهميتها في نقل المعرفة الأكاديمية بدقة، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة تدعم الباحثين والمؤسسات؛ من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية والفروق الثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تطرح المراجع المنهجية تساؤل ما هي مناهج الترجمة؟ لبيان الأساليب المتبعة في الترجمة العلمية، وضمان الالتزام بالمعايير الأكاديمية والمهنية في جميع الأعمال المترجمة. https://www.sanadkk.com/blog/post/1668/%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

تُعد شركة سندك للاستشارات الأكاديمية والترجمة من الجهات المتخصصة في تقديم خدمات ترجمة احترافية تدعم الباحثين والمؤسسات الأكاديمية، وتلتزم الشركة بتطبيق أهم قواعد الترجمة العلمية التي تضمن الدقة والأمانة في نقل المحتوى، من خلال خدمة ترجمة اللغات الحية التي تراعي الفروق اللغوية والثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تتناول الدراسات المنهجية تساؤل ما هي مناهج الترجمة؟ مع الإشارة إلى دور موقع الترجمة العلمية في دعم الباحثين والمترجمين، وتوفير أدوات تساعد على إنجاز الترجمة العلمية بجودة واحترافية. https://www.sanadkk.com/blog/post/1680/%D8%A3%D9%87%D9%85-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

تناول دراسات الترجمة العلمية والتقنية: أنواعها ومهارات المترجم الأسس التي يقوم عليها هذا المجال المتخصص، مع توضيح أبرز صعوبات الترجمة العلمية والتحديات المرتبطة بنقل المصطلحات والمعاني الدقيقة، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة تدعم الباحثين والمؤسسات، من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية والفروق الثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تسلط المراجع الأكاديمية الضوء على السمات التي ينبغي توافرها في المترجم العلمي لضمان جودة الترجمة، وتحقيق الأمانة العلمية، والالتزام بالمعايير المهنية المعتمدة. https://www.sanadkk.com/blog/post/2124/%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9-%D9%88%D8%A7%D9%84%D8%AA%D9%82%D9%86%D9%8A%D8%A9.html

تُعد ترجمة ورقة علمية | الخدمة من سندك من الخدمات المتخصصة التي تلبي احتياجات الباحثين في نقل الأبحاث بدقة واحترافية، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة حلولًا متكاملة في مجال الترجمة، من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية وسلامة المصطلحات، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأوراق والبحوث العلمية، كما تطرح الأدلة العملية أفكار تسهل عليك عملية الترجمة لدعم الباحثين في إنجاز أعمالهم بكفاءة، مع توفير مراجع تطبيقية مثل نموذج ورقة بحثية باللغة الإنجليزية pdf للاطلاع على الصياغة الأكاديمية الصحيحة. https://www.sanadkk.com/blog/post/2150/%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D9%88%D8%B1%D9%82%D8%A9-%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

توضح الدراسات الأكاديمية ما هي قواعد الترجمة العلمية؟ باعتبارها الأساس الذي يضمن نقل المعرفة بدقة والحفاظ على المصطلحات والمعاني العلمية دون تحريف، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة تدعم الباحثين في هذا المجال، من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية والفروق الثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تسلط المراجع العلمية الضوء على ما هي صعوبات الترجمة العلمية؟، مع توفير مصادر داعمة مثل الترجمة العلمية PDF لمساعدة الباحثين والمترجمين على تجاوز التحديات والالتزام بالمعايير الأكاديمية. https://www.sanadkk.com/blog/post/2163/%D9%85%D8%A7%D9%87%D9%8A-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

تُعد مواقع الترجمة العلمية | الأشهر موثوقية من الأدوات المهمة التي يعتمد عليها الباحثون في التعامل مع المراجع الأجنبية وفهم المحتوى الأكاديمي بدقة، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة حلولًا متخصصة في مجال الترجمة، من خلال خدمة ترجمة اللغات الحية التي تراعي الفروق اللغوية والثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما يتجه الكثيرون إلى استخدام أفضل برامج الترجمة الفورية المجانية وموقع ترجمة بالذكاء الاصطناعي لدعم سرعة الإنجاز، مع التأكيد على أهمية المراجعة البشرية لضمان جودة ودقة الترجمة العلمية. https://www.sanadkk.com/blog/post/2179/%D9%85%D9%88%D8%A7%D9%82%D8%B9-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

هلا بك أخ أبوعيد الذكاء الاصطناعي ما أعرف من وين حد يجي له 🙂 ليس معي غير Meta Ai تبع واتساب فلو تستطيع إفادتي بالمواقع التي قد تنفعني سأكون شاكر صنيعك 🌻 --------- حالياً أريد سمكة وذلك لضيق الوقت في تعلم اصطياد السمك لأن قارب الرحلة سيذهب وأنا أتعلم، وفي الأيام المقبلة سأتعلم كيف أصطاد السمك وأنتم السند 🙂 ... عندي هذا الملف فيه أكثر من 1300 عميل وأريد معرفة هل العميل تجاوز سقف المديونية أم لا، فاستخدمت دالة For ولكن أثناء استخدامها تتأخر النتائج ويعلق الملف فكيف لو زاد العملاء؟؟ فقلت المصفوفات ستحل المشكلة جربتها وستجدها في موديل modArray ولكنه يأتي بالأسماء مكرره! فكيف أجلب أسماء العملاء بدون تكرار، وأجري عملية جميع لما عليه، ثم أتحقق من تجاوزه لسقف المديونية عن طريق المصفوفات ... عملاء 2026.xlsb

استخدم هذا <><><><><><><> Private Sub btnStar1_Click() If Me.MyRating = 1 Then Me.MyRating = 0 Else Me.MyRating = 1 End If Me.Dirty = False End Sub Private Sub btnStar2_Click() If Me.MyRating = 2 Then Me.MyRating = 1 Else Me.MyRating = 2 End If Me.Dirty = False End Sub Private Sub btnStar3_Click() If Me.MyRating = 3 Then Me.MyRating = 2 Else Me.MyRating = 3 End If Me.Dirty = False End Sub Private Sub btnStar4_Click() If Me.MyRating = 4 Then Me.MyRating = 3 Else Me.MyRating = 4 End If Me.Dirty = False End Sub Private Sub btnStar5_Click() If Me.MyRating = 5 Then Me.MyRating = 4 Else Me.MyRating = 5 End If Me.Dirty = False End Sub

اليك الملف البحث في القائمة بالحروف.xlsm

لامانع .. وان كنت افضل كما هي في القائمة المنسدله وشكرا لحضرتك والقائمين على المنتدى العظيم

السلام عليكم فضلا محتاج توجيه من حضراتكم ازاي اوصل لحاجه تساعدني ف الشغل عندي ملف بيترسل بشكل يومي بيكون pdf وبحمل من السيستم عندي ملف اكسيل وبقارن الملفين ببعض يدوي بصوره يوميه وطبعا دا بياخد وقت يوميا حاولت كتير اكسيل ودورت ع النت بس معرفتش اوصل لحاجه تفيدني انا بقارن البيانات دي ببعض اسم النزيل. رقم الحجز. تاريخ الدخول. تاريخ الخروج. عدد الغرف. نوع الغرفه والمشاكل اللي بتقابلني كالتالي ملف ال pdf بقدر احوله اكسيل بس بواجه صعوبه اني اعمل اكستراكت للبيانات منه واحطها في اعمده والسبب ان اماكن البيانات بتختلف من سطر للتاني المشكله التانيه اني مش عارف ايه انسب معادله تطلعلي الفرق بين البيانات من ال pdf والبيانات من الاكسيل بحيث ان لو الاسم مختلف يطلعها او تاريخ مختلف يطلعها ممكن توجهوني ابدء منين عشان اوصل لتحليل البيانات دا ويسهل عليا الشغل يوميا ارفقت ملف اكسيل الصفحتين الاولي والتانيه اللي بقارنهم ببعض الصفحة التالته مثال للي عايز اوصله بالمعادلات انه يحطلي الداتا قصاد بعض ويقارن بينهم ولو في اختلاف في اي حاجه تنبهني شاكر ليكو STAY.xlsx