jjafferr

🙂 1. عملت استعلام علشان احصل على مجاميع اسماء المدارس ، بدون تكرار: . 2. ثم استعلام آخر ، حتى يعطينا جميع سجلات المدرسة ، حسب قيمة الحقل cbo_schoole في النموذج tsform ، والذي سنغيره برمجيا : . 3. ثم فتحت النموذج fform ، وحفظت نسخة منه الى تقرير : . 4. تم حفظ التقرير باسم rpt ، ومصدر بياناته كان الاستعلام 2 اعلاه ، وعدلت على ارتفاعه ليكون نصف صفحة تقريبا ، حتى نضع تقريرين في كل صفحة pdf : . 5. وعملت هذه الدالة على زر "بيان درجات الطالب" ، لكي يتم تصدير التقارير لمفات pdf ، لكل مدرسة ملفها الخاص: Private Sub أمر26_Click() 'On Error Resume Next 'DoCmd.OpenReport "استيكر لغات", acViewPreview 'Me.Visible = False On Error GoTo err_Handle Dim rstG As DAO.Recordset Dim File_Name As String 'get the Group school names Set rstG = CurrentDb.OpenRecordset("Select * From qry_1_School_Name_Group") rstG.MoveFirst 'always start from the begining 'loop through the Group school names Do Until rstG.EOF 'assign the school name to the field, and apply its event, for visual looks Me.cbo_schoole = rstG!School_name Call cbo_schoole_AfterUpdate 'output pdf file name File_Name = Application.CurrentProject.Path & "\" & Me.cbo_schoole & ".pdf" Kill File_Name 'Delete old file, if any 'output the Reports as pdf file DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, File_Name, False, , , acExportQualityPrint 'next school rstG.MoveNext Loop Exit_err_Handle: 'cleaning up rstG.Close: Set rstG = Nothing Exit Sub err_Handle: If Err.Number = 53 Then 'no file to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_err_Handle End Sub جعفر 1394.تصدير بي دي اف لكل مدرسة على حدى.mdb.zip

كان المفروض تستخدمه هكذا : Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]='" & Me.txtEmpNumber & "'") جعفر

اذا كان نوع الحقل txtEmpNumber نص ، فيجب كتابة الكود هكذا: ='" & me.txtEmpNumber & "'") وبدل ان تطلب البيانات من الجدول/الاستعلام 3 مرات عن طريق الامر Dlookup ، يمكنك جلبهم مرة واحدة ، هكذا: جعفر

وفي انتظار الاستاذ هاني ان يعطينا ملف بدون كلمة سر في الكود 🙂 جعفر

السلام عليكم 🙂 حاول تصدر ملف pdf الى مجلد بارتيشن آخر غير \:C ، لأنه بعض الكمبيوترات ما تسمح لك الحفظ هناك !! جعفر

وعليكم السلام 🙂 رجاء اعطائنا توضيح اكثر حول البرنامج ، و بيئة استخدامه ، وما هو التغيير الذي حصل عليه او على بيئته من يوم بدأت المشكلة 🙂 جعفر

وعليكم السلام اخي بلال 🙂 نصيحة ، اذا لم تجد رد على سؤالك خلال يومين وكان عدد الذين قرأوا موضوعك كبير : . فتأكد ان معظم الذين قرأوا الموضوع لم يفهمون المطلوب !! لذا ، عليك إعادة كتابة سؤالك ، وبمثال من مرفقك يوضح المطلوب 🙂 جعفر

السلام عليكم 🙂 اذا قصدك انك تريد تغيير النموذج الفرعي حسب اختيارك من الكومبوبوكس ، فهذا ممكن كذلك ، ولكن سنحتاج الى مرفق لوسمحت 🙂 جعفر

اخي محمد ، الاوفيس لا علاقة له بالموضوع ، هي فقط اعدادات الوندوز ، الصورة رقم 4 من الرابط اعلاه ، واختيار دولة عربية في اختيارات Unicode ، والتأكد من عدم اختيار المربع Beta. ثم يجب اعادة تشغيل الكمبيوتر 🙂 جعفر

وعليكم السلام 🙂 تفضل : Private Sub yars_AfterUpdate() '1 Dim ys as Date ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = DateAdd("D", -1, ys) 'Or '2 Dim ys As Date ys = Me.BDATE - 1 Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys End Sub جعفر

وعليكم السلام 🙂 اي رسالة من رسائل الاكسس تحتوي على كلمة خادم و OLE ، فمعناها ان اعدادات الوندوز (وليس الاكسس) يحتاج تغييرها لتدعم اللغة العربية ، هكذا: . جعفر

هذه الرسالة بسبب اعدادات الوندوز ، لغة Unicode ، عادة تكون اللغة العربية ، بس معاك ممكن تكون اللغة الفرنسية !! جرب هذه اللغة ، ثم تلك : . جعفر

تفضل 🙂 اضف المعيار الجديد الى استعلامك : . اعمل زر تحديث على النموذج الرئيسي ، وضع هذا الكود فيه: Dim rst As DAO.Recordset DoCmd.Hourglass True Set rst = Me.invdetails_Subform.Form.Recordset rst.MoveFirst Do Until rst.EOF DoCmd.SetWarnings False DoCmd.OpenQuery "updateStoretransaction" DoCmd.SetWarnings True rst.MoveNext Loop DoCmd.Hourglass False rst.MoveFirst . جعفر 1393.Update_From_SubForm.accdb.zip

وعليكم السلام 🙂 استعلامك صحيح ، وعندك حاليا شرط رقم الفاتورة ، واذا اردت ان تضيف الشروط / المعايير ، فتقدر تحت كل حقل ان تكتبه 🙂 اما اذا اردت تشغيل الاستعلام من النموذج ، فضع الكود التالي على اي حدث يناسبك: if me.dirty then me.dirty = false docmd.setwarnings false docmd.openquery "updateStoretransaction" docmd.setwarnings true ملاحظة: من الخطورة ان تضع On error Resume Next في كل حدث في الكود ، فاذا حدث خطأ معين ، فلن تعرف اين الخطأ وما هو الخطأ ، لذا يجب عليك اصطياد الخطأ ، ثم عمل كود لمراعاة هذا الخطأ فقط !! جعفر

وعليكم السلام 🙂 طريقتي: الدالة: Public Function getMSG(ID As Integer, ind As Integer) As String ' Dim A As String ' Dim x() As String ' ' A = DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) ' x = Split(A, "|") ' getMSG = x(ind) ' 'OR combine in one line getMSG = Split(DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID), "|")(ind) End Function . الاستعلام . والنتيجة: . جعفر 1392.Split.mdb.zip

السلام عليكم 🙂 حل رسالة الخطأ : جعفر

أخي حسين 🙂 لك مجموعة من المواضيع تتكلم فيها عن الحجم الكبير لقاعدة البيانات ، أما آن الاوان ان تحل المشكلة من اصلها !! اخونا @Shivan Rekany عنده موضوع لهذا: جعفر

وعليكم السلام 🙂 تم مناقشة هذا الموضوع هنا : طلب- برنامج لإصلاح ملفات الاكسيس accdb , mdb - قسم الأكسيس Access - أوفيسنا (officena.net) و سؤال عن مشكلة Error 3343: Unrecognized Database Format - قسم الأكسيس Access - أوفيسنا (officena.net)

وعليكم السلام 🙂 هذه المعلومة غير دقيقة!! 1. الاكسس لا يُنشأ جداول مؤقته عند استخدام الاستعلام ، 2. نعم ممكن تنشأ جدول من استعلام ، ولكنه مجرد جدول يعتمد كيف تريد تتعامل معاه ، 3. هناك شيء آخر اسمه جداول مؤقته ، والتي تعبئها ببيانات معينة ، سواء عن طريق استعلام او غيره ، وهذه الجداول إما تكون في البرنامج ، او خارجه ، وعملها هو حذف بياناته ثم ادخال بيانات جديده: أ. فإذا كانت داخل برنامجك ، فيجب عليك استعمال الضغط والاصلاح ، لأن الاكسس لما يحذف بيانات جدول ، فهو واقعا لا يحذفها من البرنامج إلا لما تعمل ضغط واصلاح ، ب. واذا كانت خارج برنامجك ، فبكل بساطة تحذف البرنامج الخارجي وينتهي الامر ، وبدون الحاجة الى ضغط واصلاح لبرنامجك 🙂 جعفر

او 'Dim Foldername As String 'Foldername = "\\server\Instructions\" 'Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus 'or Shell "C:\WINDOWS\explorer.exe c:\", vbNormalFocus 'Open Windows Explorer, C partition جعفر

بسم الله عليك اخوي حسين 🙂 في الواقع هذا افضل حل 🙂 اعمل حقل آخر ، غير حقل عرض العمود ، اسمه اسماء الاعمدة مثلا ، واكتب اسماء الاعمدة لكل جدول ( في البداية يكون الحل برمجي بعمل فاصلة بين الاعمدة ، بنفس طريقة عرض الاعمدة) ، وتنفيذها في النموذج يكون بنفس الطريقة كذلك 🙂 إعطاء المستخدم هذه الصلاحية ، تسهل عمل المبرمج ، فيكون على كيفه يرتب الاعمدة ، وبالعرض الذي يريد 🙂 جعفر

اذا تحب ترفق لنا برنامجك ، ممكن احنا نشوفه 🙂 جعفر

وعليكم السلام 🙂 اخي الفاضل Minaemil ، للاستفادة القصوى من المنتدى ، رجاء مراجعة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة قواعد المشاركة فى الموقع 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. .12. . 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية ------------------------------------------- رجاء اخبرني عن اسم مشاركة مناسب ، حتى اقوم بتغيير الاسم الحالي 🙂 جعفر

وعليكم السلام 🙂 اعمل نسخة من البرنامج ، على الاصل ، اعمل ضغط واصلاح ، واذا ما تصلح الوضع ، افتح قاعدة بيانات فارغة ، واستورد جميع كائنات قاعدة بياناتك اليها ، واستعمل البرنامج الجديد 🙂 جعفر

رجاء تتبع تعليماتي في مشاركتي السابقة ، وستحصل على نفس النتيجة مثل اللي في المرفق هذا🙂 ww.pdf