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

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

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

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

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

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

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

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

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

هههههههههههه ماشى يا استاذ @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

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

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

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

تفضل example.mdb

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

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

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

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

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

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

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

AA.accdb aa.mdb

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

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

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

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

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

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

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

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

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