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

ما تريد بالضبط هل ممكن ترسم لنا او شوف هدول الصورة هل تريد اي واحد منهما تحياتي

اليك هذا الصقه في محرر فيجوال للتقرير Private Sub Report_NoData (Cancel As Integer) MsgBox "There are no records to report", vbExclamation, "No Records" Cancel = True End Sub

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

ماتريد منه نحن بخدمتك بس وضح ماتريد اخي

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

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

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

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

نعم

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

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

والسبب يرجع لخطأ عند ادخال البيانات اي يعني عندك تريقيم تلقائي وتدخل البيانات اليوم مثلا ورحت حتى رقم 12 مثلا وتدخل في حقل تاريخ تاريخ اليوم غدا عند تدخل البيانات لا يجب ان تدخل تاريخ اقدم من تاريخ السابق اي هل يجوز ان يرجع تاريخ الى الوراء

هذا بعض ما توصلت اليه في هذا الموضوع Mon_Equipe 2.rar

غير تلك الجملة بهذا =IIf(IsNull([ID_School]);"";DLookUp("[School]";"[Tp_School]";"[ID_School]=" & [ID_School]))

جزيت خيرا أخي عبد الله هذا الموضوع مهم جدا

في يوم السابع ان شاء الله وما نسيتك عن قريب ان شاء الله راح ارفع لك طلبك تحياتي

شكرا أخي Rebaz Bahram said على اهتمامك ومرورك .. جاري الدراسة والفهم .. والرد لاحقاً اخيك hani

لكي تقدر تعمل التعديل على نموذج الفرعي اليك هذا الكود Me.تابع132.Form.AllowEdits = True واذا تريد ان لا يقدر التعديل عليه غير كلمة ترو في نهاية الجملة ترو الى فالس Me.تابع132.Form.AllowEdits = False تحياتي

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

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

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

حسب فهمي للرسالة احد الحقول الرئيسية ما تدخل البيانات فيه لذا يجب عليك ان تدخل البيانات فيه وعذرا انا ما جربت لاني الان استخدم موبايل غدا ان شاء الله راح اشوفه

كل شي له حل فقط انتظرني

استاذنا الافاضل اذا تسمحون لنا بالمداخلة نريد ان نضيف هذا الكود مع الكود السابق البحث لكي يبحث لنا كل اسماء وليس اسم الاول فقط للتوضيح مثلا عدنا 2 اسماء باسم احمد عند البحث راح يعطيك الاس الاول وبواسطة ازرار اذا تروح الى سجل الاخر مباشرتا راح يعطيك الاسم اللي بعده لكن اذا تستخدم هدول سوى عند تضغط على الزر راح يروح على اسم الثاني اي احمد الثاني Private Sub fsearch_AfterUpdate() If Not IsNull(Me.fsearch) = True Then Me.RecordSource = "SELECT names.id, names.tname FROM [names] WHERE (((names.tname)=[Forms]![names]![fsearch]));" Else Me.RecordSource = "SELECT names.* FROM [names]" End If End Sub Private Sub fsearch_Change() DoCmd.SearchForRecord acDataForm, "names", acFirst, "[tname]='" & Me.fsearch & "'" End Sub بهذا الكود بعد تحديث لكومبوبوكس اي بعد البحث سيكون مصدر النموذج هو تلك السجلات اللي يساوي مع الاسم المختار في كومبوبوكس واذا بيكون الكومبوبوكس فارغة ما بها اي اسم سيختار كل السجلات من جديد db.rar

جرب هذا الماكرو Option Explicit Sub transfer_data() Dim main_Sh As Worksheet Dim m As Integer Set main_Sh = Sheets("Sheet1") With main_Sh .Select .Range("a2:H" & Sheets.Count).ClearContents End With For m = 2 To Sheets.Count With main_Sh Sheets("sheet" & m).Range("f39:f44").Copy .Range("A" & m).PasteSpecial Paste:=xlValues, Transpose:=True .Range("g" & m) = Evaluate("=SUM(B" & m & ",F" & m & ")-SUM(C" & m & ":E" & m & ")") End With Next main_Sh.Range("a1").Select End Sub مرفق مثال كشف رواتب salim.rar

وعليكم السلام جرب هذا لعله يكون هو المطلوب المدرسة.rar

ما اعرف وما افهم منك جيدا هل تريد ارسال التقرير من قاعدة بيانات من الى اي مكان ممكن توضح لنا اكثر

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

بارك الله فيك

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

السلام عليكم بامكانك الان الاحتفاظ بنسخة من الفاتورة عن طريق الاستدعاء في المرفق مثال لذلك ___________________________.rar

1. عفوا، حسبت أنك تود حل برمجي (وعلى كل الاحول لم نخسر شيئا فربما يناسب ذلك الحل بعض الاخوة الاعضاء لإمور مشابهة في معالجة عدم وجود البيانات) 2. الحل بطريقة الماكرو هو كما يلي: أنشىء ماكرو جديد ... وفي أول سطر (إجراء) اختار CancelEvent وفي ثاني سطر (إجراء) اختار OpenReport وحدد اسم التقرير الذي سيتم تنفيذه في حالة عدم وجود بيانات وحدد طريقة العرض في تصميم التقرير اطلب هذا الماكرو في حدث عند عدم وجود بيانات

1. لا يجوز وضع أمر طباعة تقرير في حدث (عند عدم وجود بيانات) أو أي حدث أخر داخل التقرير ولذلك نلجأ إلى خطة برمجية 2. الخطة البرمجية هي من 3 خطوات كما يلي : خطوة 1: نعرف متغير منطقي (Boolean) عام Public في وحدة نمطية ولنسميه NoData Public NoData As Boolean خطوة 2: في حدث (عند عدم وجود بيانات) للتقرير الاول نكتب السطر NoData = True خطوة 3: بعدها في عملية طلب التقرير نستخدم المنطق البرمجي التالي : NoData = False DoCmd.OpenReport "report1", acViewPreview If NoData Then DoCmd.Close acDefault DoCmd.OpenReport "report2", acViewPreview End If