كل الانشطه

بارك الله فيك وجزاك الله خير اخي الفاضل هل هناك طريقه تجعل الكيو ار qr تتم قراءه بشكل جميل على الايفون

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد الإطار النظري للبحث العلمي وفق منهجية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على صياغة الإطار النظري في رسالة الماجستير بأسلوب أكاديمي منظم يربط بين المفاهيم والنظريات ومشكلة الدراسة بوضوح، كما نُوفّر إعداد الإطار النظري للدراسة بطريقة مترابطة وشاملة تُبرز الخلفية العلمية والمرجعيات المعرفية؛ مما يُسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد الإطار النظري للبحث العلمي وفق منهجية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على الربط المنهجي بين الإطار النظري والدراسات السابقة، بما يُبرز الفجوة البحثية ويُدعم مشكلة البحث وأهدافه، كما نوفر إعداد الإطار النظري في خطة البحث بصورة منظمة وواضحة، تساعد على تأسيس دراسة علمية قوية، مترابطة، وتُعزّز جودة البحث وفرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد الفصل الثاني الإطار النظري للبحوث والرسائل العلمية وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على فهم مكونات الإطار النظري وبنائها بطريقة مترابطة تشمل المفاهيم الأساسية، والنظريات، والدراسات السابقة لدعم مشكلة البحث وأهدافه، كما نوضح للباحث ما هو الفصل النظري؟ ودوره المحوري في تأسيس البحث علميًا وربط الجوانب النظرية بالتطبيقية، مع تقديم محتوى منسق وأصلي يرفع جودة البحث ويُعزز فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد الإطار النظري للبحث وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على صياغة الإطار النظري بالإنجليزي بأسلوب أكاديمي سليم ومصطلحات دقيقة تدعم وضوح الأفكار واحترافية البحث، كما نحرص على توضيح مكونات الإطار النظري بشكل منظم يشمل المفاهيم الأساسية، والنظريات، والدراسات السابقة المرتبطة بموضوع الدراسة؛ مما يُسهم في بناء إطار نظري قوي يدعم البحث ويعزز فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية احترافية في إعداد الإطار النظري وفق منهجية علمية دقيقة؛ حيث نُساعد الباحثين على كتابة الإطار النظري في البحوث التربوية بأسلوب علمي منظم يربط بين المفاهيم والنظريات ومشكلة الدراسة، كما نُقدّم دعمًا متكاملًا يوضّح كيفية كتابة الإطار النظري في رسالة الماجستير؛ من حيث الترتيب المنهجي، والتحليل العلمي، والتوثيق الأكاديمي السليم، ونوفّر للباحثين نماذج إرشادية تشمل خطوات البناء النظري للبحث العلمي PDF بما يُسهم في تسهيل عملية الإعداد وضمان جودة الإطار النظري ورفع فرص قبول البحث وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد الإطار النظري وفق منهجية علمية دقيقة تلبي متطلبات الجامعات والمعايير البحثية المعتمدة، نُساعد الباحثين على فهم مكونات الإطار النظري وبنائه بشكل منظم ومتسلسل ضمن الفصول النظري بما يدعم مشكلة الدراسة وأهدافها، كما نُوضّح للباحثين بشكل عملي ما هو الفصل النظري؟ ودوره المحوري في تأسيس البحث علميًا وربط الجوانب النظرية بالجانب التطبيقي، مع تقديم محتوى أصيل ومنسق أكاديميًا يُسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية احترافية في إعداد الإطار النظري تساعد الباحثين على فهم وصياغة مثال على الإطار النظري للبحث بأسلوب علمي واضح ومنظم، نُسهم في إعداد الإطار النظري في خطة البحث بما يتوافق مع مشكلة الدراسة وأهدافها ومتغيراتها، ويُعد أساسًا قويًا لبقية فصول البحث، وانطلاقًا من إدراكنا لـ أهمية الإطار النظري في البحث العلمي في توجيه المنهج وتفسير النتائج وإبراز الأصالة العلمية، نحرص على تقديم محتوى أصيل ومنسق أكاديميًا يرفع جودة البحث ويُعزّز فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد الإطار النظري في رسالة الماجستير وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على صياغة إطار نظري متكامل مع توفير نماذج الإطار النظري للبحث PDF منسّقة أكاديميًا تُوضّح أسلوب البناء والترتيب الصحيح للأفكار والنظريات، كما نعرض للباحث مثالًا على الإطار النظري للبحث يساعده على فهم الصياغة العلمية السليمة والربط المنهجي بين المفاهيم ومشكلة الدراسة، بما يرفع جودة الرسالة ويُعزّز فرص قبولها وتميّزها الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد الإطار النظري للبحث وفق منهجية علمية دقيقة تلتزم بـ شروط الإطار النظري للبحث المعتمدة جامعيًا، من حيث الترابط المنطقي، وحداثة المراجع، والارتباط المباشر بمشكلة الدراسة وأهدافها، كما نوفّر للباحثين نماذج الإطار النظري للبحث PDF منسّقة أكاديميًا لتوضيح آلية البناء النظري والتنظيم السليم للمحتوى، ونحرص كذلك على التكامل المنهجي بين الإطار النظري والدراسات السابقة بما يُبرز الفجوة البحثية ويُعزّز الأساس العلمي للدراسة، ويسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية احترافية في إعداد الإطار النظري وفق أعلى المعايير الجامعية المعتمدة؛ حيث نُساعد الباحثين على بناء الإطار النظري في البحث العلمي بأسلوب منهجي يربط بين المفاهيم والنظريات ومشكلة الدراسة بدقة ووضوح، كما نحرص على نموذج الإطار النظري بصورة منظمة تدعم أهداف البحث وتوجّه منهجيته وتفسير نتائجه، ويأتي الإطار النظري للبحث لدينا بمحتوى أصيل ومنسق أكاديميًا، يُسهم في رفع جودة الدراسة وزيادة فرص قبولها وتميّزها الأكاديمي.

هل هذا هو المطلوب اولا .... لاني عملته لك باستعلام واحد

لا عليك أخي الحبيب قلت لعل هناك طريقة أخرى تغني عن تقسيم الجدول إلى ثلاث استعلامات وتم جمع هذه الاستعلامات الثلاثة في استعلام واحد القصد: هل يمكن استخدام الوحدات النمطية ثم جلب البيانات في استعلام واحد فقط بدل الاستعلامات الكثيرة

لا عليك .. تفضل ملفك بعد التعديل باستخدام الحدث التالي :- Private Sub EXCEL_Click() On Error GoTo ErrorHandler Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim rs As DAO.Recordset Dim strSQL As String Dim strFileName As String Dim strFilePath As String Dim strQueryName As String Dim strTempTable As String Dim strMonthYear As String If IsNull(Me.MS_YR) Or Me.MS_YR = "" Then MsgBox "الرجاء اختيار الشهر والسنة أولاً", vbExclamation + vbMsgBoxRight, "" Exit Sub End If strMonthYear = Me.MS_YR strQueryName = "TempExportQuery" strTempTable = "TempExportTable" Set db = CurrentDb On Error Resume Next DoCmd.DeleteObject acTable, strTempTable On Error GoTo ErrorHandler On Error Resume Next db.QueryDefs.Delete strQueryName On Error GoTo ErrorHandler strSQL = "TRANSFORM Count(All_Names.ID) AS CountمنID " & _ "SELECT All_Names.Ddate, All_Names.Pcode, All_Names.DCode, All_Names.Pname, All_Names.Price " & _ "FROM ALL_Companys LEFT JOIN All_Names ON ALL_Companys.Name_comp = All_Names.Company " & _ "WHERE All_Names.Mon_Year = '" & strMonthYear & "' " & _ "GROUP BY All_Names.ID, All_Names.Ddate, All_Names.Pcode, All_Names.DCode, All_Names.Pname, All_Names.Price " & _ "PIVOT ALL_Companys.Name_comp In (""ثروة للتامين"",""مصر للتامين"",""دلتا للتامين"",""وثاق"",""ثروة حياة"",""رويال"",""جلوب ميد"",""بنك مصر"",""الحفر المصرية"",""التامين المصري السعودى"",""المصرية للاتصالات"",""بنك الإسكان"",""WE"",""GIG"",""AROPE"",""LIBANO SUISSE"",""QNB"");" Set qdf = db.CreateQueryDef(strQueryName, strSQL) DoCmd.RunSQL "SELECT * INTO " & strTempTable & " FROM " & strQueryName ' strFileName = "Export_" & Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".xlsx" 'هنا سيتم حفظ الملف حسب الوقت الحالي مع تاريخ اليوم strFileName = Replace(strMonthYear, "/", "-") & ".xlsx" 'هنا سيتم حفظ الملف برقم الشهر والسنة strFilePath = CurrentProject.Path & "\" & strFileName DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strTempTable, strFilePath, True DoCmd.DeleteObject acTable, strTempTable db.QueryDefs.Delete strQueryName MsgBox "تم تصدير البيانات بنجاح", vbInformation + vbMsgBoxRight, "تم التصدير" ExitProcedure: Set rs = Nothing Set qdf = Nothing Set db = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء عملية التصدير", vbCritical + vbMsgBoxRight, "خطأ" On Error Resume Next If Not db Is Nothing Then DoCmd.DeleteObject acTable, strTempTable db.QueryDefs.Delete strQueryName End If Resume ExitProcedure End Sub ولكن ارجو تحديد الحقول التي تريد الاجماليات لها ، أم جميعها ؟؟ لأنني لم أقم بإضافتها إلا بعد اعتماد الحل أعلاه JO_2.zip

تفضلي هذه احدى الطرق المختصرة المرنة بحث في النماذج الفرعية4.rar

انا اسف لما حدث ولن يتكرر مرة اخرى JO_2.accdb

قم برفع الملف مرة أخرى اذا سمحت .. مع العلم انه والمفروض ارفاق الملف الذي ستعمل عليه ، وليس ملف مختلف عن ارض الواقع .

ما فهمت عليك بشكل جيد

شكر خاص للخبير الفاضل Foksh حاولت اطبق كود حضرتك على الاستعلام الحقيقى ولكتة لايعمل ممكن المساعدة ادرجت النموذج والاتعلام الحقيقى اعتذز لما حدث JO_2.accdb

بارك الله فيك على سرعة اهتمامك بالموضوع ولكن طريقة استخلاص الكود عن طريق تجميع الاستعلامات أعرفها جيداً وهذا هو الكود المستخدم ويعمل بنجاح SELECT Q_Students.StudentID, Q_Students.StudentName, Q_Students.ClassName, Q_S1.StudentID, Q_S1.SemesterID, Q_S1.on1, Q_S1.on2, Q_S1.on3, Q_S1.on4, Q_S1.on5, Q_S1.on6, Q_S1.on7, Q_S1.on8, Q_S1.on9, Q_S1.to1, Q_S1.to2, Q_S1.to3, Q_S1.to4, Q_S1.to5, Q_S1.to6, Q_S1.to7, Q_S1.to8, Q_S1.to9, Q_S1.tr1, Q_S1.tr2, Q_S1.tr3, Q_S1.tr4, Q_S1.tr5, Q_S1.tr6, Q_S1.tr7, Q_S1.tr8, Q_S1.tr9, Q_S2.StudentID, Q_S2.SemesterID, Q_S2.on1, Q_S2.on2, Q_S2.on3, Q_S2.on4, Q_S2.on5, Q_S2.on6, Q_S2.on7, Q_S2.on8, Q_S2.on9, Q_S2.to1, Q_S2.to2, Q_S2.to3, Q_S2.to4, Q_S2.to5, Q_S2.to6, Q_S2.to7, Q_S2.to8, Q_S2.to9, Q_S2.tr1, Q_S2.tr2, Q_S2.tr3, Q_S2.tr4, Q_S2.tr5, Q_S2.tr6, Q_S2.tr7, Q_S2.tr8, Q_S2.tr9, Q_S3.StudentID, Q_S3.SemesterID, Q_S3.on1, Q_S3.on2, Q_S3.on3, Q_S3.on4, Q_S3.on5, Q_S3.on6, Q_S3.on7, Q_S3.on8, Q_S3.on9, Q_S3.to1, Q_S3.to2, Q_S3.to3, Q_S3.to4, Q_S3.to5, Q_S3.to6, Q_S3.to7, Q_S3.to8, Q_S3.to9, Q_S3.tr1, Q_S3.tr2, Q_S3.tr3, Q_S3.tr4, Q_S3.tr5, Q_S3.tr6, Q_S3.tr7, Q_S3.tr8, Q_S3.tr9, Q_S3.TotalSum, Q_S3.average, Q_S3.Grade, Q_S3.FailCount, Q_S3.Result FROM Q_S3 INNER JOIN (Q_S2 INNER JOIN (Q_S1 INNER JOIN Q_Students ON Q_S1.StudentID = Q_Students.StudentID) ON Q_S2.StudentID = Q_Students.StudentID) ON Q_S3.StudentID = Q_Students.StudentID; لكن لا أريد هذه الطريقة !!! قلت لعله يوجد طريقة اخرى غير هه الطريقة والتي أضطر إلى تقسيم أو تجزئة الجدول إلى ثلاث استعلامات ثم عمل استعلام يتم تجميع فيه هذه الاستعلامات الثلاث في استعلام واحد والجدول يوضح نجاح هذه الطريقة

وعليكم السلام أخي يوسف .. تفضل ملفك بعد التعديل ، حيث تم استخدام الحدث التالي في الزر :- Private Sub أمر0_Click() On Error GoTo ErrorHandler Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Dim strFileName As String Dim strFilePath As String Dim strQueryName As String strSQL = "SELECT Tcode, Tname, Out_Lab, IN_Lab, Total, IN_Staff, Total_Staff FROM (" & _ " SELECT 0 AS SortID, Tcode, Tname, Out_Lab, IN_Lab, Total, IN_Staff, Total_Staff FROM Tbl_Tests " & _ " UNION ALL " & _ " SELECT 1 AS SortID, '', 'المجموع الكلي', SUM(Out_Lab), SUM(IN_Lab), SUM(Total), SUM(IN_Staff), SUM(Total_Staff) FROM Tbl_Tests" & _ ") " & _ "ORDER BY SortID, Val(Tcode), Tcode;" strFileName = Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".xlsx" strFilePath = CurrentProject.Path & "\" & strFileName strQueryName = "TempExportQuery" Set db = CurrentDb On Error Resume Next db.QueryDefs.Delete strQueryName On Error GoTo ErrorHandler Set qdf = db.CreateQueryDef(strQueryName, strSQL) DoCmd.OutputTo acOutputQuery, strQueryName, acFormatXLSX, strFilePath, False db.QueryDefs.Delete strQueryName MsgBox "تم تصدير البيانات بنجاح", vbInformation + vbMsgBoxRight, "تم التصدير" ExitProcedure: Set qdf = Nothing Set db = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء عملية التصدير", vbCritical + vbMsgBoxRight, "خطأ" Resume ExitProcedure End Sub وسيتم انشاء ملف اكسل باسم = الوقت الحالي وتاريخ اليوم ، وتستطيع تغيير اسم الملف كما تريد . JO.zip

السلام عليكم لدي نموذج يوجد فيه حقل تحرير وسرد ولدي حقل العلامة بالارقام ولدي حقل العلامة بالحروف - اريد عند الاختيار من مربع تحرير وسرد يتم اخفاء حقل العلامة بالحروف وهذا عند اختيار زيارة توجيهيه او زيارة تفقدية او زيارة استثنائية وحقل العلامة بالأرقام يبقى فارغ العلامة.zip

وعليكم السلام .. هل هذا الطلب مختلف عن مشاركتك وموضوعاتك وطلباتك السابقة

@ابوخليل جزيل الشكر استاذ

الخبراء الافاضل بعد التحية مارايدة موجود بالصورة هل هذا ممكن ام شئ صعب JO.accdb