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

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

تغيير اسم الصفحة الاولى الى Main لسهولة نسخ الكود ولصقه الكود Option Explicit Sub Salim_code() Application.ScreenUpdating = False Dim Filt_Rg As Range Dim M As Worksheet Dim Sh As Worksheet Dim i% Set M = Sheets("Main") Set Filt_Rg = M.Range("B3").CurrentRegion If M.AutoFilterMode Then Filt_Rg.AutoFilter End If i = 4 Do Until M.Range("k" & i) = vbNullString If Not Application.Evaluate("ISREF('" & M.Range("k" & i) & "'!A1)") Then Sheets.Add(, M).Name = M.Range("k" & i) End If i = i + 1 Loop For Each Sh In Sheets If Sh.Name <> M.Name Then Sh.Range("B3").CurrentRegion.Clear Filt_Rg.AutoFilter 10, Sh.Name Filt_Rg.SpecialCells(12).Copy Sh.Range("B3") Sh.Range("B3").CurrentRegion.Columns.AutoFit End If Next M.Select If M.AutoFilterMode Then Filt_Rg.AutoFilter End If Application.ScreenUpdating = True End Sub الملف مرفق Sandouk_2020.xlsm

أجذر من كذبة نيسان البيضاء في هذا الملف Poisson D'April.xlsm

ابو عبد الرحمن العراقي فين الضغط على الإعجاب ؟!!💙 من فضلك اعطاء صاحب الفضل حقه وهذا أقل بكثير من المفروض ان يقدم له

Nz(DSum("[am_re]";"pu_inv";"[da_te]=" & DateFormat(Date()) & "and[ty_pu]='بيع'");0) DateFormat(Date()) عند كتابة معيار لتاريخ قد لا نحصل على النتيجة الصحيحة بسبب طريقة كتابة التاريخ او الصيغة المستخدمة للتاريخ في نظام التشغيل لذا نستخدمة في التعبير او الكود ليسهل علينا الوصول للنتيجة الصحيحة انظر لهذا الموضوع

احسنت استاذنا @jjafferr انا في السابق قبل انزال المديول كنت استخدم التعبير التالي Format([da_te];"\#mm\/dd\/yyyy\#") ولكن المديول سهل الامر بشكل كبير في جميع الاحول الدال على الخير كفاعله

في الواقع انا اترك في الكود المصدر صاحب الكود : 'Author: Allen Browne. allen@allenbrowne.com, June 2006. وتم انزاله من http://allenbrowne.com/ser-36.html#Format جعفر

دائما توجد حلول اخي احمد الحقيقة انا اختصرت الموضوع وقدمت حل سريع بطريقتين اما بشأن تنسيق التاريخ الى وقت ومن ثم استخدامة في المعيار في الرابط الذي اشرتم اليه كان الحل باستخدام التالي CDate(Format([da_te];"mm/dd/yyyy")) مع ملاحظة دالتي CDate و Format لا تستخدم في الجدول وانما في الاستعلام او النموذج او في الاكواد بالنسبة للحل المقدم من الاستاذ @Hawiii اعجبني ويعمل بشكل ممتاز مع تمنياتي له بالتوفيق ولك يا ابا بسملة كل الود والتقدبر

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

جزاك الله خيرا اخى واستاذى خالد بالامس غلبنى حقل التاريخ ثم تفحصت الحقل الى ان وجدت تنسيق now ثم بحثت ووجدت رابط ولكن كنت هنجت واضعه للاستفاده وسوف احاول تطبيقه ايضا https://theaccessbuddy.wordpress.com/2014/01/02/dsum-function-the-art-of-writing-a-criteria-3/ جزاك الله خيرا اخى @Hawiii جميل وشغال تمام بارك الله فيكم اخوانى

لا مشكلة مع الكود فقط هو اختلاف في نوع الفاصلة للنظام ، بدل الفولصل إلى منقوطة. من ، إلى ؛

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

أحسنت أستاذ سليم حيلة رائعة باستخدام مسح التنسيقات عن الخلايا المطلوبة مع الإبقاء على الأرقام غير ظاهرة إلا بشريط الصيغة بالتنسيق المخصص ;;; ثم إعادتها بالكود التالي... رائع

وعليكم السلام 🙂 القيم لا تصل الى الوحدة النمطية من الاستعلام ، بسبب انها NULL !! فالطريقة هي مثل ما قالها اخوي ابو آمنه ، او . جعفر 02.accdb

ممكن تجرب هذه الكود: =Nz(DSum("am_re","Pu_inv","ty_pu='بيع' And CLng(Fix(Da_te))=" & CLng(Fix([Da_te]))),0)

مرحبا طيب ممكن نعملها بطريقتين الطريقة الاولى الاجمالي حسب تاريخ الفاتورة لما نكون نستعرض اي فاتورة مثلا يوم 5 يعطينا اجمالي فواتير يوم 5 ولما ننتقل ليوم 6 يعطي اجمالي فواتير 6 وهكذا لكل يوم الطريقة الثانية يعطينا اجمالي فواتير اليوم فقط يعني لو استعرضنا الفواتير السابق يبقى الحقل يعطي اجمالي اليوم فقط قبل كل شي نحتاج نعدل حقل Da_te في الجدول والنموذج لتكون القيمة date() بدلا من now() للطريقة الاولى الاجمالي حسب تاريخ الفاتورة Nz(DSum("[am_re]";"pu_inv";"[da_te]=" & Format([da_te];"\#mm\/dd\/yyyy\#") & "and[ty_pu]='بيع'");0) الطريقة الثانية اجمالي مبيعات اليوم الحالي فقط Nz(DSum("[am_re]";"pu_inv";"[da_te]=" & DateFormat(Date()) & "and[ty_pu]='بيع'");0) الملف مرفق 11.accdb

أبسط طريقة لذلك هو تغيير خاصية الفورم RightToLeft وجعلها True بدلا من False كما بالصورة

السلام عليكم 🙂 برامج الاكسس ممكن ان يصيبها العطب corruption لعدة اسباب ، وبرامج تصليح العطب يجب ان تكون من ضمن مكتبة برامج المبرمج 🙂 يُعتبر برنامج DataNumen Access Repair من احد البرامج المهمة في اصلاح ملفات الاكسس المعطوبة ، والآن الشركة تعطي النسخة الاحدث 2.9 للإستعمال الشخصي الغير تجاري ، مجانا ، من موقعهم : https://www.datanumen.com/access-repair/ انزلته وجربته ، بس لاحظت ان البرنامج بطيء بالمقارنة مع بعض البرنامج الاخرى ، ولكن لا تنسى أنها نسخة مجانية (للإستعمال الشخصي الغير تجاري) 🙂 جعفر رجاء استعمل رابط الشركة حتى تنزل آخر نسخة هناك ، بينما ارفق هنا النسخة 3 (احتياطا ، اذا غيرت الشركة رأيها لاحقا والغت النسخة المجانية ، فتكون عندنا هنا النسخة المجانية 🙂 ) daccr.zip

السلام عليكم و رحمة الله تعالى و بركاته بعد أن أنهينا الشطر الأول الخاص بالتعامل مع الويب من الأكسس بإستخدام أداة WebBrowser و هذا رابط الموضوع: نبدأ الآن بحول الله تعالى في الشطر الثاني و هو التعامل مع صفحات الويب بدون إستخدام أداة WebBrowser سوف نستخدم في هذا الموضوع طريقتين الأولى التعامل المباشر مع المتصفح Internet Explorer و الثانية بإستخدام سرفر معين الجزء الأول: التعامل المباشر مع المتصفح Internet Explorer في هذا الجزء إن شاء الله سوف نقوم بفتح نسخة من المتصفح Internet Explorer و نرسل لها بيانات أو نستقبل منها. سوف نستخدم مثال الأخ @ابوآمنة للتطبيق عليه بإرسال بيانات لنموذج غوغل من خلال متصفح خارجي: هذا هو الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL oBrowser.Quit MsgBox "لقد تم إرسال البيانات بنجاح" Me.n1 = "" Me.n2 = "" Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If شرح الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String هنا قمنا بتعريف المتغيرات التي نحتاجها sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" هذا رابط الموقع Set oBrowser = New InternetExplorer إسناد نسخة من جديدة من Internet Explorer للمتغير oBrowser oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False السطر الأول هو إيقاف ظهور رسائل الأخطاء من المتصفح السطر الثاني تصفح الرابط sURL السطر الثالث التحكم في إظهاء أو إخفاء المتصفح أثناء العمل عليه Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE الإنتظار إلى حين تحميل الصفحة HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 إرسال قيم للمربع الأول و الثاني HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click الضغط على زر إرسال Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL إجراء حلقة دورانية لا يخرج منها إلا عند تغير رابط الصفحة و ذلك عند الضغط على زر الإرسال oBrowser.Quit إغلاق المتصفح بعد إرسال البيانات للتجربة افتح المرفق و ادخل بيانات في المربع الأول و المربع الثاني و اضغط على زر الإرسال و لاحظ ماذا يحدث و للإطلاع على ظهور النتائج ادخل على هذا الرابط: https://docs.google.com/spreadsheets/d/e/2PACX-1vSi73gAAIE9Rv8Ux43jjcvq9SSpzdVzs3M3ZEtehWqqP0pW4NLFLnkX3Iqoc9dYm_cx8vPz9S1465zd/pubhtml ارسال بيانات لنماذج غوغل.rar

مشاركة مع استاذي الفاضل @احمد الفلاحجي بارك الله فيه أنظر المرفق .... kan.mdb

السلام عليكم المرفقات بصيغة اكسيس 2003 وقريبا ان شاء الله بصيغة اكسيس 2007 كلمة المرور في اي مكان بالبرنامج هي 1234 لاضافة بيانات في الصناديق CompoBox انقر مرتين على الصندوق المراد الاختيار منه سيتم فتح شاشة الادخالات الخاصة بهذا الصندوق ولا تنسونا بالدعاء اخوكم على عبد الحميد Str2003.zip

عاجز تماما عن الوصف وعن الشكر ملك الكودات الاستاذ سليم

وعليكم السلام اذا حدتت المشكلة حديثا جرب خاصية استعادة النظام الى تاريخ سابق

جزاك الله خيراً أخي الكريم @نبيل عبد الهاديعلى ما قدمت تقبل تحياتي العطرة.

حل رائع استاذ محمد وهنا حل اخر المطايقة وترحيل المكرر الى ورقة اخرى 111112.xlsm

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

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

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

نفس المشكلة

الشكر لله سبحانه

تسلم ايدك وشاكر جداً على تعبك معاية 👍

جزاك الله خيرا معلمي الفاضل @jjafferr خذ هذه الدعابة : في أحد مجالس الخلفاء سأل الخليفة أحدهم : من أين أنت ؟ فأجاب : من حماه حماك الله فأمر له الخليفة بكيس من الذهب وسأل الثاني : من أين أنت ؟ فأجاب : من حمص حمصك الله . فأمر بجلده .. 🏃‍♂️🏃‍♂️🏃‍♂️🏃‍♂️

وعليكم السلام 🙂 بعد الـ Beep والرسالة ، ضع هذا الكود : Me.ZTeacher = null Me.Zday = null Me.ZDate = null Me.ZProduct = null Me.ZA2= null Me.ZA3= null جعفر

لنفرض ان الرقم موجود في الخلية A1 جرب احدى هاتين المعادلتين (حسب اعدادات الجهاز عندك) =SUBSTITUTE(A1,"-","") Or =SUBSTITUTE(A1;"-";"")

وعليكم السلام اخوي حسن 🙂 اهلا وسهلا بك في المنتدى 🙂 رجاء قراءة قوانين المنتدى ، حتى تستفيد الاستفادة القصوى من المنتدى 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء فتح موضوع جديد بما يتماشى بقوانين المنتدى 🙂 شكرا جزيلا استاذ فايز 🙂 يُغلق جعفر

وعليكم السلام 🙂 اما انا ، فأفضّل ان اقوم بكل شيء في الكود ، لأن عندي مساعة واسعة ومجال اكبر للعمل هناك 🙂 يمكنك حل المشكلة بطريقتين ، اولها بإصطياد رقم الخطأ ، ثم نعمل on error والثاني بفحص المتغير قبل دخوله في المعادلة: استعمل wzn2: G_to_K_w([units],[wzn]) وهاي الوحدة النمطية ماله Public Function G_to_K_w(u As String, w As Double) As Double 'convert Gram to Kilogram 'wzn if len(u & "")=0 then G_to_K_w =0 elseIf u = "جرام" Then G_to_K_w = w / 1000 Else G_to_K_w = w End If End Function . جعفر

جرب هذا الملف انه ينفذ الماكرو على الشيت التي تحتاره انت (في حال تحديد اكثر من شيت واحد) بواسطة رسالة تطلب منك رقم الشيت الذي تريده اما اذا كان شيت واحدة محددة فيقوم بتنفيذ الماكرو عليها Option Explicit Sub No_Error_In_Sheets() Dim ws As Worksheet, wb As Workbook Dim col As New Collection Dim i%, Inp_Box Set wb = ActiveWorkbook For Each ws In ActiveWindow.SelectedSheets i = i + 1 col.Add ws.Name, CStr(i) Next ws On Error Resume Next If i > 1 Then Inp_Box = InputBox("You Have More than One Selected Sheets" & Chr(10) & _ "Please Type The index Of the Sheet you need " & Chr(10) & _ "Example: " & "1,2,3,etc...", 1) Sheets(col(Inp_Box)).Select If Err.Number > 0 Then MsgBox "you select Wrong number: " & """" & Inp_Box & """" On Error GoTo 0 Exit Sub End If End If On Error GoTo 0 '++++++++++++++++++++++++++++++++ 'Type here your macro 'Example ActiveSheet.Range("a1:a10") = 100 '++++++++++++++++++++++++++++++ End Sub الملف للتجربة Run_macro.xlsm

أخي وحبيبي أبا جودى هل جربت هكذا units2: G_to_K_u(IIf(IsNull([units]);0;[units])) wzn2: G_to_K_w(IIf(IsNull([units]);0;[units]);IIf(IsNull([wzn]);0;[wzn]))

دالة counta في الاكسل ايضا للعد وليس للجمع فقط للعلم دالة counta يعدد الخلايا اللي بها شيء ولا يعدد الخلايا خالية

جزاك الله خيرا استاذ شيفان نعم هذه الداله ليست ضمن الاكسس هى بالاكسيل يمكنك اخى الفاضل الاستعانه بالداله السابقه الذكر من الاستاذ شيفان وهى للعد وليست للجمع وان كنت تريد الجمع استعن باختها Dsum 😀 بالتوفيق اخوانى

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

طبعا يمكن عمل هذا من خلال هذه المعادلة =VLOOKUP($A2,$M$7:$O$16,MATCH(B$1,$M$6:$O$6,0),0) معادلة vlookup1.xls

جزاكم الله خيراً أخي الكريم @أحمد يوسف تقبل تحياتي العطرة

بعد اذن الأستاذ الرائد ولإثراء الموضوع تفضل Camtend(1).xlsm

حياك الله - استاذ

رائع .. احسنت استاذ سليم بارك الله فيك

وعليكم السلام-اذا كان المطلوب كما قلت فتكون المعادلة كالتالى بالخلية I4 =IFERROR((Y4/X4)*H4,"") New ورقة عمل Microsoft Excel (2).xlsx

أستاذي العزيز essam rabea أهنئك واهنئ نفسي بعد رحلة عمل أنتهت بهذا العمل الرائع علي هذه الصورة والذي أراه بحق وبلا مبالغة أهم وأشمل وأفضل نموذج بحث متقدم ومتعدد الحقول رأيته يوماً في منتدي في أسلوبه وسرعته وتعدد خياراته وصحة نتائجه لذا أنصح به كل راغب لنموذج بحث متميز وأن يصبح مرجع في مكتبة المنتدي وللإمانة هناك أيضاً نموذج بحث أخر تجدوه علي هذا الرابط أعجبتني فكرته التي تتشابه مع هذا العمل وليته يجد من يهتم بتطويره أو يقوم بدمج بعض أفكاره مع طريقة وأسلوب هذا العمل

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

فى المثال المرفق ثلاث طرق للتحكم فى البيانات المدخلة الأولي بالكود و هنا يتم التحقق من أن البيانات المدخلة فى الخلية d2 لابد أن تبدأ ب FGK Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Left(Range("d2").Value, 3)) <> "FGK" Then MsgBox "Not Accepted Entry, should start with FGK" Range("d2").Value = "FGK" Exit Sub End If End Sub و الثانية عن طريق معادلة if الشرطية و اظهار النتيجة فى الخلية المجاورة و الثالثة عن طريق أمر Validation من قائمة data و عليه يوجد 3 امثلة الاول للتحكم بان الرقم بين 10 و 100 و الثاني لأن النص لا يزيد عن 5 حروف و الاخير لان الرقم أقل من 1000 و فى الاخير تم استخدام خاصية الرسالة التي تظهر عند الوقوف فى الخلية و تغيير رسالة الخطأ و ذلك ايضا من امر validation من قائمة data Validation.zip