صالح حمادي

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

تفضل التموذجين ثابتين في مكانهما و عند إغلاق نموذج يغلق معه النموذج الآخر شاشة نموذجي القراءة والاقتباس من الكتب2.rar

السلام عليكم لقد قمت بإضافة نموذج frm3 بدلا من frm1 ليس به أكواد برمجية فقط من أجل إيصال الفكرة ثم تستطيع تطبيقها على النموذج الأساسي عند فتح النموذج FoaidAddfBook فإنه بفتح معه النموذجين الآخرين جنبا إلى جنب شاشة نموذجي القراءة والاقتباس من الكتب1.rar

تفضل Photo.rar

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

الفديو رائع لكن كما ذكرت أنت في الفديو لم أجد أداة الدمج لأنني أستخدم 2010 و أيضا لم أجد نوع الخط الذي استعملته أنت

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

السلام عليكم الآن أصبح بالإمكان تصدير الباركود إلى الصورة مع التقرير. salah88.rar

عندما توضع الأكواد يدي مبدع سوف ترى العجب العجاب ما شاء الله عليك أستاذ مجدي أنا أيضا أشتغل على 2010 و هو يعمل هذه الأشياء بشكل ممتاز

موفق إن شاء الله

إن شاء الله على أحر من الجمر

أهلين بك أستاذنا الغالي مجدي يجب تغيير اسم قسم الباور بوانت بإسمك لكثرة إبداعك فيه. - إليك المرفق و به زر أمر عند الضغط عليه يقوم بإنشاء شكل نجمة بدون تعبئة (شفافة) و نستطيع إضافة أي شكل نريد بأي لون نريد و كذلك النصوص و الصور كلها بإستعمال هذه الدالة أو هذا الكود إنشاء شكل.pptm

فكرة ممتازة أستاذ مجدي راح نستفاد منها كثير

السلام عليكم الحمد لله لقد وجدت الحل و هو كما يلي: Dim sh As Shape Set sh = ActivePresentation.Slides(1).Shapes.AddShape(msoShape5pointStar, 50, 50, 600, 400) sh.Fill.Visible = msoFalse السطر الأخير هو المسؤول على إزالة تعبئة لون الشكل

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام في قسم PowerPoint حياكم الله. لقد قمت بإستعمال الأكواد البرمجية لإنشاء أشكال مثل المستطيل أو نجمة أو مثلث ...الخ لكن بقي لدي مشكل و هو عند جعل الشكل بدون تعبئة أو شفاف يظهر خطأ. و هذا هو الكود المستعمل: Dim Sh As PowerPoint.Shape Set Sh = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeIsoscelesTriangle, 15, 15, 200, 200) Sh.Fill.ForeColor.SchemeColor = ppNotSchemeColor الخطأ يظهر في السطر الأخير فقط عند اختيار أي تنسيق أو أي لون ماشي الحال لكن عند إزالة التعبئة يظهر الخطأ شكرا جزيلا مسبقا.

شكرا جزيلا أستاذ جعفر لاحظ المرفق الآتي : - لقد قمت بإضافة جدول للملف و قمت بربط بيانات الجدول بالنموذج و التقرير - عند الضغط على زر التصدير يقوم البرنامج بإخراج بيانات التقرير على شكل صورة بما في ذلك الصور الموجودة أو المستطيلات و العناصر المخفية في التقرير لا يظهرها في الصورة و هذا هو المرفق أتمنى تجربته و موافاتنا بالنتائج. salah88.rar

أستاذ @jjafferr ما ينقصني هنا هو كود معرفة نوع عناصر التقرير لدي هذا الكود يقوم بإستخراج عناصر التقرير و إريد إضافة الدالة التي تقوم بإعطائنا نوع هذا العنصر (textbox ,label, image...) Dim frm As Report Dim fc As Control Dim xname as String For Each fc In frm.Controls xname = fc.Name Next fc

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

جيدا جدا أستاذ جعفر الظاهر أنه الموضوع ليس بجديد عليك نستطيع تصدير جميع بيانات كائنات التقرير بهذه الطريقة و سوف أرفق لك مثال على ذلك

نعم أستاذ جعفر هذا صحيح لقد عدلت على الكود بحيث لا تظهر الشرطة salah88.rar

أهلين أخي العزيز جعفر لا أدري أنا لا تظهر عندي الشرطة و كذلك الأخ athl أستاذ جعفر ما رأيك في هذه الفكرة و هل سوف تساعدني لتطويرها

نعم هذه المسألة بسيطة و نستطيع تجاوزها بسهولة تفضل إطلع على هذا المرفق: salah88.rar

السلام عليكم و رحمة الله تعالى و بركاته: إخوتي الكرام حياكم الله في هذا الصرح الكبير. من المعلوم أن برنامج الأكسس لا يصدر البيانات على شكل صورة إلأ بتدخل برامج خارجية مثل الطابعات الإفتراضية كما تم ذكره من قبل في موضوع الأستاذ @jjafferr و موضوع آخر مع الأستاذ @ابوخليل كما لا يفوتنا أن هذه الطابعات غير مجانية. و بعد إجراء العديد من المحاولات و التجارب توصلت إلى طريقة تمكنني من تصدير بيانات مربعات نص نموذوج أو تقرير على شكل صورة و بشكل جيد. طريقة العمل هي كالتالي: - إنشاء ملف PowerPoint و إضافة له شريحة عمل ثم نقوم بتصدير البيانات المراد نقلها من النموذج أو التقرير إلى هذه الشريحة - ثم نقوم بتصدير هذه الشريحة على شكل صورة. لقد قمت بإنشاء ملف به المطلوب و هو كالتالي: و هذا هو المرفق أتمنى من الإخوة تجربته و موافاتنا بالنتائج من أجل تطويره ليقوم بتصدير تقرير كامل salah88.rar

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

أهلين أخي العزيز جعفر عودة ميمونة إن شاء الله نعم لقد وجدت ذلك. شكرا جزيلا على المساعدة و هذا هو الكود المسؤول عن إنشاء ملف أكسس جديد : mdb_Path_Name = CurrentProject.Path & "\ddd.accdb" Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", "", dbUseJet) If Dir(mdb_Path_Name) <> "" Then Kill mdb_Path_Name Set dbsNew = wrkAcc.CreateDatabase(mdb_Path_Name, dbLangGeneral) dbsNew.Close wrkAcc.Close