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

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

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

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

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

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

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

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

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

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

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

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

AA.accdb aa.mdb

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

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

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

نعتذر انا فقط اهتمت عن جملة التحديث اتفضل يجب ان تغير في هذا السطر ايضا 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

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

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

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

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

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

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

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

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

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