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

عليكم السلام استاذ WESAMZALL1177 تفضل هذه المحاولة ارجو ان تكون طلبك فاتوره-2.rar

سيدي الفاضل 🙂 البرنامج يفتح على هذا النموذج الرئيسي . 1. شاشة ادخال البيانات ، بحيث يتم حفظ البيانات تلقائيا لما تنتقل من سجل لآخر ، وبينات الحقول الصفراء في السجل سيتم تلقائيا اخذها من الحقول اعلاه ، ولما تفتح النموذج ، يكون بدون بيانات : . 2. البيانات اعلاه ، ويمكنك تعديلها/حذفها : . 3. ادخل رقم الصفحة اللي تريدها ، وسترى النتائج : . 4. ادخل التاريخين ونوع العدد (موجب ، سالب ، الجميع) ، وسترى النتائج (ولا اعرف اذا النتائج صحيحة ، فرجاء التجربة) : . 1311.Data.accdb.zip

سيدي الفاضل ، 5 نماذج فرعية !! انا اعطيك الجائزة الاولى لمثل هذا العمق في النماذج 🙂 ولكني ولسبب ما ، اعتقد بأنه بإمكانك عمل هذا بطريقة اسهل ، ولا اعرف كي 🙂 فككت لك الكود بطريقة مفهومة ، وقد يستفيد منها بقية الاعضاء لأمور مثل طلبك : Private Sub cmd_Colapse_Click() Me.subform.Form.SubdatasheetExpanded = False End Sub Private Sub cmd_Expand_Click() On Error GoTo err_cmd_Expand_Click Me.subform.Form.SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubAcc5.Form. _ SubdatasheetExpanded = True Exit_cmd_Expand_Click: Exit Sub err_cmd_Expand_Click: If Err.Number = 2455 Then Resume Exit_cmd_Expand_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وستحصل على الخطأ 2455 اذا لم يكن لديك نماذج فرعية كافية 😁 جعفر Database2.zip

أخي العزيز انظر الكود في المرفق لعله يفيدك ولا تتردد في اي استغسار أحر تحياتي ترحيل بيانات من الاجمالي الى السابق.xls

اهلا عزيزي.. قم بنقل شرط تصفية الاستعلام الى الحقل ( اسم المجهز ) وليس جهة تجهيز الكونكريت ويكون الشرط كالاتي: [Forms]![search]![supplier_name] لا تستخدم جملة الـ Like لانها تتضمن بحث جزئي

حيث انك لم ترفع ملف للمعاينة و من باب التكهن بما تريد اقترح لك هذا الملف degree.xlsm

سلسلة تعليم بور كويري الجزء الأول كيفية إضافة اعمدة بها عمليات حسابية- واضافة عمود بشرط How to use a condition column in Power Query في الفيديو دة تقدر تضيف عمود فيه عمليات حسابية وكمان تقدر تضيف عمود فيه شرط واكثر من شرط https://www.youtube.com/watch?v=PvL9qg7edQA&feature=youtu.be مثال 1 .. بور كويري.rar

بالخدمة استاذي العزيز

يعطيك الف عافيه اخي هذا هو المطلوب شكرا جزيلا

اذا كانت الأعمدة محتلفة هذه المعادلة (الصف الأصفر في الصفحة New sheet ) يمكن استبدال الرقم 500 الى اي عدد تريده =IFERROR(INDEX(Main!$A$2:$BN$500,MATCH($A6,Main!$A$2:$A$500,0),MATCH(B$1,Main!$A$1:$BN$1,0)),"") Smart_vlkup1.xlsm

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

ولا يهمك اتفضل انا جربت المرفق وكل شئ تمام اعتذر انا بس تعبان شوى ومش مركز تفعيل وإلغاء الشفت.mdb

1. تم عمل اللازم في المرفق ، 2. مافهمت !! رجاء تخبرني بالتفصيل عن المشكلة ، فانا لا ارى ما تراه ، في اي نموذجك و اي زر و اي حقل. جعفر 1311.1.Data.accdb.zip

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

ابشر

جرب دة Ali_Hasn.xlsm

جرب كدة Ali_Hasn.xlsm

اتا ارى من الافضل ادراج الاسماء في فائمة منسدلة مطاطة (لا الأرقام) مطاطة اي انها تستجيب لاي تغيير في قائمة الاسماء(نعديل/ اضافة/حذف....) اذا لم تظهر لك القائمة المتسدلة غادر الصفحة (Cerificats) ثم عد اليها مجدداً الملف مرفق Notes.xlsm

اتفضل تجربتى Database2 (1).accdb

وعليكم السلام 🙂 كان ياما كان في قديم الزمان ، كان فيه نسخة الاكسس رقمها 2010 ، وعملوا فيها إضافة ، وهي عملها على الانترنت ، وعلشان يعملوا تنسيق للاكواد ، عملوا تعديلات على نظام الماكرو ، واصبح افضل واشمل 🙂 ولكنهم لاحقا اوقفوا هذه الخاصية. الماكرو اسهل ولا تحتاج معرفة في البرمجة ، ولكن في نظر معظم المبرمجين ، الكود افضل ، لسهولته ومرونته ومقدرته التعامل مع الملفات والبرامج الخارجية 🙂 جعفر

بالاذن خيار آخر ترحيل المبيعات.xlsm

متفضل ااستاذ الف شكر على المعلومة تم حلها ما اعرف كيف اشكرك اللهم يجعل لكم ماتتمنى

للأسف لا يمكن معرفة الخطأ بدون ان تعرض لنا الجملة اللي كتبتها ، علشان نشوفها ونخبرك اين الخطأ !! على العموم ، هذا هو الكود الكامل: Dim mySQL As String mySQL = "INSERT INTO " & "[" & y & "]" mySQL = mySQL & " ( [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23],[24], [25]," mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50]," mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75]," mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100]," mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125]," mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], [Sign On Date] ) " mySQL = mySQL & " SELECT" mySQL = mySQL & " [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23], [24], [25]," mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50]," mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75]," mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100]," mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125]," mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], Date() AS SDate " mySQL = mySQL & " FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');" 'Debug.Print mySQL DoCmd.RunSQL mySQL جعفر

عليكم السلام، بشكل عام قم بنداء جميع الازرار من خلال زر واحد: Private Sub cmdButton1_Click() 'مثلا هنا أكواد الزر الأول MsgBox "Hi I'm Button 1" End Sub Private Sub cmdButton2_Click() 'مثلا هنا أكواد الزر الثاني MsgBox "Hi I'm Button 2" End Sub Private Sub cmdButton3_Click() 'مثلا هنا أكواد الزر الثالث MsgBox "Hi I'm Button 3" End Sub 'نأتي للزر الشامل الذي عند الضغط عليه سيقوم بالضغط على جميع الازرار دفعة واحدة Private Sub ClickAll_Click() cmdButton1_Click cmdButton2_Click cmdButton3_Click End Sub ارفق برنامجك لكي نتمكن من مساعدتك.

اخي الفاضل ....السلام عليكم الكود في الملف الاول به طباعة صفخة اسمها H2 وفي ملفك لا يوجد صفحة بهذا الاسم الكود في الملف الثاني به طباعة صفخة WORKSHEETولا يوحد في ملفك صفحة بهذا الاسم فمن الطبيعي ظهور الحطأ الحل بسيط جدا استبدل في الكود في الملفين Sheets("H2").Activate Sheets("workbooks").Activate بدل H2 و workbooks ضع بدلهما استمارة متابعة وسيعمل الكود باذن الله ولو اانك رجعت الى مشاركتك السابقوالتي اجابك فيها الاستاذ علي لا كتفيت بها ولاغناك عن طلبك هذا اضغط على الرابط لمشاهدة مشاركتك السابقة لكم وافر التقدير والاحترام

استاذ عبدالله الصاري اشكرك علي تعب حضرتك معي ومتابعتك

طريقة اخرى كشف حساب1.xlsm

جرب الملف تحويل الى \pdf كشف حساب.xlsm

على العموم اتفضل انا استخدم هذا الروتين فى تنقيذ الشورت كت Creat Shortcut.zip

جرب هذا الكود Option Explicit Sub Get_data() Dim M As Worksheet, J As Worksheet Dim LJ_A%, LM_A% Dim col% Dim RM As Range Set M = Sheets("المبيعات اليوميه") Set J = Sheets("اجمالى المبيعات") col = 5 LM_A = M.Cells(Rows.Count, 1).End(3).Row If LM_A = 1 Then Exit Sub LJ_A = J.Cells(Rows.Count, 1).End(3).Row + 1 Set RM = M.Range("A2:E" & LM_A) J.Range("a" & LJ_A).Resize(LM_A - 1, col).Value = _ RM.Value M.Range("A2:E30").ClearContents M.Range("B2:B30").Formula = _ "=IF(A2="""","""",VLOOKUP(A2,aly,2,0))" End Sub الملف مرفق Ali_Hasn.xlsm

بالعودة للكود الأول يمكن تعديله Sub test() Dim ar As Range Dim sh As Worksheet Dim i As Long For i = 1 To Sheets.Count If Sheets(i).Name <> "TOTAL" Then Set sh = Sheets(i) For Each ar In sh.Cells(3, 3).Resize(26).SpecialCells(xlConstants).Areas ar.Offset(, -1) = ar.Offset(, 1).Value ar.Value = 0 Next End If Next End Sub

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim db As DAO.Database Dim rs As DAO.Recordset Dim rss As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("SELECT tbl1.*FROM tbl1;") Set rss = db.OpenRecordset("SELECT tbl2.*FROM tbl2;") rs.AddNew rs("txt1") = Me.txt1 rs("txt2") = Me.txt2 rs("txt3") = Me.txt3 rs.Update rs.Close rss.AddNew rss("txt1") = Me.txt1 rss("txt2") = Me.txt2 rss("txt3") = Me.txt3 rss.Update rss.Close تحياتي

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

فقط استبدل الرقم 9 واجعله 109 في نفس الدالة دالة sumifs 1مع الفلترة.xlsx

بعد إذن السادة الزملاء الأفاضل لإثراء الموضوع جرب الدالة SUBTOTAL والفلترة في نفس ورقة العمل تؤدي الغرض جرب الملف المرفق دالة sumifs 1مع الفلترة.xlsx

السلام عليكم اساتذتنا الكرام في موضوع سايق طرحت طلب المساعدة في برنامج البصمة لكن يبدوا ان المطلوب لم يكن واضح رغم لا يعتمد الا على دالة if متعددة الشروط وساوضح المطلوب من جديد لدينا لدينا ملف به صفحاتان الاولى دخول العمال لادخل رقم البطاقة في الخلية a3 فيقوم الكود بالترحيل المجال من a3 الى d3 الى صفحة دخول 1 اذا كان رقم البطاقة غير مكرر يرحل المجال من a3 الى d3 في صفحة دخول العمال الى صفحة دخول 1 الى اخر سطر فارغ . اذا وجد الرقم مكرر يرحل فقط الخلية d3 من صفحة دخول العمال الى العمود f في صفحة دخول 1 هذا الجزء الاول من المطلوب هل اجد مساعده من فضلكم برنامج البصمة2.rar

تفضل البرنامج فهو يعمل معى كما ترى برنامج الصقر لحضور وانصراف الموظفين.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة يوزر فورم بحث وتعديل واضافه ومشاهده تم ارفاق كود المشاركه من الفاضل/ كيرلس - ابن الملك و تم تعريبه عن طريق اعضاء المنتدى الافاضل و لا تنسونا من صالح الدعاء تحياتى New-Userform- (eng).rar New-Userform-Arabic.rar

نفس الشي حتى برنامجك يطلع لي خطأ لمى اشغلة