نجوم المشاركات

وعليكم السلام انت تفتح التقرير ، ثم تطبعه ، لماذا !! مافي داعي لهذا ، جرب هذا if nz(me.total,0)<>0 then DoCmd.OpenReport "grama" end if جعفر

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

وعليكم السلام اولا وقبل كل شيء ، يجب عليك تغيير تصميم جدول "المتقدمين" (حاليا تصميمه يناسب الاكسل) ، حتى يكون بطريقة قواعد البيانات الصحيحة ، والذي سيوفر عليك الكثير من الوقت لاحقا ، لذا عملت لك التعديل في الجدول tbl_Training . انت محتاج تعمل استعلام لكل جهة (يعني 3 استعلامات) ، ثم تستعمل الامر Union لتجمع الاستعلامات الثلاث في استعلام واحد ، ولكن المشكلة هي العدد المطلوب ، فلا يمكننا ان نجعل العدد رقم متغير في الاستعلام ، وهو ما يشار الى بـ TOP n (اذا العدد معروف مسبقا ، فالاستعلامات الثلاث سهله ، ثم نعمل استعلام Union يجمعها) ، لذا وجب علينا ان نعمل الاستعلامات في الكود Private Sub cmd_Training_Records_Click() mySQL1 = "SELECT TOP " & Forms!Q1!iSchool & " الوقت, الاسم, الجهة, الدورة" mySQL1 = mySQL1 & " FROM tbl_Training" mySQL1 = mySQL1 & " WHERE الجهة = 'مدرسة' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL1 = mySQL1 & " ORDER BY الوقت" 'Debug.Print mySQL1 mySQL2 = "SELECT TOP " & Forms!Q1!iAdmin & " الوقت, الاسم, الجهة, الدورة" mySQL2 = mySQL2 & " FROM tbl_Training" mySQL2 = mySQL2 & " WHERE الجهة = 'إدارة' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL2 = mySQL2 & " ORDER BY الوقت" 'Debug.Print mySQL2 mySQL3 = "SELECT TOP " & Forms!Q1!iOffice & " الوقت, الاسم, الجهة, الدورة" mySQL3 = mySQL3 & " FROM tbl_Training" mySQL3 = mySQL3 & " WHERE الجهة = 'مكتب' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL3 = mySQL3 & " ORDER BY الوقت" 'Debug.Print mySQL3 mySQL_union = mySQL1 & " union all " & mySQL2 & " union all " & mySQL3 'Debug.Print mySQL_union Me.f1.Form.RecordSource = mySQL_union Me.f1.Form.OrderBy = "الجهة, الوقت" Me.f1.Form.OrderByOn = True End Sub . ويكون الاستعلام الاخير هو مصدر بيانات النموذج الفرعي . جعفر 837.الدورات.accdb.zip

تم التجربة وظهرت الخطأ .... لكن تم التجربة هل هناك خطأ في قاعدة بياناتي اللي اقوم بتحويله كشفت انه فيه الخطأ فقمت بعمل كومبايل للقاعدة وخلصت من الاخطاء وتم التجربة الكود من جديد وبيشتغل 100% اي يعني يجب على استاذ @Amr Ashraf ان يتأكد هل سيتحول القاعدته يدويا ام لا اذا لا ان هناك خطأ في الاكاد ويجب عليه ان يعمل كومبايل للقاعدته لكي يعرف اين الخطأ وبيعمل التعديل وبعدين يجرب من جديد

شكرا على التوضيح الامر OutputTo لا يحتوي على طريقة لعمل التصفية للسجل المطلوب ، فعليه ، اليك الطريقة التي يمكن ان تستعملها لتحقيق هدفك: 1. اعمل نسخة من التقرير 2invoiceh ، ولنسميه 2invoiceh_2 ، 2. اعمل استعلام ، واجعله مصدر بيانات هذا التقرير ، 3. في الاستعلام ، وفي الحقل operation_code ، اكتب هذا المعيار : Forms![invoiceh]!operation_code 4. فيصبح كود التصدير الى pdf هكذا DoCmd.OutputTo acOutputReport, "2invoiceh_2", acFormatPDF, "C:\Temp\myPDF.pdf" . حيث سيتم تصدير الملف myPDF.pdf الى المجلد C:\Temp جعفر

السلام عليكم تفضل هذا هو التعديل الذي تريده Dim sourcedb, targetdb, nametargetdb As String sourcedb = "D:\Conv.accdb" targetdb = "D:\tt2.accde" nametargetdb = "D:\Conv.accde" Dim accessApplication As Access.Application Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With Kill sourcedb Name targetdb As nametargetdb FollowHyperlink nametargetdb

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

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

العفو اخوي وضاح ، بعض الاوقات اضطر اكون خشن ، علشان الامور تسير عدل وابو ياسين على راسي ، ومثل ما شفت في موضوع ابو ياسين ، فقد حذفت مشاركة التأنيب الآن نجي لهذا الموضوع ، فهل لا زلت تريده ، او انه تم حله من الموضوع الآخر؟ جعفر

ربنا يجزيك خيرا استاذ سليم

عملت استعلام تحديث اسمه mr وهو يحدث الكميه في جدول الحركات ويخصم حسب شروط استعلام التحديث والشرط كان رقم الفاتورة يساوي رقم الفاتورة رقم الصنف يساوي رقم الصنف

وعليكم السلام وما صيغة هذا الملف؟ جعفر

أنا استعملت نفس الكود الذي تستخدمه أنت و وضعت ملف بإسم 1 و لم أغير في الكود شيء لكن الظاهر أن مشكلتك في التحويل. هل الكود الذي وضعته في بداية المشاركة يعمل معك جيدا أتمنى من الإخوة @jjafferr و @Shivan Rekany أنهم يجربون المرفق هل يشتغل أم لا

وعليكم السلام يجب ان تستخدم ارقام للشهر والسنه ، عُذرا على هذا السهو ولم تخالف القوانين ، ولكن رجاء قراءتها جعفر

هناك سؤال ... ماذا سيحدث اذا المشتري اخذ نسخة من قاعدة من نوع accdb قبل فتحه اول مرة ؟ من الاحسن انك تعمل تحويل الى accde وبعدين تعطي نسخة من accde للمشتري وتأخذ نسخة من accdb اليك اذا احتاجت للتعديلات عليه تقبل تحياتي

يا أخي أشرف ملفك يشتغل معي بشكل جيد من الممكن أنك لم تضع نفس الاسم للملف مع الاسم الموجود بالكود (1)

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

وعليكم السلام ورحمة الله وبركاته استاذى الفاضل بعد تجربة الكود لا يعمل حيث انه يقوم بحذف القاعدة الاصلية ولا يقوم بتحويلها ثم تظهر رسالة من الفاجيوال بيسك تقل بأن الملف المطلوب غير موجود استفسار اخر هل من الممكن ان تتم العملية من داخل القاعدة المطلوبة وليست عن طريق قاعدة اخرى خارجية بحيث يتم ارسال البرنامج نسخة accdb للعميل وعند فتحها اول مرة تقوم بتحويل نفسها الى accde ثم تحذف النسخة accdb بالطريقة السابقة ؟ جزاكم الله خير استاذى الفاضل Converter.rar

السلام عليكم شكرا لكم جميعاً على هذا المرور الجميل اما بخصوص التعديلات ان شاء الله في هذه الايام تحياتي

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

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

وعليكم السلام تفضل 'رقم operation_code اذا كان الحقل DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]=" & Forms![invoiceh]![operation_code] 'نص operation_code اذا كان الحقل DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]='" & Forms![invoiceh]![operation_code] & "'" جعفر

وعليكم السلام الاستعلام يجب ان يكون هكذا . والتقرير: . جعفر 834.Madin.accdb.zip

السلام عليكم ارجوا ان يكون طلبك تحياتي 5555.rar

وعليكم السلام تفضل جرب المرفق A1.rar

المرفق به فورم يحتوي على عدد 2 ليست بوكس احدهما لجلب اسماء الاوراق الموجودة في ملف الاكسيل يوجد ازرار تمكنك من ترحيل اسماء الاوراق التي تريد طباعتها او حفظها إلى الليست بوكس الاخر ومن ثم الضغط على زر الطباعة او الحفظ يمكنك اكتشاف الامر عمليا حمل المرفق وشاهد Print and Save As pdf Using ListBox in a UserForm.rar

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

الف شكر استاذى الفاضل لائنك اول من حاول مساعدتى وتسلم يدك على المساعدة ولك منى جزيل الشكر