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

لا مشكلة استاذ طاهر حتى لو اردت جمع الفكرتين مع اني لا اجد فائده من ذلك يكون الامر في حدث عن عداد الوقت dd = dd + 1 If dd = Val(x) Then Me.TimerInterval = 0: x = 0 وفي زر الامر dd = 1 x = DCount("*", "tbl_item") Me.TimerInterval = x هنا يكون x هو ناتج عدد سجلات الجدول الملف مرفق 145(1).accdb

وعليكم السلام-اجعل المعادلة هكذا =IF(A3="","",IF(OR($A3="Can limon",$A3="meritte"),0%,IF($A3="Rosie",100%,70%))) New Microsoft Excel Worksheet (1).xlsx

السلام عليكم ...جرب المرفق كود للترحيل مع الجمع.xlsm

العنوان عد السجلات وفي الموضوع طلب عداد من 1 الى x في حدث عند عداد الوقت ضع التالي dd = dd + 1 If dd = Val(x) Then Me.TimerInterval = 0: x = 0 في زر الامر ضع التالي dd = 1 Me.TimerInterval = x الملف مرفق 145.accdb

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأخيرا التحميل 😊 تحميل الملف الأصلي : >> حمل من هنا آخر إصدار للأداة << تحميل الملف بلمسات المهندس العزيز @د.كاف يار : د.كاف يار __Domain Functions Builder V1.0.accdb وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊 ‏‏Domain Functions Builder V1.0.accdb

بالاضافة لما تفضل به استاذنا @Moosak ممكن نطلع النتيجة بالمعيار التالي .. لكن السؤال هو استخراج رصيد احد المندوبين وسط الاسبوع .. وهذا لن ينفع Between Date() And DateAdd("d";-5;Date())

عذرا ..الان انتبهت انك تريد تغيير اللون ربما هناك طريقة احترافية ...لكني لا اعلم غير الطريقة التي اتبعتها وهي بوضع جدول للالوان reportsettings.rar

جرب المحاولة المتواضعة reportsettings.rar

تفضل هذه المحاولة أخي @naguib_3778 🙂 استخدمت هذا المعيار : >=(Date()-Weekday(Date();7)+1) And <=Date() ووضيفته أن يحصر لك السجلات بين أول يوم من الأسبوع الحالي ( بدءا من يوم السبت ) والى اليوم الذي نحن فيه من نفس الأسبوع . وإذا كان الأسبوع يبدأ من يوم الأحد تغير الرقم 7 إلى الرقم 1 New Microsoft Access Database.accdb

يمكن ذلك ولكن بانتشاء زر تعديل وليس اضافة كود للترحيل مع الجمع.xlsm

Private Sub Worksheet_Change(ByVal Target As Range) Dim ADR Dim ws: Set ws = Sheets("Sheet2") ADR = Range("e3") If Not Intersect(Target, Range("c3")) Is Nothing Then If Target > 0 Then Sheets("Sheet2").Range(ADR).Offset(1, 1) = Val(Sheets("Sheet2").Range(ADR).Offset(1, 1)) + Target Target = "" End If ElseIf Not Intersect(Target, Range("d3")) Is Nothing Then If Target > 0 Then Sheets("Sheet2").Range(ADR).Offset(1, 2) = Val(Sheets("Sheet2").Range(ADR).Offset(1, 2)) + Target Target = "" End If End If End Sub هذا الكود هو المطلوب بالضبظ لكن اريد ان احفظة كماكرو لكى اربطه بزر الاضافة لان الكود ينفذ بمجرد الخروج من الخلية واريد تنفيذة فقط بالضغط على زر الاضافه لكن فى المجمل اشكر ك بشدة ويكتبة فى ميزان حسناتكم

وجزيت خيرا اخي تفضل ولكن هناك بعض الاشياء يجب شرحها كما شرحت الاخرى مثلا: كرة قدم جاري اي عمود توجد وماهو الشرط كذلك باقي المعطيات الاخرى داتا-1.xlsm

لا اخي الامر ليس كذلك من يملك الحقيقة المطلقه هي افكار ووجهات نظر وكل منا ينظر للامر من زاوية معينه تحياتي

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

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

جرب الادخال في c3 او d3 بالنسبة للترحيل غدا ان شاء الله كود للترحيل مع الجمع.xlsm

خلاص ولله الحمد حليتها بحل اخر خارج الصندوق بتاعي قمت بعمل حقلين اخرين فى فورم الارصده قيمتهم بتساوي تحويل التواريخ الى شهر وسنه للحقلين الاصليين للتواريخ الاستعلام وعملت حدث بعد التحديث If Me.OP1 = 2 Then Me.Con1 = Format([txtdate1], "mm-yyyy") Me.Con2 = Format([txtdate2], "mm-yyyy") Else Me.Con1 = Format(#1/1/1900#, "mm-yyyy") Me.Con2 = Format(#12/31/2500#, "mm-yyyy") End If وعملت له نداء فى كل شئ يخص التاريخ فى الفورم وفى الاستعلام وضعت هذا المعيار >=[Forms]![frmReportBalance]![Con1] And <=[Forms]![frmReportBalance]![Con2] واشتغل تمام ^_^ ايضا بعد هذا يتم اخفاء المربع النص الجديد لان ليس له فائده ان يكون ظاهر ^_^

بارك الله لك وكل عام وانتم بخير وصحة وسعادة تم تغيير الامتداد لتقليل الحجم وإعادة رفع الملف

وعليكم السلا-فقط استخدم هذه المعادلة =COUNTIF($A$2:$A$150,">0") عد الخانات التي تحتوي على ارقام عدا التي تحتوي على صفر و الفراغ1.xlsx

استخدم هذا المعيار تحت التاريخ Between Date() And DateAdd("d";-6;Date()) واعمل تجميع بأسم المندوب و sum للمبيعات مع رفع علامة الصح للتاريخ

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

العفو أخي محمد 🙂 لحذف الملف بعد نقله عدل أكواد الزرين للتالي : Private Sub CopyBtn_Click() 'On Error Resume Next CopyFile Me.PicFile, Me.jjj DleteFile Me.jjj MsgBox "تم النقل بنجاح" End Sub Private Sub FolderCopyBtn_Click() 'On Error Resume Next CopyFolder Me.FolderFrom, Me.FolderTo DleteFolder Me.FolderTo MsgBox "تم النقل بنجاح" End Sub وأضف هاتين الدالتين للموديول FileFoldeCopyMod Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function Public Function DleteFile(FilePath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFile FilePath, True Set fs = Nothing End Function

استاذي @Eng.Qassim فكرتي تركز على اضافة خاصية الاشعار أو التنبيه تظهر عند وجود منتج واحد أو أكثر قريب انتهاء الصلاحية مثل برامج التواصل الاجتماعي التي تنبهك إلى وجود رسائل غير مقروءة أو غيرها.... أما فكرة انشاء تقرير يكون مصدر بياناته استعلام لعرض المنتجات قريب انتهاء الصلاحية فهي موجودة بالفعل في برنامجي. وقد أكملت عملي في اضافة خاصية الاشعار notification والكود الذي يتحكم في ظهور الاشعار كالتالي: ()Private Sub Form_Current If DCount("[Nproduct]", "[Products]", "[ExpirationD]-Date() <30") <> 0 Then notification.Visible = True Else notification.Visible = False End If End Sub وعند النقر على صورة الاشعار في حالة ظهورها يفتح تقرير عرض المنتج قريب انتهاء الصلاحية. والصور المرفقة توضح حالتين لظهور الاشعار وعدم ظهوره في واجهة البرنامج ()Private Sub notification_Click On Error Resume Next DoCmd.OpenReport "ExpP", acViewReport, , , acWindowNormal End Sub

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

تفضل لا يمكن عمل أكثر من هذا .. وبكده يبقى لديك طريقتان لطلب يمكنك الإختيار منهما حتى يتم غلق الموضوع .طريقة للأستاذ محمد صالح وطريقتى هذه قائمة منسدلة1.xlsx

تفضل المشكلة كانت من عندك لأنك محدد فى الكود ظهور ثلاثة أعمدة فقط تـــم تعديل وضبط الفورم كما تريد حلقات المساجد2.xls

وعليكم السلام-يمكنك استخدام هذه المعادلة ..وذلك فى حالة ان وقت الإنصراف أقل من وقت الحضور ,ولكن لابد ان يكون فى نفس اليوم ,,وبعد ذلك لابد من تصحيح وتعديل وقت الإنصراق عند إدخاله بمعنى اذا انصرف الموظف الساعة مثلاً 5 وربع مساءاً فلابد من كتابتها وادخالها هكذا 17:15 وشكراً =IF($D2<$C2,($D2+"12:00")-$C2,$D2-$C2) back1.xlsx

بعد اذن الجميع وهذه فكره اخرى بسيطه كنت وجدتها على النت واضفتها عندي Bar.accdb

من أروع ما قرأت في موضوع رضا الناس هذه القصيدة التي لم أقف على صاحبها ولا حتى عنوانها ضحكتُ فقالوا ألا تحتشـم؟ ........ بكيت فقالوا ألا تبتسم؟ بسمت فقالوا يرائـــــــــي ........ عبست فقالوا بدا ما كتم صمتّ فقالوا كليل اللسان ........ نطقت فقالوا كثير الكلم حلمت فقالوا صنيع الجبان ........ ولو كان مقتدرا لانتقم بسلت فقالوا لطيشٍ بــــه ........ وما كان مجترئا لو حكم يقولون شـــذٌ إذا قلـــت لا ........ وإمّعةٌ حين وافقتـــــهم فأيقنتُ أني مهــــــما أُرِدْ ....... رضا الناس لابد من أن أُذَم طبعا هذا يخص الناس الذين ليس لهم همٌ سوى تتبع أخطاء الناس وإظهار أخطائهم حتى وإن لم يخطئوا أما باقي المعتدلين من الناس فيستسحنون الفعل الحسن ويستقبحون الفعل القبيح

وفقنا الله جميعا لكل ما يحبه ويرضاه @ابا جودى

وعليكم السلام ورحمة الله وبركاته شخصيا استخدم هذا الكود Public Function AutoCompact() ' ضغط واصلاح If FileLen(CurrentDb.Name) > 30000000 Then ' اذا كان حجم الملف 30 ميجا تقريبا Application.SetOption "Auto compact", True ' سيقوم البرنامج بعمل ضغط واصلاح تلقائي عند اغلاق البرنامج Application.SetOption "Show Status Bar", True vStatusBar = SysCmd(acSysCmdSetStatus, "يحتاج التطبيق لإعادة تشغيل") Else Application.SetOption "Auto compact", False 'والا فلا تقم بعمل ضغط واصلاح Application.SetOption "Show Status Bar", False End If End Function وفي النموذج الرئيسي استدعيه هكدا Call AutoCompact تحياتي

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

جرب هذا ترحيل_لسجل__كود_الفواتير_وسجل_سداد19-6-39.xls

السلام عليكم ..مرحبا بكى فى منتدانا الكريم ...ممكن تجربى هذا أستاذ البنوك.xlsx وهذا أيضا شيتات مجمعة لتعاملات البنوك -ونظراً لكبر حجم الملف فانه مرفوع على موقع خارجى : http://www.mediafire.com/file/c3ma5lofslorxr9/البنك.rar

وعليكم السلام ...هل هذا الملف الذى تريده الوارد_اولا_صادر_اولا_&الوارد_اولا_صادر_اخيرا.xls

مرحبا بك أخى العزيز فارس أنا لدى ملف به كود لوضع الصور كصور الموظفين ويمكنه أيضا وضع الشهادات واذا أردت الطباعة يقوم بطبعها بالتأكيد وهو يعمل كالأتى : بمجرد ادخال الصورة التى تريدها فى هذا الولدر المخصص للصور فى الملف المرسل اليك واعطائها رقما مثلا وعندما تذهب إلى شيت الإكسيل وتكتب هذا الرقم فى الخلية المخصصة لذلك وهى فى العمود A فأنه سوف يحضر الصورة لك هل أعتقد هذا يفيدك اظهار صورة الموظف في الخلايا بناء علي رقمه.rar

أعتذر أخى على التأخر تفضل لك ماتريد تجربة 1.xls

جرب أخى هذا تجربة 1.xls

تفضل هذا الكود من أعمال أستاذنا الغالى ومعلمنا الكبير الأستاذ ياسر خليل جلب بيانات بين تاريخين.xls

تفضل أخى محمد لك ما تريد وأعتذر عن التأخر لكثرة انشغالى جلب بيانات بين تاريخين.xls

تفضل جرب هذا بالمعادلات TEXT.xlsx

ممكن تجرب هذان نموذجان للفاتورة لأساتذم كبار تصميم فاتورة11.xlsm فاااااااتورة خبورية 2.xls

شكرا لمروركم الكريم أحبابي في الله كل عام وانتم بخير وسعادة ورضا

آمين يا رب العالمين

بارك الله لك أخي يحياوي واسمح لي بهذا التوضيح هذه الدوال يمكن التعامل معها في vb و vba و vb.net الصورة العامة للتعامل مع الإعدادات من خلال الريجيستري لحفظ الإعدادات في الريجيستري SaveSetting( ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String) وهي بالترتيب كالتالي : اسم التطبيق ثم اسم القسم ثم اسم المفتاح ثم قيمة المفتاح (وجميعها مطلوب) وللقراءة من الريجيستري GetSetting( ByVal AppName As String, ByVal Section As String, ByVal Key As String) وترجع لنا قيمة من نوع النصي string ونلاحظ أنه يمكننا الاستغناء عن قيمة المفتاح لأنها اختيارية ولحذف إعداد من الريجيستري لحذف التطبيق ككل DeleteSetting(ByVal AppName As String) ولحذف القسم المحدد فقط DeleteSetting(ByVal AppName As String, ByVal Section As String) ......... والحمد لله أولا وآخرا

بارك الله لك أخي يحياوي كود رائع وخفيف وبسيط

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

ما شاء الله بارك الله لك أخي عبد الله جمعتك مباركة إن شاء الله

يمكنك استعمال هذه الموقع مجاناً http://www.pdftoexcelonline.com/ ويوجد به برنامج بروفيشنال يمكن شراؤه وفي الأخير إذا كان مكتوب فيه كلمات عربية ستظهر بطريقة غير سليمة أما الأرقام والكلمات الإنجليزية تظهر مضبوطة (حتى مع أفضل نسخة من البرنامج) لأنه حتى الآن لم يتم حل مشكلة اللغة العربية في pdf

أخي الكريم إذا كنت تستعمل أوفيس 2003 وما قبله format---->sheet----->background تنسيق---->ورقة------->خلفية وإذا كنت تستعمل أوفيس 2007 وما بعده تبويب page layout ثم background تبويب تخطيط الصفحة ثم خلفية