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

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

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

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

تحية مني لخبراء هذا الصرح العظيم أنا أستخدم في عملي برنامج الفواتير والمخزون الشامل للأستاذ عمرو السيد وهو عمل عظيم لرجل عظيم ومجاني أيضا وأنا أحب أن أعمل عليه سنة بسنة وأحاول أن أصفر قاعدة البيانات وأبقي فقط على الأصناف والعملاء والموردون ولكن لا أستطيع مما يضطرني لإعادة كتابة كل ذلك مرة أخري . حاولت التواصل مع الأستاذ عمرو ورد علي بالفعل ووعدني خيرا ولكن يبدو أن وقته لايسمح اشتريت برنامج آخر ولكنه لم يعجبني لإعجابي ببرنامج الأستاذ عمرو وسهولة العمل عليه . وإليكم البرنامج وكل ما أطلبه تصفير البرنامج مع ترك أسماء الأصناف وأسماء العملاء وأسماء الموردين جزاكم الله خيرا وكل عام وأنتم بخير . رابط البرنامج http://www.mediafire.com/file/t673ifq4692hef6/بسمة+من+يوم+3-4-2016Backup+06-11-2016%2C02.57.08+مBackup+06-11-2016%2C03.16.49+م.xlsb

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

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

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

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

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

شكرا لاخينا اوس على المساعدة والتوضيح تم تعديل العنوان وهذه قاعدة البيانات تم اظهار كائناتها بعد الغاء حماية الشفت قاعدة العاملين للمدارس2.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم و رحنة الله وبركاته اللآن في نفس الورقة 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

السلام عليكم ورحمة الله وبركاته اليوم سأقدم لكم ملف بسيط ومفيد وهي قراءة ملف اكسل و ارجوا أن ينال اعجباكم وشكرا أحوكم في الله المبرمج : مناد سفيان الجزائر. اكسل يتكلم.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

الهدف من هذا الدرس هو توفير مقدمة سهلة متكاملة ودقيقة للغة PHP، الدرس يبدأ من الصفر لكنه يتطلب منك أن يكون لديك معرفة جيدة بلغة HTML، إن كنت لا تعرف HTML فعليك أن تبدأ بدرس HTML. PHP يمكن استخدامها في الكثير من الحالات، لإنشاء المنتديات، الاستفتاءات، المتاجر، بوابات للرسائل النصية القصيرة، قوائم بريدية وغير ذلك، الحد الوحيد لما يمكنك فعله في PHP هو خيالك، PHP ليست صعبة لكن تذكر أنها أكثر تطوراً وتطلباً من HTML لذلك الصبر عند تعلمها ضروري.. هذا الدرس لا يمكنه تعليمك كل شيء، لذلك المطلوب منك أن تشارك وتجرب بنفسك، إن احتجت لمساعدة فننصحك بزيارة المنتديات للحصول على دعم، في المنتديات ستلتقي بخبراء يمكنهم مساعدتك بالتلميحات والمقترحات والنصائح. ما المطلوب؟ نفترض أنك تملك محرراً نصياً وتعرف كيف تستخدمه. بعد ذلك أنت بحاجة لحاسوب أو مزود يمكنه تشغيل PHP، على النقيض من HTML وCSS لغة البرمجة PHP لا تتأثر بأي متصفح يستخدمه زوار موقعك بل بنوع المزود الذي يستضيف موقعك، لأن PHP هي تقنية من جهة المزود. في الدروس القليلة القادمة ستتعلم كيف تعمل PHP وكيف تعد حاسوبك لتشغيلها، بعد ذلك ستتعلم وظائفها وطرقها. عندما تنتهي من هذا الدرس، ستتمكن من البرمجة باستخدام PHP وبالتالي ستحصل على إمكانيات غير محدودة لإضافة التفاعل في صفحات موقعك.

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

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

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