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

السلام عليكم ورحمة الله وبركاته أحبتي أساتذتي الكرام الذين لطالما تعلمت منهم واستأنست بهم.. أحببت مشاركة إخوتي الكرام بمنتدانا الكريم بعمل بسيط أرجو الله تعالى أن ينفع به وأن يكون خالصاً في سبيله .. لقد اطلعت على فيديوهات تتعلق بالتركيز على الـ vba للتخفيف من حجم الملف بالمعادلات ... ولا أدري إن كانت ستحقق هذه الفائدة في الملفات كبيرة الحجم هذه الدالة التي أضفتها تعتمد على (عملية ضرب الكمية بالسعر بشرط )متعلق بعمود مساعد كما هو مبين بالمرفق أدناه. Function QtyUnitPrice(NoPlank As String, Qty As String, UnitPrice As String) 'احتساب الثمن باستخدام دالة ضمنvba If NoPlank <> "" Then NoPlank = NoPlank QtyUnitPrice = Qty * UnitPrice Else QtyUnitPrice = "" End If End Function لكنني أحببت تعريب مسمياتها محبة بلغتي ورجاء أن تدخل عالم البرمجة ذات يوم...كما يلي: Function احتساب_الثمن(دون_فراغ As String, الكمية As String, سعر_الوحدة As String) 'احتساب الثمن باستخدام دالة ضمنvba يتم تعريب التسميات If دون_فراغ <> "" Then دون_فراغ = دون_فراغ احتساب_الثمن = الكمية * سعر_الوحدة Else احتساب_الثمن = "" End If End Function يمكنكم التعديل عليها وإضافة الشروط التي ترغبونها لتوافق ملفاتكم ....أرجو توجيهي في حال وجود أي خطأ فيها كوني مبتدئ بهذا المجال والسلام عليكم ورحمة الله وبركاته. فاتورة مبيع محمد.rar كما أرجو أن تكون هناك جدولة للدوال التي يقوم السادة الأعضاء الكرام بإرفاقها لنستفيد منها أو ليستفيد أبناؤنا الأحبة منها.

وعليكم السلام تفضل هذا الرابط: http://www.vbaexpress.com/kb/getarticle.php?kb_id=468 و نفس الحل ، ولكن بشرح اكثر https://support.microsoft.com/en-us/kb/291295 جعفر

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

والله لك وحشة اخى الغالى محمد ابو البراء بارك الله فيك .. أتمنى من الله ان تكون فى خير حال وصحة وعافية كل عام وحضرتك بألف خير

والله بارك الله فيك على هذا المجهود العظيم واكثر ما اعجبنى فى هذا الامر انك تعتز بلغتك العربية وياريت تشترك فى المجموعات اللى على الفيس بوك المشهورة اللى منها (جروب خبير اكسل -دورات الاكسل بادارة الاستاذ محمود جود الله -اوفيسنا-ملتقى محترفى برمجة الاكسل المتقدم ) وتنشر فى هذة المجموعات باللغة العربية لان فية ناس كتير عايزة تتعلم الاكسل بس واقفة امامهم عقبة اللغة الانجليزية وشكرآ جزيلا على هذا المجهود المشكور

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

ننتظر لاستاذنا رمهان اكيد الحل عنده وهي ان يستخدم count مع الاسم القاعده‌ البيانات لكن لازم هو بيكون موجود لكي بيحل لنا هذا ننتظرك يا استاذنا رمهان

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

جزاك الله كل الخير

حياك الله أخوي صالح واااااااااااااااااااااااااااااااااااااااااااااو جد رهيبه القاعده من 36 ميقا الى 5 وحياك الله أخوي بدر والميزة الموجودة في هذا البرنامج ، هو انك تستطيع ان تجعل البرنامج يشتغل: 1. بأمر من سطح المكتب والبرنامج مغلق ، حيث تعطي الامر من Commandline بفتح الاكسس على الماكرو Execute مباشرة ، او 2. بأمر من اي من برامج الاكسس ، او 3. تستطيع ان تضع وقت معين في Windows Schedule ، بحيث يشغل البرنامج في وقت معين ، تلقائيا ، كل يوم بس اولا يجب تعديل الماكرو Execute في البرنامج اعلاه ، حتى يغلق البرنامج تلقائيا بعد الانتهاء من عمله جعفر

السلام عليكم ورحمة الله وبركاته اخي الحبيب // استاذ اكرامي اديلي فترة متغيب واول ما دخلت ابحث عن شي لقيتك ولقيت موضوعك فسحبني الفضول اسال عن اخبارك وافتكرت ايامك الحلوة ومقدرتش اسيب موضوعك بدون حل ...تقبل تحياتي لعله ما تريد استاذ اكرامي.rar

على العموم ، اذا الله كتب لنا بالأخرى ، بنحتاج لكم شباب تشاركونا في الفرحة

السلام عليكم و رحمة الله تعالى و بركاته: قم بالتعديل على كود الدالة dlookup لتصبح كالتالي: Me.Text17 = DLookup("[Avg]", "QryZvalue2", "[Code]='" & Me.Code1 & "'")

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

اللي جرب الطريقة يوافينا بالنتيجة قبل الإنتقال إلى الخطوة التالية.

السلام عليكم تفضل اخي الكريم الملف بعد التعديل rar.rar

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

شكراً لتفاعلكم البناء.. نفس الفكرة كانت تراودني منذ فترة طويلة، وجربت طرق عديدة لكن لم أتوصل إلى أي نتيجة بسبب التعامل مع الماكرو الذي يعتبره الكمبيوتر على أنه فايروس، وكذلك عدم المقدرة على فتح الملف بأكثر من شخص، لذا لابد من التفكير بطريقة بدائية لتقسيم الملف ومن ثم إعادة تجميعه.. وقد قمنا في هذا المثال من تجميع بيانات من ملفات نصية (txt.*) وقراءتها باستخدام قائمة تجميعية، وكذلك تم توحيد مكان قراءة الملفات النصية حتى يمكن قراءتها لجميع المستخدمين دون أن يؤثر ذلك على مسار الملف المصدر (الإكسيل)، بمعنى أنه لو أنه تم نقل ملف الإكسيل إلى سطح الإكسيل مثلاً فإنه يتم قراءة الملفات النصية من مصدرها في الشبكة دون أن يفقد ارتباطها. وقبل أن ننقل الملفات إلى الشبكة سنجربها أولاً محلياً ، ومن ثم سنخبركم بما هو التغيير الذي يجب أن نفعله عندما ننقلها إلى الشبكة.. إليكم المرفقات، وقبل أن تبدأ انقل ملف الإكسيل مع المجلد إلى نفس المكان وليكن سطح المكتب مثلاً. my_sharing_files.rar أتمنى أن يشتغل معكم الملف كالتالي:

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

تفضل نفس الملف بيان المؤسسة1 تنسيق شرطي قيمة_v001.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف sumif.rar و لا تنسونا من صالح الدعاء تحياتى

شككككككككككككككككرراااااااااااااا

والآن الى الكنز المخزون في صفحة كود الاكسس ، والذي يحتوي على جميع اوامر الاكسس ، و VBA ، و..... افتح صفحة الكود: . إما تضغط على الايقونه الموضحة بالدائرة الحمراء في الصورة اعلاه ، او تضغط على الزر F2 في لوحة المقاتيح ، وستظهر لك هذه الشاشة: . في الشاشة التاليه: 1. اختر اي الاوامر تريد ، VBA او اكسس او ... ، فسترى انواع الاوامر المتوفرة لها في النافذة 2 ، انا اخترت VBA ، 2. ثم اختار نوع الامر الذي تريده ، انا مثلا اردت جميع اوامر التاريخ والوقت ، فسترى جميع اوامر التاريخ والوقت في النافذة 3 ، 3. اختار الامر الذي تريده وانقر عليه ، انا مثلا اخترت الامر DateAdd ، فسترى في الاسفل (4) طريقة كتابة الامر : . وتستطيع كتابة اي امر تريد في خانة البحث (Recordset مثلا) ، وستحصل على جميع الاوامر التابعة له وإخواننا الصعايدة على راسنا جعفر

السلام عليكم اقدم لكم الدرس الثانى شاشة تسجيل قبض نقدى من الشاشة الرئيسية قم باختيار مقبوضات ستظهر لك شاشة المقبوضات اضغط على تسجيل سند قبض نقدى ستظهر لك شاشة تسجيل قبض نقدى قم بالضغط على زر جديد ثم قم بتعبئة تاريخ المستند ويجب ان يكون التاريخ بعام 2014 م قم باختيار الصندوق من القائمة المنسدلة بالخلية D3 ثم قم باختيار نوع الحساب الرئيسى من الخلية B4 من خلال الضغط دبل كليلك بالخلية سيظهر لك فورم بحث قم بكتابة اى حرف من اسم الحساب سيظهر لك الحساب المطلوب وقم بالضغط على ادراج مثلا قم باختيار حساب رئيسى ( العملاء) وبنفس الطريق قم باختيار الحساب الفرعى من الخلية C4 من خلال الضغط دبل كليك بالخلية سيظهر لك فورم بحث قم بكتابة اى حرف من اسم العميل سيظهر لك قائمة بأسماء العملاء قم باختيار العميل المطلوب ثم الضغط على اختيار ثم كتابة المبلغ بالارقام بالخلية B5 ثم كتابة شرح للسند بالخلية B6 ثم بعد الانتهاء من كتابة بيانات السند كامله قم بالضغط على زر حفظ ثم قم بالضغط على طباعه السند او طباعه القيد اذا كنت تريد سند جديد قم بالضغط على زر جديد كما يمكنك استخدام عملية البحث من خلال كتابة رقم القيد الذى تريده بالخلية E2 ثم الضغط على زر البحث فاذا كنت تريد من عملية البحث طباعه القيد فقم بالضغط على زر الطباعه السند او القيد واذا كنت تريد من عملية البحث تعديل القيد قم بتعديل ما تشاء من البيانات ثم قم بالضغط على زر تعديل ارجوا ان اكون وفقت فى الشرح واتمنى لكم التوفيق

بسم الله الرحمن الرحيم منذ ان حملت المرفق و انا افكر في طريقة لشرح الفرق بينهما و ساحاول ان اشرح عسى ان يستفاد منها اولا : الكود يتم وضع الكود في زر امر او عند تحميل نموذج او اغلاقه و يكون الكود خاصا بمعنى ينفذ عند حدث الضغط على زر الامر ( oopen ) مثلا private sub oopen_click docmd.openform"11" end sub نلاحظ في بداية الكود كلمة ( private ) اي خاص و الكود هنا ينفذ فقط عند الضغط على زر ( oopen ) ثانيا : الوحدات النمطية تحتوي الوحدات النمطية على اكواد او وظائف و على عكس ( الكود ) يمكن استدعاء الوحدة النمطية في اي نموذج وهي لا تتحس بالأحداث مثلا Public Sub openform() DoCmd.openform "ff" End Sub نلاحظ وجود كلمة ( public ) اي عمومي يقوم هذا الكود بفتح النموذج ( ff ) و يتم استدعائه بهذا الشكل Private Sub Command0_Click() Call openform End Sub حيث نضع هذا الكود في اي زر موجود ضمن اي نموذج فائدة : لا يجوز تسمية الوحدة النمطية بنفس اسم احد الكودات الموجود داخلها ( مثلا لا يجوز تسمية الوحدة النمطية السابقة باسم openform بل يجب اعطائها اي اسم آخر ) فائدة : لا يمكن ان تكتب في الوحدة النمطية ( oopen_click ) لان الوحدة النمطية لا تتحسس بالأحداث ثالثا : الوحدة النمطية للفئة الوحدة النمطية للفئة تجمع بين الوحدة النمطية و الكود بمعنى آخر الكود التالي ينفذ عند فتح النموذج private sub form_open Set Anim = New clsFormAnimate end sub و عملية فتح النموذج فعليا هي حدث ولكن لا يمكن ان نكتب الكود السابق ضمن وحدة نمطية حتى لو استعملنا كلمة ( public ) لان الوحدة النمطية لا تتحس بالأحداث ( كما ذكرنا سابقا ) انما تخزن كودا عاما يتم تعريفه باسمه و ضمن اسمه نكتب ما نريد ان ينفذ لكن الوحدة النمطية للفئة يمكن ان تتحس بالأحداث و تتعامل معها مثلا يمكن ان تكتب ضمن الوحدة النمطية للفئة Private Sub mForm_Load() MsgBox "hi", vbInformation End Sub الكود السابق يعطي رسالة ( hi ) عند تحميل نموذج و لكن اي نموذج !!!! الجواب هو اي نموذج نرغب به فقط علينا استدعاء الوحدة النمطية للفئة لتنفيذ هذا الكود فائدة : الوحدة النمطية للفئة تستدعى باسمها على عكس الوحدات النمطية كيف يتم استدعاء الوحدة النمطية للفئة ؟؟ 1 - ننشئ وحدة نمطية للفئة و نسميها ( open1 ) نكتب الكود التالي في قسم التصريحات العامة للوحدة النمطية للفئة Public withevents mform As Access.Form حيث يتم تعريف المتغير ( mform ) كنموذج 2 - نكتب هذا الكود في الوحدة النمطية للفئة Private Sub Class_Initialize() mForm_Load Beep End Sub عند تحميل الوحدة النمطية اذهب الى ( mform_load ) 3 - نضيف هذا الكود الى الوحدة النمطية للفئة Private Sub mForm_Load() MsgBox "hi", vbInformation End Sub عند تحميل ( mform ) اظهر رسالة ( hi ) و طبعا ( mform ) تم تعريفه سابقا كنموذج اكسس 4 - نكتب هذا الكود في قسم التصريحات العامة للنموذج الذي نرغب ان يتم استدعاء الوحدة النمطية للفئة فيه و ليكن مثلا ( 123 ) Dim Anim As open1 تم تعريف متغير ( anim ) كوحدة نمطية للفئة 5 - نكتب هذا الكود في حدث تحميل النموذج ( 123 ) Set Anim = New open1 تم ضبط المتغير ليستدعي الوحدة النمطية للفئة فائدة : لايمكن كتابة الكود التالي لاستدعاء الوحدة النمطية للفئة Private Sub Form_Load() Call open1 End Sub الكود المكتوب ضمن الوحدة النمطية للفئة السابقة يقوم باصدار صوت تنبيه و يظهر رسالة مكتوب فيها ( hi ) الكثير يسأل هل يجب ان اكتب كل هذه الجريدة من اجل صوت تنبيه و رسالة ترحيب الجواب هو لا ولكن يتم انشاء الوحدات النمطية للفئة من اجل عدد نماذج اكبر و عمليات كودات اكبر و في النهاية ربما يستطيع المرفق ان يشرح افضل مني وارجو ممن يستطيع ان يشرح افضل مني ان يسهم في شرح الموضوع و اعتذر على الإطالة مثال عن انشاء الوحدات النمطية و الوحدات النمطية للفئة.rar