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

تفضل ..... Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Set db = CurrentDb strSQL = "SELECT sub.* FROM sub WHERE " strSQL = strSQL & "[No] " & Me![cboFirstOperator] & "" & Me![txtCostCenter] & "" db.QueryDefs.Delete "qryMyQuery" Set qdf = db.CreateQueryDef("qryMyQuery", strSQL) Filter (2).accdb

السلام عليكم -يمكنك استخدام هذه المعادلة لذلك =SUMIFS($D$6:$D$200,$C$6:$C$200,$G7,$B$6:$B$200,">="&$H$6,$B$6:$B$200,"<="&$I$6) Sumifs.xls

وعليكم السلام-وذلك ببساطة لأنك لم تقم بتثبيت الجزء الأول والأخير من معادلة المخزن .. بمعنى لابد ان تكون بهذا الشكل حتى لا يتغير المدى كلما سحبت لأسفل اى وضع مدى المعادلة بين علامتين $ =SUMIF(مشتريات!$C$4:$C$579,مخزن!A3,مشتريات!$D$4:$D$579)-SUMIF(مبيعات!$C$4:$C$581,مخزن!A3,مبيعات!$D$4:$D$581) اسعار المنتجات فاتورة1.xls

تفضل هذا التعديل Filter.accdb

انا اشتغلت على ID لان الاسم يعمل مشاكل ولم اصل للسبب مشاركة اخي واستاذي @ابو جوديالاخيرة تقرأ جميع الاسماء المتشابهة..اقصد حين الفلترة ب يوميات فانها تعرض يوميات و يوميات2 Test1(1).rar في اللحظة الاخيرة اكتشف ان طريقتي ايضا تعمل مشاكل لانها سوف تخلط بين الارقام المتشابهة يجب التفكير بطريقة اخرى ..اقصد بنفس طريقة التصفية والترحيل لاكسل يتم تطبيقها على PDF

جرب أخي الفاضل وضع هذا الكود في حدث workbook كما في الصورة Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub ثم انسخ بياناتك ، وانتقل إلى ورقة العمل الهدف و انقر بزر الماوس الأيمن على الخلية الوجهة ، سيتم لصق قيم الخلايا المنسوخة دون أي تنسيق بإذن الله.

وعليكم السلام 🙂 عملت حقل اختيار صح/خطأ ، تسميته "اختيار الكل" ، فلما تختاره ، يختار القائمة كاملة ، ولما تشيل الاختيار عنه ، يلغي اختيار القائمة ، وهذا الكود يعمل اللازم : Private Sub chk_Select_All_AfterUpdate() Dim i As Integer If Me.chk_Select_All = -1 Then 'Selete All For i = 0 To Me.lst_invoices.ListCount - 1 Me.lst_invoices.Selected(i) = True Next i Else 'DeSelete All For i = 0 To Me.lst_invoices.ListCount - 1 Me.lst_invoices.Selected(i) = False Next i End If End Sub . وشفت عندك استعلام ما تريده يعرض عدد كبير من المعلومات ، فعملت لك جدول خاص بالمعلومات اللي ما نريدها ، واضفت لك اسم/رقم المجموعة iGroup حتى تقدر تضيف معلومات لإستعلامات اخرى . فأصبح الاستعلام . جعفر 1513.2.Not in final.accdb.zip

انتهيت ولله الحمد 😄 للتحميل من المرفقات ( دعوة للتجربة وإبداء الرأي ) 😊: الروزنامة الأسبوعية.accdb

عندي ملف فيه ارقام اريد تصفية السجلات حسب رقم معين يحتوي على كسر نكتبه في حقل نصي معين موجود في رأس النموذج على سبيل المثال نريد تصفية السجلات اقل من 5.5 او اكثر من 2.3 وهكذا. مع إمكانية طبع النتائج . ارفقت لكم الملف هنا وبانتظار ردودكم. وشكرا Filter.accdb

بسم الله الرحمن الرحيم ..السلاك عليكم ورحة الله وبركاته ..إخواني وأخواتى،.. هذه هدية بسيطة لكم(ملف لاحتساب اوقات الحضور والانصراف واوقات الراحة للموظفين) كل ما يجب عليك فعله أن تضغط على كود الموظف في شيت أسماء الموظفين تنتقل للشيت لهذا الكود تكتب فقط اسم الموظف بالأعلى وتكتب وقت الحضور والإنصراف للموظف في اليوم وتكتب وقت ذهابه وحضوره من الراحة واترك الباقي على المعادلات. ...وشكرا لكم.الملف مره أخرى بعد التطوير يا أحباب الحضور والانصراف واحتساب وقت الراحة بالوقت.xlsx

طيب انا لي بيطلع عندي هيك وانت بيطلع عندك هيك الموضوع يحتاج بخور عماني 😄

هذا قانون ... وانا شبه متأكد منه

السلام عليكمورحمة الله تفضل الرقم _القومى.xlsm

جرب ان ترفع المرفق علي google drive مثلا وضع رابط التحميل هنا

استاذ احمد ..بعيدا عن الموضوع بس اعتقد كل 3 ساعات تعتبر يوما على العموم ..انت تحتاج لعمل استعلام عن مجموع (ساعات الاستئذان ) لكل موظف ثم تعمل استعلام ثاني من الاستعلام هذا مع رصيد استعلام رصيد الموظف بالساعات ...لكي تظهر المتبقي من رصيده

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

تفضل ياسيدي... فكرة بشمهندس محمد عصام جدا جميلة Test1(1)(1).accdb

بارك الله فيك اخى الكريم جداااااااااااا تعمل ممتازة اتمنى توضيح اين يكمن التعديل بارك الله فيك باشمهندس قاسم اخى الحبيب زادك الله من فضله واكرمك اخى الكريم اللهم امين يارب استاذى الحبيب ابو جودي بارك الله فيك اخى الكريم جدااااااااااا فهمت التغير ويعمل تمام ممتاز زادك الله من فضله وكرمه اللهم امين يارب بس فى شئ اخى لعد تطبيق التعديل يظهر عندى مصدر التمويل رقم وليس اسم والمفروض انه كان يظهر اسم مصدر التمويل هكذا هنا لكى اتمكن من معرفة مصدر التمويل وامكانية تعديله حيث انه لدى اكثر من 100 مصدر تمويل ولن اتمكن من معرفت مصدر التمويل اذا كان رقم تقبل احترامى وتقديرى المرفق الاول Test1 يطهر مصدر التمويل رقم المرفق الثاى Test2 مصدر التمويل يظهر تمام اسم بس التعديل لم يعمل فيه بارك الله فيك اخى الكريم Test1(1).accdb Test2.rar

جرب ضغط المرفق بأحد برامج الضغط اولا مثل WINRAR OR 7ZIP

أتفضل يا افندم انا فعلا غلطان واتسرعت فى الفكرة ممكن الحل بأكثر من طريقة 1- كتابة جملة الاستعلام ملخص حسابات العملاء2 فى محرر الاكواد بحيث يتغير المعيار تبعا لحالة مربع السرد مصدر التمويل وبناء على حالة مربع السرد كذلك يتغير مصدر بيانات النموذج تجميعات ملخص مصدر التمويل والذى سوف يتم كتابته كذلك من داخل محرر الاكواد 2- الطريقة الثانية كما فى المرفق الاتى بعمل عدد 2 استعلام ملخص حسابات العملاء2 , ملخص حسابات العملاء2A وعدد 2 نموذج ملخص مصدر التمويل , ملخص مصدر التمويلA Test1(4).accdb

اعمل ملف جديد فيه فقط الجزئية

ارفق مثال لما تريد لكي يتم التعديل عليه

من خلال الاستعلام الخاص بالنموذج الفرعي تستطيع ترتيب الأسماء

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

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

طيب بعد التمعن فى الفوكيرة اللى فاتت لابد من التطبيق بتلك الالية بعدد 7 استعلامات الاستعلام النهائى والذى يظهر القيم المكررة هو qryUnionMob 3or2Colume (2).accdb

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

السلام عليكم ورحمة الله / والله عجزت عن الوصول للحل مرفق القاعدة وعليها الاضافات الموجود في القاعدة الاصلية لمعرفة سبب المشكلة وتعديلها وجزاكم الله خيرا db8.rar

لم اغير في شيء فقط في الاستعلام Test1(1).rar

طيب يا استاذ @بلال اليامين تقدر تستخدم السطر ده فى الاستعلام بشكل مباشر على اعتبار ان اسم حقل تاريخ التعيين EmpHireDate DateAdd("yyyy",-3,[EmpHireDate]) فكرة كمان ممكن ستخدم الوظيفة الاتية داخل وحدة نمطية Public Function HireDateDiff( _ ByVal dtHireDate As Date, _ Optional nYear As Integer = 0 _ ) As Date dtHireDate = Format(dtHireDate, "dd/mm/yyyy") HireDateDiff = DateAdd("yyyy", -nYear, dtHireDate) HireDateDiff = Format(HireDateDiff, "dd/mm/yyyy") End Function ويتم استدعاء الوظيفة فى زوايا التطبيق سواء أكان فى استعلام او نموذج كالاتى HireDateDiff([EmpHireDate],3) مع ملاحظة أن الرقم 3 تستطيع تغييرة فقط بالرقم الذى تريد ان اردت مستقبلا تغييره الى أى رقم آخر

استاذ @abouelhassan ممكن تجرب المرفق الاتى ملاحظة لو ما وجدت ضالتك انا لم اقراء الموضوع اول كل الردود بتمعن اعتذر لذلك ولكن لسبب وظرف خارج عن ارادتى فى الوقت الراهن ولكن حاولت تقديم المساعدة قدر الامكان اسأل الله تعالى ان تجد ضالتكم Test1(2).accdb

طيب ما هو لازم يعمل كده للسبب الاتى افتح الجدول Employee_Num وانظر الى نوع حقل البيانات Employee_Num وهو AutoNumber يعنى حقل رقمى والان افتح الجدول TabSubEmployees وانظر الى نوع حقل البيانات Employee_Num وهو Short Text يعنى حقل نصى وحضرتك روحت مسوى بينهم علاقة مستحيل تتم Relationships يعنى مثلا تريد تسوى علاقة بين تمساح وغزالة .... العلاقة لن تتم والغزالة كان الله فى عونها اذن الغى العلاقة من Relationships واذهب الى الجدول TabSubEmployees فى وضع التصميم وقم بتغيير نوع حقل البيانات Employee_Num إلي نوع Number حتى يصبح حقل رقمى وبعدين اذهب مرة أخرى الى Relationships ووفق راسين فى الحلال وسوى بينهم علاقة شريفة كاملة وانظر الى النتيجة ملاحظة صغيرة : ليش تستخدم حقل الترقيم التلقائى للاكسس ضمن تصميمك هذا الحقل شأن داخل للأكسس وظيقته الفهرسة صيحتى لكل اترك هذا الحقل وشأنه ولا تستخدمة ضمن تصميمك واخرجه منن حساباتك واتركة سيؤدى وظيفته الخاصة وانت سوى ما بدك بعيد عنه دكتور @الحلبي كلامك مضبوط وصح و 100 ال 100 وانا كنت كاتب المشاركة والنور قطع ولما رجع لم انتبه لرد حضرتك يا دكتور Aziz 2.accdb

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

هل تقصد أنه في حالة كانت قيمة البند الأول في الخانة 2 او 3 هي 1 يتم كتابة رقم واحد في الخانة المظللة بالأحمر ..وماذا إذا كانت كل منهما قيمتها واحد ؟ عذرا أخي بما أنني بشتغل من على الهاتف الملف غير واضح عندي على العموم قد تم وضع معادلتين الأولى في حالة كانت كل من الخانتين 2 و 3 في البند الأول قيمتها واحد يتم كتابة رقم واحد في الخانة المظللة بالاصفر وفي حالة كانت أي من الخانتين 2او3 من البند الأول قيمتها واحد يتم كتابة رقم واحد ضمن الخانة المظللة بالازرق.وإذا لم يتوفر أي شرط تبقى فارغة. اذا كان هذا هو المطلوب يمكنك إتمام الملف بنفس الطريقة ١استبانة.xlsx

هذا صحيح ، ولكن الاهم من هذا هو ، انك تسمح للمستخدم ان يغير الخطأ في اسم العميل (مثلا، او يعطيه اسم آخر) ، وتظل/تبقى جميع بيانات ارقام العميل في بقية الجداول كما هي ، ولا تحتاج انك تروح لجميع الجداول وتعمل تحديث من اسم العميل القديم الى اسم العميل الجديد : . جعفر

دى فكرة 3or2Colume.accdb

بارك الله فيك وجزاك الله خيرا

وعليكم السلام -طبعاً وبالتأكيد هذا مجهد ومتعب حتى لو كان الشخص محترف الإكسيل -أقترح عليك من الأفضل طبعاً عمل وفتح 12 صفحة بعدد شهور السنة ثم عمل صفحة أساسية للمدخلات اليومية ومنها يتم ترحيل كل مدخلات للشهر الذى يخصه وأعتقد ان هذا سيكون أفضل وأسهل بكثير وليس هناك داعى طبعاً لعمل صفحة لكل يوم لأنك بالتالى ستحتاج فتح أكثر من 360 صفحة بالملف مما سيجعل العمل على هذا الملف بطىء جداً وشكراً لكم-وذلك بإستخدام هذه المعادلة بجميع شيتات الشهور ... كما ان هناك صفحة تسمى Summary بها تجميع لكل شهر على حده =IFERROR(INDEX(Input!$A$5:$I$1000,AGGREGATE(15,6,(ROW(Input!$B$1:$B$1000)/(Input!$H$5:$H$1000=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1),1)+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1),1)))),ROWS(January!$A$1:A1)),MATCH(January!A$5,Input!$A$5:$I$5,0)),"") جميع مبيعات السنة-بالمعادلات.xlsm

السلام عليكم 🙂 تفضل : لما تنقر على رقم 1 ، يفتح لك النموذج الآخر ، تنقر على السجلات اللي تريد الحاقها (نقرة اخرى على السجلات لعدم اختياره) ، ثم النقر على الزر 3 ، ليعمل الحاق السجلات ، ويخرج من النموذج . هذا كود النموذج : Option Compare Database Option Explicit Private Sub cmd_close_Click() DoCmd.close acForm, Me.Name, acSaveNo End Sub Private Sub cmd_Select_Click() On Error GoTo err_cmd_Select_Click Dim items As Variant Dim myIN As String myIN = Empty For Each items In Me.lst_invoices.ItemsSelected myIN = myIN & "," & Me.lst_invoices.Column(0, items) Next items 'Debug.Print Mid(myIN, 2) If Len(myIN & "") = 0 Then MsgBox "رجاء اختيار رقم الفاتورة من القائمة" Exit Sub End If Dim qdf As DAO.QueryDef Dim Replace_With As String, sqlString As String, Query_Name As String Dim pos_1 As Integer, pos_2 As Integer Query_Name = "append query customer account sub dollar ListBox" Set qdf = CurrentDb.QueryDefs(Query_Name) pos_1 = InStr(qdf.SQL, "In (") - 1 pos_2 = InStr(pos_1, qdf.SQL, ")") Replace_With = "In (" & Mid(myIN, 2) & ")" sqlString = Mid(qdf.SQL, 1, pos_1) & _ Replace_With & _ Mid(qdf.SQL, pos_2 + 1) 'Debug.Print sqlString qdf.SQL = sqlString DoCmd.SetWarnings False DoCmd.OpenQuery Query_Name DoCmd.SetWarnings True Exit_cmd_Select_Click: Call cmd_close_Click Exit Sub err_cmd_Select_Click: If Err.Number = 1 Then Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_cmd_Select_Click End If End Sub . مع الاعتذار ، اني عملته بالنسخة الموجودة في آخر مشاركة ، ومو نسختك الاخيرة 🙂 جعفر 1513.1.Not in.accdb.zip

تفضل اخي not offisna.xlsm

أولا : يجب توحيد العبارة التي تكتب في مربع البحث أي قد تكتب < 5.5 وقد تكتب <5.5 اقصد المسافات لذلك فكرتي باختصار : عمل مربعي قائمة الاول لاختيار علامة ( ><= الخ اخرة) والمربع الثاني تختار منها الرقم ثم عمل زر للبحث .... وفقط ... ثانيا : بعض المسميات المستخدمة هي عبارات محجوزة للاكسس والمفروض لا تستخدم مثل sub ....

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

نقاش رائع أساتذتنا @احمد الفلاحجي @Eng.Qassim ☺️ أخي بلال وضعته لك في مثال 🙂 : تضع الدالة على مصدر صندوق النتيجة هكذا : =DateDiff("yyyy";DateAdd("yyyy";3;[From]);[To]) التواريخ.accdb

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

وعليكم السلام 🙂 موجود في الاستعلام . والاستعلام جاهز للعمل 🙂 جعفر

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

السلام عليكم بعد اذن استاذنا حسين مامون ..جرب هذا الكود Sub tast() Application.ScreenUpdating = False Range("E10:E405").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(R10C8:R[395]C[3],أسعار!C[-3]:C[-2],2,),"""")" Range("E10").Select Selection.AutoFill Destination:=Range("E10:E5000") Range("E10:E5000").Select Selection.Copy Range("E10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False Range("E10").Select Application.ScreenUpdating = True End Sub الملف تثبيت معادلة.xlsm

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