بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 25 ماي, 2022 in all areas
-
تفضل ..... 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).accdb3 points
-
السلام عليكم -يمكنك استخدام هذه المعادلة لذلك =SUMIFS($D$6:$D$200,$C$6:$C$200,$G7,$B$6:$B$200,">="&$H$6,$B$6:$B$200,"<="&$I$6) Sumifs.xls2 points
-
وعليكم السلام-وذلك ببساطة لأنك لم تقم بتثبيت الجزء الأول والأخير من معادلة المخزن .. بمعنى لابد ان تكون بهذا الشكل حتى لا يتغير المدى كلما سحبت لأسفل اى وضع مدى المعادلة بين علامتين $ =SUMIF(مشتريات!$C$4:$C$579,مخزن!A3,مشتريات!$D$4:$D$579)-SUMIF(مبيعات!$C$4:$C$581,مخزن!A3,مبيعات!$D$4:$D$581) اسعار المنتجات فاتورة1.xls2 points
-
2 points
-
انا اشتغلت على ID لان الاسم يعمل مشاكل ولم اصل للسبب مشاركة اخي واستاذي @ابو جوديالاخيرة تقرأ جميع الاسماء المتشابهة..اقصد حين الفلترة ب يوميات فانها تعرض يوميات و يوميات2 Test1(1).rar في اللحظة الاخيرة اكتشف ان طريقتي ايضا تعمل مشاكل لانها سوف تخلط بين الارقام المتشابهة يجب التفكير بطريقة اخرى ..اقصد بنفس طريقة التصفية والترحيل لاكسل يتم تطبيقها على PDF2 points
-
جرب أخي الفاضل وضع هذا الكود في حدث 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 ثم انسخ بياناتك ، وانتقل إلى ورقة العمل الهدف و انقر بزر الماوس الأيمن على الخلية الوجهة ، سيتم لصق قيم الخلايا المنسوخة دون أي تنسيق بإذن الله.2 points
-
وعليكم السلام 🙂 عملت حقل اختيار صح/خطأ ، تسميته "اختيار الكل" ، فلما تختاره ، يختار القائمة كاملة ، ولما تشيل الاختيار عنه ، يلغي اختيار القائمة ، وهذا الكود يعمل اللازم : 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.zip2 points
-
2 points
-
عندي ملف فيه ارقام اريد تصفية السجلات حسب رقم معين يحتوي على كسر نكتبه في حقل نصي معين موجود في رأس النموذج على سبيل المثال نريد تصفية السجلات اقل من 5.5 او اكثر من 2.3 وهكذا. مع إمكانية طبع النتائج . ارفقت لكم الملف هنا وبانتظار ردودكم. وشكرا Filter.accdb1 point
-
بسم الله الرحمن الرحيم ..السلاك عليكم ورحة الله وبركاته ..إخواني وأخواتى،.. هذه هدية بسيطة لكم(ملف لاحتساب اوقات الحضور والانصراف واوقات الراحة للموظفين) كل ما يجب عليك فعله أن تضغط على كود الموظف في شيت أسماء الموظفين تنتقل للشيت لهذا الكود تكتب فقط اسم الموظف بالأعلى وتكتب وقت الحضور والإنصراف للموظف في اليوم وتكتب وقت ذهابه وحضوره من الراحة واترك الباقي على المعادلات. ...وشكرا لكم.الملف مره أخرى بعد التطوير يا أحباب الحضور والانصراف واحتساب وقت الراحة بالوقت.xlsx1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
استاذ احمد ..بعيدا عن الموضوع بس اعتقد كل 3 ساعات تعتبر يوما على العموم ..انت تحتاج لعمل استعلام عن مجموع (ساعات الاستئذان ) لكل موظف ثم تعمل استعلام ثاني من الاستعلام هذا مع رصيد استعلام رصيد الموظف بالساعات ...لكي تظهر المتبقي من رصيده1 point
-
انا مجرد غيرت ترتيب الاعمدة ...جعلت اسم العميل اول عمود علشان يطلع الاسم وكلشي شغال عندي سواء اخترت اسم العميل او لم اختاره .. وين المشكلة لو سمحت1 point
-
1 point
-
بارك الله فيك اخى الكريم جداااااااااااا تعمل ممتازة اتمنى توضيح اين يكمن التعديل بارك الله فيك باشمهندس قاسم اخى الحبيب زادك الله من فضله واكرمك اخى الكريم اللهم امين يارب استاذى الحبيب ابو جودي بارك الله فيك اخى الكريم جدااااااااااا فهمت التغير ويعمل تمام ممتاز زادك الله من فضله وكرمه اللهم امين يارب بس فى شئ اخى لعد تطبيق التعديل يظهر عندى مصدر التمويل رقم وليس اسم والمفروض انه كان يظهر اسم مصدر التمويل هكذا هنا لكى اتمكن من معرفة مصدر التمويل وامكانية تعديله حيث انه لدى اكثر من 100 مصدر تمويل ولن اتمكن من معرفت مصدر التمويل اذا كان رقم تقبل احترامى وتقديرى المرفق الاول Test1 يطهر مصدر التمويل رقم المرفق الثاى Test2 مصدر التمويل يظهر تمام اسم بس التعديل لم يعمل فيه بارك الله فيك اخى الكريم Test1(1).accdb Test2.rar1 point
-
1 point
-
أتفضل يا افندم انا فعلا غلطان واتسرعت فى الفكرة ممكن الحل بأكثر من طريقة 1- كتابة جملة الاستعلام ملخص حسابات العملاء2 فى محرر الاكواد بحيث يتغير المعيار تبعا لحالة مربع السرد مصدر التمويل وبناء على حالة مربع السرد كذلك يتغير مصدر بيانات النموذج تجميعات ملخص مصدر التمويل والذى سوف يتم كتابته كذلك من داخل محرر الاكواد 2- الطريقة الثانية كما فى المرفق الاتى بعمل عدد 2 استعلام ملخص حسابات العملاء2 , ملخص حسابات العملاء2A وعدد 2 نموذج ملخص مصدر التمويل , ملخص مصدر التمويلA Test1(4).accdb1 point
-
1 point
-
1 point
-
1 point
-
ماشاء الله لا قوة الا بالله عمل اكثر من احترافي و تنسيق اكثر من رائع و اختيار جميل جدا للألوان لا تحرمنا من ابداعات استمر في عطائك جعله الله في موازين حسناتك1 point
-
استاذى ومعلمى الكبير / @ابو جودي انت فى اى وقت تدخل وتشارك وتقول اللى انت عايزه اذا حضر الماء بطل التيمم حلوة قوى وفق راسين فى الحلال وسوى بينهم علاقة شريفة لو تعرف انا فضلت اضحك فعلا من قلبى اكثر من ربع ساعة لدرجة ان الاولاد قالوا مالك ياباباـ والله العظيم ردت عليهم قلت لهم : ان شاء الله هنوفق راسين فى الحلال جزاك الله كل خير استاذنا الكبير وجعله فى ميزان حسناتك ورزفك الصحة والعافية ان شاء الله1 point
-
طيب بعد التمعن فى الفوكيرة اللى فاتت لابد من التطبيق بتلك الالية بعدد 7 استعلامات الاستعلام النهائى والذى يظهر القيم المكررة هو qryUnionMob 3or2Colume (2).accdb1 point
-
من واقع المرفق المقدم من استاذى الجليل واخى الحبيب الباش مهندس @Eng.Qassim ياريت تتعب شوية بعد اذن معاليك يعنى وتوضح عاوز تاخد اى بيانات تحديدا ومن اى كومبو ومتى تريد تنفيذ عملية النسخ لابد من شرح المطلوب تفصيلا الله ييرضى عليك ومتقلقش لا نأخذ فى المنتدى ضرائب على عدد الحروف المكتوبة فى السؤال من صاحب السؤال بل توضع الاجابات مجانا1 point
-
السلام عليكم ورحمة الله / والله عجزت عن الوصول للحل مرفق القاعدة وعليها الاضافات الموجود في القاعدة الاصلية لمعرفة سبب المشكلة وتعديلها وجزاكم الله خيرا db8.rar1 point
-
1 point
-
طيب يا استاذ @بلال اليامين تقدر تستخدم السطر ده فى الاستعلام بشكل مباشر على اعتبار ان اسم حقل تاريخ التعيين 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 تستطيع تغييرة فقط بالرقم الذى تريد ان اردت مستقبلا تغييره الى أى رقم آخر1 point
-
استاذ @abouelhassan ممكن تجرب المرفق الاتى ملاحظة لو ما وجدت ضالتك انا لم اقراء الموضوع اول كل الردود بتمعن اعتذر لذلك ولكن لسبب وظرف خارج عن ارادتى فى الوقت الراهن ولكن حاولت تقديم المساعدة قدر الامكان اسأل الله تعالى ان تجد ضالتكم Test1(2).accdb1 point
-
طيب ما هو لازم يعمل كده للسبب الاتى افتح الجدول Employee_Num وانظر الى نوع حقل البيانات Employee_Num وهو AutoNumber يعنى حقل رقمى والان افتح الجدول TabSubEmployees وانظر الى نوع حقل البيانات Employee_Num وهو Short Text يعنى حقل نصى وحضرتك روحت مسوى بينهم علاقة مستحيل تتم Relationships يعنى مثلا تريد تسوى علاقة بين تمساح وغزالة .... العلاقة لن تتم والغزالة كان الله فى عونها اذن الغى العلاقة من Relationships واذهب الى الجدول TabSubEmployees فى وضع التصميم وقم بتغيير نوع حقل البيانات Employee_Num إلي نوع Number حتى يصبح حقل رقمى وبعدين اذهب مرة أخرى الى Relationships ووفق راسين فى الحلال وسوى بينهم علاقة شريفة كاملة وانظر الى النتيجة ملاحظة صغيرة : ليش تستخدم حقل الترقيم التلقائى للاكسس ضمن تصميمك هذا الحقل شأن داخل للأكسس وظيقته الفهرسة صيحتى لكل اترك هذا الحقل وشأنه ولا تستخدمة ضمن تصميمك واخرجه منن حساباتك واتركة سيؤدى وظيفته الخاصة وانت سوى ما بدك بعيد عنه دكتور @الحلبي كلامك مضبوط وصح و 100 ال 100 وانا كنت كاتب المشاركة والنور قطع ولما رجع لم انتبه لرد حضرتك يا دكتور Aziz 2.accdb1 point
-
الاستاذ / عبد العزيز وعليكم السلام اخى انت عامل رقم الموظف فى الجدول ترقيم تلقائى وفى الجدول الاخر عامله نص وانت رابط بين النموذج الرئيسى والفرعى برقم الموظف وهما يختلفان فى النوع حاول تغيير رقم الموظف الى رقم فقط جزاكم الله خير1 point
-
هل تقصد أنه في حالة كانت قيمة البند الأول في الخانة 2 او 3 هي 1 يتم كتابة رقم واحد في الخانة المظللة بالأحمر ..وماذا إذا كانت كل منهما قيمتها واحد ؟ عذرا أخي بما أنني بشتغل من على الهاتف الملف غير واضح عندي على العموم قد تم وضع معادلتين الأولى في حالة كانت كل من الخانتين 2 و 3 في البند الأول قيمتها واحد يتم كتابة رقم واحد في الخانة المظللة بالاصفر وفي حالة كانت أي من الخانتين 2او3 من البند الأول قيمتها واحد يتم كتابة رقم واحد ضمن الخانة المظللة بالازرق.وإذا لم يتوفر أي شرط تبقى فارغة. اذا كان هذا هو المطلوب يمكنك إتمام الملف بنفس الطريقة ١استبانة.xlsx1 point
-
هذا صحيح ، ولكن الاهم من هذا هو ، انك تسمح للمستخدم ان يغير الخطأ في اسم العميل (مثلا، او يعطيه اسم آخر) ، وتظل/تبقى جميع بيانات ارقام العميل في بقية الجداول كما هي ، ولا تحتاج انك تروح لجميع الجداول وتعمل تحديث من اسم العميل القديم الى اسم العميل الجديد : . جعفر1 point
-
1 point
-
1 point
-
وعليكم السلام -طبعاً وبالتأكيد هذا مجهد ومتعب حتى لو كان الشخص محترف الإكسيل -أقترح عليك من الأفضل طبعاً عمل وفتح 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)),"") جميع مبيعات السنة-بالمعادلات.xlsm1 point
-
السلام عليكم 🙂 تفضل : لما تنقر على رقم 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.zip1 point
-
1 point
-
أولا : يجب توحيد العبارة التي تكتب في مربع البحث أي قد تكتب < 5.5 وقد تكتب <5.5 اقصد المسافات لذلك فكرتي باختصار : عمل مربعي قائمة الاول لاختيار علامة ( ><= الخ اخرة) والمربع الثاني تختار منها الرقم ثم عمل زر للبحث .... وفقط ... ثانيا : بعض المسميات المستخدمة هي عبارات محجوزة للاكسس والمفروض لا تستخدم مثل sub ....1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
جزاك الله كل خير استاذ حسين مأمون وجعلها في ميزان حسناتك هذا ما كنت اريده بالضبط هذا مكنني من متابعة اسعار مادة ما حسب الواقع مع ملاحظة تعديل اسعارها🌷1 point
-
السلام عليكم بعد اذن استاذنا حسين مامون ..جرب هذا الكود 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 الملف تثبيت معادلة.xlsm1 point
-
السلام عليكم الاخ الكريم جرب المرفق به كود لاحد الاخوة بالمنتدي يعمل علي حماية أكثر من نطاق في الورقة بدون حماية الورقة عسي ان ينفع معك او نقوم بالتعديل عليه لنصل الي طلبك الذي تريده ( ان شاء الله ) وكما تريد جزاك الله خيرا كود لحماية أكثر من نطاق بدون حماية الورقة.rar1 point