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

حرب هذا الملف (لا ضرورة لتحميل الملف بالكامل اكثر من 3000 صف) يكفي 10 الى 20 صف في المرة المقبلة في الخلية هذه المعادلة واسحب نزولاً =SUMPRODUCT(--(A2&B2&C2&D2&E2=$A$2:A2&$B$2:B2&$C$2:C2&$D$2:D2&$E$2:E2)) 2018_salim.xlsx

تفضل أخى أحمد يوسف أخى عمر ضاحى هذه الأكواد محاولات لتنفيذ طلبك لينك الذهاب الشيت فأصبر معى قليلا OK_Search - Copy.xlsm

السلام عليكم تحيه طيبه لكل اﻻعضاء المحترمين عند البحث في مربع سرد او list box وعند كتابه اول حرف او تاني حرف يتم تحديد كل الكلمات التي تحتوي علي الحروف تلقيا ويتم تلوينها بلون مختلف في كل الكلمات التي تحتوي علي هذه الحروف مثال لو ببحث عن اسم مورد او صنف في combox يتم تحديد كل العناصر التي تحتوي علي اسم المود وتلوين الحروف في هذه الكلمات

السلام عليكم اليكم شرح المعادلات المضافة حديثا للاصدار الجديد للاكسيل 2019 MaxIfs-MiniFs-Ifs فيديو باليوتيوب Microsoft Excel 2019 -New Function

لقد اضفت عليه Exit Sub واشتغل مظبوط بارك الله فيك يالغالي

جرب هذا If IsNull(DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")) Then MsgBox " المـعـذرة يـرجـاء الـتـأكـد .... لا تـو جـد صـنـف بـهـذا الـرقـم ", vbInformation, "رساله" DoCmd.CancelEvent End If

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

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

مع الشكر للاستاذ ابو ياسين ، خبرة في التفصيل ، فهو اعطى حلول رائعة حسب طلب السائل الفكرة من البداية غير صحيحة ، ودائما اعقب على مثل هذه المشاركات ولا اعلم كيف تنتقل هذه الافكار للتطبيق على قواعد البيانات قاعدة : اي بيانات تكتب في سجل داخل قاعدة البيانات يتم التعامل معها وهي في مكانها من غير نقل ولا نسخ كيف يتم التعامل معها ؟ يتم باضافة حقول ضمن السجل تكون كأشارات مرجعية لوصف حالة السجل مثل 1- حقل نعم/ لا لاظهار السجل من عدمه 2- حقل لادراج السنة ( من اجل التصفية مستقبلا ) 3- حقل كذا من اجل كذا ........ وهكذا هذه الطريقة اقوى واشمل وتجعل جميع الاحداث ضمن دائرة واحدة ومن خصائصها اختصار الكائنات داخل المشروع اتمنى ان يكون الشرح واضح ومفهوم اي شخص يتعامل مع فكرة القص والنسخ والترحيل ، سيذكر كلامي هذا عندما يعمل على قواعد كبيرة كــ sql مثلا في حالاات ضيقة يمكن اللجوء الى ترحيل النتائج النهائية في جداول جديدة منفصلة عن المشروع وتطبيقاته وهي لا تبعد كثيرا عن التصدير الى ملفات اكسل ، وتختلف الحاجة الى هذه العمليات من مشروع الى آخر احبتي : انا اكتب للفائدة العامة ولمن يمر من هنا فلربما صاحب السؤال قد شارف على نهاية مشروعه

ابحث داخل المنتدى عن "تحزيم"

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

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

استأذن من استاذ @أبو آدم هل قصدك تريد تبحث عن السجلات بواسطة 3 كومبوبوكس الاعلاه اتفضل اليك هذه الاكواد حسب طلبك Option Compare Database Private Sub Combo0_AfterUpdate() Me.Combo2 = Null Me.Combo4 = Null Me.Combo2.Requery Me.Combo4.Requery If Len(Me.Combo0 & "") = 0 Then Me.Form.RecordSource = "Table1" ElseIf Len(Me.Combo0 & "") > 0 Then Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*""));" End If Me.Requery End Sub Private Sub Combo2_AfterUpdate() If Len(Me.Combo2 & "") = 0 Then Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*""));" ElseIf Len(Me.Combo2 & "") > 0 Then Me.Form.RecordSource = "SELECT Table1.ID, Table1.WC, Table1.OMC, Table1.DAY FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*"") AND ((Table1.OMC) Like ""*"" & [Forms]![Form1]![Combo2] & ""*""));" End If Me.Combo4 = Null Me.Combo4.Requery Me.Requery End Sub Private Sub Combo4_AfterUpdate() If Len(Me.Combo0 & "") = 0 And Me.Combo2 = 0 And Me.Combo4 = 0 Then Me.Form.RecordSource = "Table1" ElseIf Len(Me.Combo0 & "") = 0 And Me.Combo2 = 0 And Me.Combo4 > 0 Then Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.Day) Like ""*"" & [Forms]![Form1]![Combo4] & ""*""));" ElseIf Len(Me.Combo0 & "") > 0 And Me.Combo4 > 0 Then Me.Form.RecordSource = "SELECT Table1.ID, Table1.WC, Table1.OMC, Table1.DAY FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*"") AND ((Table1.OMC) Like ""*"" & [Forms]![Form1]![Combo2] & ""*"") AND ((Table1.day) Like ""*"" & [Forms]![Form1]![Combo4] & ""*""));" End If End Sub واليك القاعدة بعد اضافة الاكواد بحث بواسطة ثلاث كومبوبوكس.accdb @alzahrani07 تم اصلاح

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

If Me.shose = -1 Then Set Rs = CurrentDb.OpenRecordset("master", dbOpenDynaset) Set Rs = Forms!invoicebuy!buysub.Form.RecordsetClone Forms![invoicebuy].SetFocus Forms!invoicebuy!buysub.SetFocus Rs.FindFirst "[categoryname] = '" & Me.categoryname & "' And catcod =" & Me.catcods If Rs.NoMatch = False Then DoCmd.OpenForm "frm_Message" Forms!frm_Message!lblMessage.Caption = "ÇáÑÞã ãßÑÑ" MsgBox " ÇáÑÞã ãßÑÑ" & " ", , "ÊÜäÜÈÜíÜå" Else Rs.AddNew Rs!materinvoice = [Forms]![invoicebuy]![buyinvoice] Rs!catcod = catcods Rs!categoryname = categoryname Rs!pricebuy = pricebuy Rs.Update End If End If شوف هذا الكود يضيف في الجدول وفي الفورم واذا هو ليس المطلوب ارجو توضيح المطلوب بالصور

تأکد من نوع قاعدة بياناتك هل هو mdb او accdb وغيره في الكود

وعليكم السلام ضع هذا الكود فى حدث this workbook Private Sub Workbook_Open() MsgBox "Welcome to Officena" End Sub وعليكم السلام ضع هذا الكود فى حدث this workbook Private Sub Workbook_Open() MsgBox "Welcome to Officena" End Sub أو هذا الكود Private Sub Workbook_Open() MsgBox "You have just opened " & ThisWorkbook.Name End Sub

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

انا اسف لم انتبه لطلبك هذا اتفضل هذا حسب طلبك If Me.shose = -1 Then Dim Rs As DAO.Recordset Set Rs = Forms!invoicebuy!buysub.Form.RecordsetClone Forms![invoicebuy].SetFocus Forms!invoicebuy!buysub.SetFocus Rs.FindFirst "[categoryname] = '" & Me.categoryname & "' And catcod =" & Me.catcods If Rs.NoMatch = False Then DoCmd.OpenForm "frm_Message" Forms!frm_Message!lblMessage.Caption = "ÇáÑÞã ãßÑÑ" MsgBox " ÇáÑÞã ãßÑÑ" & " ", , "ÊÜäÜÈÜíÜå" Else Rs.AddNew Rs!materinvoice = Forms!invoicebuy!buyinvoice Rs!catcod = catcods Rs!categoryname = categoryname Rs!pricebuy = pricebuy Rs.Update End If End If الاصناف.accdb

جزاكم الله خيرا وألف شكر للجميع

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

عذرا ... انا لم افهم السؤال يرجى التوضيح

أخي العزيز مرفق التطبيق لطلبك استعلام لاظهار التاريخ الاعلى في السجل وذلك باستخدام وحدة نمطية ، و اضفت لك اظهار التاريخ الادنى ، لعلك - او احد الاخوة - يحتاج له تصدقوا علينا بالدعاء شكرا NA_MAXMIN.accdb

عليك بفتح هذا وستعرف الفرق بنفسك https://analystcave.com/excel-vba-worksheets-tutorial-vba-activesheet-vs-worksheets/ إذا كان لديك المزيد من الأوراق المحددة Sheets(Array ("Sheet1" ، "Sheet2" ، "Sheet3")) ورقة ("SHEET2"). تفعيل سيتم تنشيط ورقة 2 (لا تزال جميع الأوراق الأخرى محددة) Sheets(Array ("Sheet1" ، "Sheet2" ، "Sheet3")) ورقة ("SHEET2"). اختر إذا كنت تستخدم التحديد ، فإن ورقة 2 هي الورقة الوحيدة التي تم اختيارها آنذاك بارك الله فيك عفوا استاذى سليم فلم ارى مشاركتك جزاك الله كل خير

.Select يعني تحديد (يكمن ان تحدد اكثر من شيء عدة أوراق نطاق بالكامل ....) Activate تنشيط (يعني من بين الخلايا أو الأوراق المحددة تنشيط الخلية او الورقة الثانية مثلاً) اذا كان المحدد شي واحد Select=Activate ربما يظهر الفرق اذا استعملت هذا الماكرو Option Explicit Sub Actv_SeL() Range("a1:a10").Select Range("a5").Activate End Sub Sub Actv_SeL_sheets() Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Sheets("Sheet2").Activate End Sub

تفضل لك كل ما طلبت ht.xlsm

اتفضل SELECT جدول1.name, جدول1.Numx, جدول1.kind, IIf([kind]="pc",DLookUp("[numx]","[tab]","[numx]= " & [Numx] & " ")) AS Expr1 FROM جدول1 GROUP BY جدول1.name, جدول1.Numx, جدول1.kind; test951159.mdb

جزاك الله كل خير أخي الكريم علي محمد علي كود أكثر من رائع أستاذ سليم - دائماً تمتعنا وتبهرنا بأكوادك المميزة

اعمل هذا في الاستعلام وهذا في الحقل للجمع =Nz(Sum([Expr1]);"0") Expr1: IIf([kind]="pc";DLookUp("[numx]";"[tab]";"[numx]= " & [Numx] & " "))

طالمل انك لا تقوم برفع الملف جرب هذا راتب الموظف من عن طريق البصمة.rar

اهلا بك اخى الكريم فى المنتدى عليك بأختيار اسم العميل من القائمة من الشيت الرئيسى وسيتم جلب البيانات المطلوبة بارك الله فيك book.xlsm

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

بعد اذن اخي علي لا ضرورة لهذا الكود الطويل يكفي هذا الكود Sub Auto_add() Range("d1").Copy Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd Application.CutCopyMode = False Range("a2").Select End Sub الملف مرفق auto_add_Num.xlsm

وعليكم السلام تفضل اخى الكريم زيادة وجمع رقم تلقائى الى مجموعة ارقام.xlsm

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

السلام عليكم تتم هذه العملية بعمل استعلام تكوين جدول Tab ----- والمعلومات من جدول Tab1 بالتوفيق

اتفضل هذا طلبك الاول اعاده طلب ادخال الرقم وطلبك الاخير الاثنين معا دعوه صالحه تكفي abo yaseen.accdb

التغيير يكون هنا : Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Double) الكلمة في آخر الجملة Double اي ان المتغير رقمي مزدوج بدلا من Integer عدد صحيح طويل ايضا تم التعديل في تنسيق حقل الدرجة في التقرير كي يظهر الكسر .. انظر المثال وضع_دائرة_على_رقمUP2.rar

اولا الملف الذي ارفقته توجد به مشكلة عند فتح النموذج في وضع التصميم يتوقف الاكسس عن العمل ويتم اغلاقه وعند فتح الوحدة النمطية للتعديل عليها ايضا يتوقف عن العمل يوجد سطر برمجي زائد في محرر الاكواد حاول ازالته اعتقد عندما تقول يتم اغلاق النموذج بأي طريقة( غير نظامية ) في تصوري لاتوجد الا طريقة واحدة وهي عن طريق زر الفأرة الأيمن طبق كما هو موجود بالصورة لعلك تصل الى ماتريد ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم