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

وزيادة الخير خيرين ومشاركة مع احبابى واساتذتى الكرام دى فكرة كمان CloseAllOpenForms.accdb

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

السلام عليكم مرة ثانية اليوم سأقدم لكم فكرة بسيطة و أرجو أن تكون فكرتي جيدة بعض الأساتذة في التربية البدنية أرادو أن يستعملو الكرونوا في اكسل و أرجو أن تكةن فكرتي قد وصلت وفي الأخير الدعاء لي فقط . أخوكم في الله المبرمج : مناد سفيان Excel_chronometer_stopwatch.rar

اتفضل المثال يعمل بصوتين مختلفين الاول من الملف المرفق لو موجود فى نفس المجلد بنفس مسار القاعدة وفى حالة عدم وجوده يستخدم صوت من اصوت النظام ...حلوة الفكرة دى play sound.rar للتأكد من عمل المرفق بصوتين للانذار مختلفين رجاء بعد التجربة حذف المجلد schoolbell او تغيير اسمه واعادة المحاولة مرة اخرى لتجد ان صوت التنبيه قد تغير كل الشكر والتقدير والعرفان للاستاذ المبجل @أبو آدم صاحب فكرة تنسيق صندوق الرسائل

نعم وهذا هو شغل جهاز الباركود بيدخل الرقم وبيروح الى التالي اتفضل اليك هذا سيخرج من الحقل ويدخل الى حقل الكمية وبعدين سيدخل من جديد الى حقل رقم الصنف في جزء من الثانية اليك الكود SetFocus Private Sub ProdNoAccTab_AfterUpdate() [Price] = [SalPrice] Me.QtyOut.SetFocus Me.ProdNoAccTab.SetFocus End Sub الفواتير.rar

اخي الكريم ابو زاهر لعمل ما تريد قم باضافة الكود التالي الى وحدة نمطية جديدة وسميها runsound مثلاً Option Explicit Option Compare Database Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Dim r As Long Public Function Mysound() On Error Resume Next r = sndplaysound(Application.CodeProject.Path & "\schoolbell.wav", &H1) ' اذا كان مسار الملف الصوتي خارج مجلد الصوتيات 'r = sndplaysound(Application.CodeProject.Path & "\wavs\" & "schoolbell.wav", &H2) End Function ثم قم بوضع الكود التالي مكان الكود الذي اشرت إليه في السؤال If DCount("[Rajmsanf]", "Alsnaf", "[Rajmsanf]=[forms]![اضافه صنف]![Rajmsanf]") >= 1 Then MsgBox " هذا الاسم موجود باسم " & DLookup("[Sanf]", "Alsnaf", "[Rajmsanf] = Forms![اضافه صنف]![Rajmsanf]") DoCmd.CancelEvent Mysound Me.Undo End If وهذا ملف صوت جرس ضعه بجوار قاعدة البيانات لكي يتم استدعائه كما اشار الى ذلك الاستاذ ابو خليل أما اذا اردت اصدار صوت فقط عند ظهور الرسالة يعني صوت من الاكسس فقط فاترك ماسبق من اكواد وضع الكود التالي Beep قبل Me.undo تحياتي schoolbell.zip

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

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

من المفروض هذا يقبل من أي ملف و قد جربت ذلك

اشكرك جزيل الشكر استاذي ابا جودي بارك الله فيك .. بالنسبة للملف الاول فللأسف لايفتح على اكسس 2007 ولا اعرف لماذا لا يفتح مع انك تحفظه بصيغة 2007؟؟ موضوع يحتاج الى تأمل اما الملف الاخر فالحمد لله يعمل تحياتي

بعد اذن الاخ sandanet هذة Dlookup exc: DLookUp("exc";"exception";"name='" & [EXECUTER] & "'")

وايه رايك يكون الكود كده يا استاذ @sandanet If (Me.smdebit - Me.smcredit) <> 0 Then MsgBox "not ok", , "wrong" Cancel = True Exit Sub Else End If example.mdb

تفضل example.mdb

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

أرفق لكم العديد من نماذج الفحص والإستلام Inspection Requests والتي تستخدم في عملية الفحص المرحلي للأنشطة أثناء تنفيذ المشروعات. وتشمل هذه النماذج مختلف أنشطة المشروع (الإنشائيه – التشطيبات – تنسيق الموقع – الكهرباء – الأعمال الصحيه) وجميع هذه النماذج تحتوي على نقاط محدده Check points والتي لابد من فحصها أثناء الفحص المرحلي للنشاط. كما أن النماذج بها 3 فرص للفحص والإستلام بدلاً من إعادة تقديم نموذج طلب الفحص في كل مرة يتم فيها رفض الفحص الأول. أدعو الله أن ينفعكم بها. attachment.pdf

السلام عليكم ورحمة الله وبركاته هذا الملف جميل جدا و يناسب كل من يريد استخراج شهادة الأجر بدون الذهاب المقتصد وهي تسهل أيضا عليك عملية ملئ قواعد البيانات أي استفسار فأنا تحت الخدمة مع فائق الاحترام و التقدير . و أعتذر عن التأخير معكم أخوكم في الله المبرمج : مناد سفيان الجزائر. معا لنبني مستقبل أفضل فكن معنا معكم كل الاستفسارات في منتدانا العظيم فشاركنا معلوماتك ولا تبخل علينا. 2018............. Fiche de Paie + ATS.rar

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

بارك الله فيك وفي علمك وعملك رحم الله والديك وأصلح لك الذرية الله لا يحرمنا منك ولا يحرمك الأجر تقبل فائق تقديري واحترامي

السلام عليكم فيما يلى بالمرفقات جدولين مرتبطين أحدهما للمحافظة وكود المحافظة القومى tbl_Town ، والآخر للإدارات التعليمية التابعة لتلك المحافظة tbl_Kind مطلوب تكرماً من كل زميل مراجعة تلك الإدارات بمحافظته بالتصويب أو الإضافة أو الحذف لتصحيح تلك المعلومات لأنه تم جمع أسماء تلك الإدارات ( 255 إدارة ) من مصادر مختلفة .. التى قد تكون صحيحة أو خطأ تحياتى وشكرى لكم مقدماً db.rar

تمام بالقياس لما ذكرته أنت ، يبدو أن إدارات محافظة الشرقية تعانى من النقص الشديد فى قاعدة بياناتى !!!

استاذي الكريم هل تقصد انك تريد مثلا عندك فاتوره بيع بكذا صنف ولكل صنف بسعره تريد تعمل منها مرتجع اي لا يظهر لك من فاتوره اخري اصناف مثلا

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

اخي الفاضل كل الطرق تعطيك نفس النتيجه With Application.Forms For i = .Count - 1 To 0 Step -1 With .Item(i) If .Name <> "الشاشة الرئيسية" Then DoCmd.Close acForm, .Name End If End With Next i End With

مرحبتين فيك في اي وقت

تفضل example.mdb

اخي ارفع مثال انا استخدمه شغال معي 100%

اتقضل نقس المثال الخاص بالموضوع بعد التعديل AA_2.accdb checked OFF this option "Allow Layout View" don

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

ياشيخ الله يسعدك دنيا وآخره

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

في هذه الحالة تستطيع تغيير حجم التقرير حسب الطابعة التي لديك

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

اخي الكريم من المستحسن دائماً ان يكون لكل مستخدم نسخة من البرنامج على جهازه بدون جداول (فقط الاستعلامات والنماذج والتقارير والوحدات النمطية) وهنا يجب عليك ان تصمم البرنامج على ان يتم الربط مع جداول البرنامج الرئيسي مباشرة عند فتح نموذج البداية وبالتالي فإن كل مستخدم سيكون لديه جداول البرنامج الاصلي واي ادراج بيانات من المستخدم سوف تصب في جداول البرنامج الاصلي بنما البرنامج الاصلي تستطيع العمل عليه وتطوير نماذجه واستعلاماته وغيرها مادام ان ذلك التطوير لايمس الجداول الموجودة فيه تحياتي

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

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

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

AA.accdb aa.mdb

جزاك الله كل خير رحم الله والديك وأصلح لك الذرية بارك الله في علمك وعملك تقبل فائق تقديري واحترامي .

السلام عليكم و رحنة الله وبركاته اللآن في نفس الورقة AZ_مقاول1.xls

هل احتجت أن تستبدل أكثر من نص (حرف أو كلمة) بمجموعة أخرى من النصوص (حروف أو كلمات) ومللت من تكرار دالة substitute بعدد مرات الاستبدال في المعادلة؟؟؟!!! إليك الحل بطريقتين مختصرتين دالة معرفة UDF وإجراء SUB زكاة العلم نشره فشارك غيرك ما تعلمه يزدد علمك لو بخل بها غيرك ما وصلت إليك #a1mas #ostazmas بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays فتابعونا. mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays ورد إلينا هذا السؤال في صفحتنا على فيس بوك وكانت الإجابة سريعة ولكن غير مختصرة فقررت تصميم دالة معرفة تقوم بالمطلوب وهو استبدال مجموعة من النصوص بمجموعة أخرى من النصوص في مرة واحدة ولكن ما هو الكود الذي سنحتاجه لعمل هذه الدالة mas_substitute ؟ تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: طريقة إنشاء دالة معرفة user defined function في إكسل طريقة إنشاء إنشاء إجراء sub في إكسل كيفية التعامل مع كل خلية في النطاق بالكود vba كيفية التعامل مع كل عناصر المصفوفة array elements إجراء أكثر من عملية استبدال بضغطة زر واحدة والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح هنــــــــا للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور mas_substitute.rar

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

نعتذر انا فقط اهتمت عن جملة التحديث اتفضل يجب ان تغير في هذا السطر ايضا If DCount("[ProdNoAccTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoAccTab]=" & Me.ProdNoAccTab ) > 0 Then يجب ان يكون هكذا If DCount("[ProdNoActTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoActTab]='" & Me.ProdNoAccTab & "'") > 0 Then اليك المرفق الفواتير.rar

السلام عليكم ورحمة الله وبركاته اخي الحبيب عملك مضبوط لكن فيها خطأ واحد في حرف واحد اذا تغيره سيكون كل شيء على ما يرام شوف هذه الجملة sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" القي نظرتا الى الشرط فيه الشرط الاول تمام ما فيه المشكلة WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) والشرط الثاني AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" فقط غير حرف سي الاخير من هذه الكلمة ProdNoAccTab الى حرف تي ProdNoActTab القي نظرتا الى الكود الصحيح sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoActTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" اليك ملفك بعد تغيير حرف واحد الفواتير.rar

بارك الله فيك استاذنا الكريم كم انت طيب القلب @صالح حمادي ان شاء الله يجد فيه غايته

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

إن شاء الله يوم الجمعة سوف أرفقه

عن قريب أخي زياد لدي ملف بسيط وليس برنامج

شكرا اخي الكريم

هذه الدالة تعمل مع مجلد واحد فقط يتم تحديده في كود الدالة تحياتي