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

وزيادة الخير خيرين ومشاركة مع احبابى واساتذتى الكرام دى فكرة كمان 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

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

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

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

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

أشكرك أخى ابو الآء يبدو أن الملف قديم فعلاً ، لأنه لا يوجد الآن محافظتى حلوان وأكتوبر عموماً سوف أستفيد منه ، ومن لديه تعليق نتمنى مشاركتنا إياه

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

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

اخي الفاضل كل الطرق تعطيك نفس النتيجه 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

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

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

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

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

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

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

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

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

اخى الحبيب الاستاذ الفاضل @sandanet تصادفنى هذه المشكلة فى العمل دائما بعض الملفات ذات الامتداد accdb لا تعمل على access 2007 والى الان لا ادرى ما السبب الرسالة التى تظهر تقريبا لو لم تخوننى ذاكرتى Unrecognized Database Format ولكن صراحة لضيق الوقت لم ابحث عن الحل ولكن اعتقد ان القاعدة الاصلية تم انشاؤها بأكسس 2010 او 2013 وتعمل جيدا على اى منهما وتظهر المشكلة فقط مع 2007 ولكن سأبحث وان توصلت الى حل سأخبرك ان شاء الله فى القريب العاجل

الله يجزيه خير بميزان حسناته

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان الجزائر اليوم سأرفق ملف للمبتدئين في اكسل ويوزر فورم و أتمنى أن ينال اعجابكم حتى أختصر عليكم الكلام لأن الملف لايحتاج الى الشرح شكرا. sort_combobox_alphabetic.rar

لم أفهم ماهو المقصود هل تود أن تطوره الى يوزر فورم أخي hadji27

هل احتجت أن تستبدل أكثر من نص (حرف أو كلمة) بمجموعة أخرى من النصوص (حروف أو كلمات) ومللت من تكرار دالة 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

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

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

السلام عليكم و رحمة الله وبركاته اخي الفاضل هذه فكرة للحل افتح الملف اضغط على زر تحديد مجلد الحفظ من شاشة الحوار اختار المجلد الذي به كل البيانات ثم موافق سوف يتم وضع مسار المجلد في الخلية C1 ثم يكون هو مربوط مع الدالة للربط الشعبي مع الملف يمكنك تغيير المسار في اي وقت باستخدام هذا الزر ملاحظة تم اعتماد فكرة ان المجلد هو رقم الملف فقط بدون اسم انجليزي او عربي تحياتي Staff.rar للاستعلام 0505306102

السلام عليكم بعد إذنك أخي ابو ياسين تعديل بسيط على الكود الذي استعملته: With Application.Forms For i = .Count - 1 To 0 Step -1 With .Item(i) If .NAME <> "nam" Then DoCmd.Close acForm, .NAME End If End With Next i End With

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

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

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