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

اخوي @فايز.. عندي استفسار وعلى بال ما اجيب كمبيوتر عربي الرسائل : 1. اجبار المستخدم ادخال نص ... مفهومة 2. لايوجد سجل .. مفهومة 3. هذ اللي مش فاهمها وجايه بالمقلوب عندي ؟ ممكن تشرح متى تستخدمها ؟ هل هي للبحث عن اسم اخر نفس نص البحث ؟ وكم مره البحث هل اسمين فقط ام اكثر؟ ياليت تشرح فائدتها هنا 4. تم ايجاد السجل .. مفهومه تحياتي

جزاك الله خيرا اخى @محمد ابوعبد الله ومشاركه بسيطه مع اخى محمد اخى @ازهر عبد العزيز لمعالجه الخطأ فى الحقل tva فالنموذج IIf([vid]<>"";Nz(DLookUp("tva";"qtva";"vid=" & [vid]);0);"") بالتوفيق اخوانى

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =DLookup("[tva]"; "[qtva]"; "[vid] =" & vid) VID.rar تحياتي

السلام عليكم تفضل اخي الكريم بعد تعديل بسيط على الجدول اتمنى يكون المطلوب تحياتي قاعدة البيانات3.mdb

أهلا بكم.. في الحقيقة أن هذا الأمر كان يشغلني منذ البداية! ومن الناحية الفنية فإن ورقة البيانات بها مشكلتين __ الأعمدة التي بها البيانات. __ تساوي البيانات المطلوب تسجيلها في الملف، بمعنى تساوي مجموع الصفوف في بطاقة البيانات في ورقة البيانات مع عدد حقول البيانات في جدول بيانات الطلبة. إذا كان الأمر يتعلق بالمطور فإن بمقدوره تعديل الشفرة بما يتفق مع الحالة التي تواجهه.. لكن لا يمكن ذلك مع المستخدم الذي لا علاقة له بالبرمجة! إذا كان هذا الأمر يثير اهتمامكم فأرجو أن تفتحوا مشاركة جديدة مع الإشارة إلى هذه المشاركة، لكون هذه المشاركة تم الإجابة عنها

جرب هذا الكود Option Explicit Sub Colorize_Dupicates() Dim Sh As Worksheet, A As Worksheet Dim Rg As Range, cel As Range, _ Act_Rg As Range, F_rg As Range Dim Fadr$, Sadr$ Dim D As Object Dim i%, X%, y% Set Sh = ActiveSheet Set Rg = Sh.Range("a1").CurrentRegion.Columns(1).Cells X = Sh.Cells(Rows.Count, 1).End(3).Row Sh.Range("C1:z" & X).Clear Set D = CreateObject("Scripting.Dictionary") Rg.Interior.ColorIndex = xlNone For Each A In Sheets A.Range("a1").CurrentRegion.Columns(1) _ .Interior.ColorIndex = xlNone A.Range("C1:z100").Clear Next For Each cel In Rg For Each A In Sheets If A.Name <> Sh.Name Then Set Act_Rg = A.Range("a1").CurrentRegion.Columns(1) X = A.Cells(Rows.Count, 1).End(3).Row Set F_rg = Act_Rg.Find(cel, lookat:=1) If F_rg Is Nothing Then GoTo Next_A cel.Interior.ColorIndex = 6 Fadr = F_rg.Address: Sadr = Fadr Do F_rg.Interior.ColorIndex = 6 D(A.Name & " :Row (" & F_rg.Row & ")") = vbNullString Set F_rg = Act_Rg.FindNext(F_rg) Sadr = F_rg.Address If Sadr = Fadr Then Exit Do Loop End If Next_A: Next A If D.Count > 0 Then With cel.Offset(, 2).Resize(, D.Count) .Value = D.keys .Borders.LineStyle = 1 .Interior.ColorIndex = 38 .InsertIndent 1 End With With cel.Offset(, 2 + D.Count) .Value = IIf(D.Count = 1, "1 Duplicate", D.Count & " Duplicates") .Borders.LineStyle = 1 .Interior.ColorIndex = 6 .InsertIndent 1 End With Else With cel.Offset(, 2) .Value = "No Duplicates" .Borders.LineStyle = 1 .Interior.Color = vbGreen .InsertIndent 1 End With End If D.RemoveAll Next cel End Sub الملف مرفق Count_Tekrars.xlsm

نعم عزيزي.. إليك هذا الحل السريع Posters.accdb

مساهمة مع أخواتي الخبراء تفضل لعله يكون المطلوب تم إضافة زر البحث بجزء من الكلمة يمكنك أيضا التنقل بين خانت البحث المطابق برز التنقل If IsNull(Me.txtSearch) Then Me.FilterOn = False: Exit Sub Me.Filter = "[StName] like '*" & txtSearch & "*'" Me.FilterOn = True Posters4.zip

جرب هذا الكود Option Explicit Sub Get_sum() Dim Main As Worksheet Dim Sh As Worksheet Dim Start_Date As Date, Final_date As Date Dim Last_Row%, i% Dim AL_Result# Set Main = Sheets("Salim") Start_Date = Main.Cells(2, 3): Final_date = Main.Cells(2, 4) For Each Sh In Sheets If Sh.Name <> Main.Name Then Last_Row = Sh.Cells(Rows.Count, 1).End(3).Row For i = 5 To Last_Row If Sh.Cells(i, 1) >= Start_Date And _ Sh.Cells(i, 1) <= Final_date Then AL_Result = AL_Result + _ Application.Sum(Sh.Cells(i, 1).Offset(, 4).Resize(, 5)) End If Next i End If Next Sh Main.Cells(2, 2) = AL_Result Set Main = Nothing: Set Sh = Nothing End Sub الملف مرفق Total_sum.xlsm

السلام عليكم تفضل اخي الكريم انظر استعلام باسم Query1 الموظفين.rar مع اني اتنصحك بتقسيم جدول الموظفين الى جدولين الجدول الاول خاص بالبيانات والجدول الثاني خاص بالعلاوات ( رقم الموظف - التاريخ - رقم العلاوة ) تحياتي

يا هلا باساتذتنا الفضلاء @jjafferr و @أحمد الفلاحجى و @Hawiii لما قريت الجملة السابقة حسيت بالجوع ضغط العمل اضاع علينا الغداء والاجر عند الله سبحانه ما قصدته في ردي ان كل الطرق تؤدي الى روما ولكني لا احب الامثلة الاجنبية لذا اقول كما قال الشاعر علي بن سودون اليشبغاوي كأنّنا والماءُ مِن حَولِنا -- قَومٌ جُلوسٌ حَولهم ماءُ الأرضُ أرضٌ والسَّماءُ سماءٌ -- والماءُ ماءٌ و الهَواءُ هواءُ كُلُّ الرجالِ على العُمومِ مُذَكَّرٌ -- أما النِساءُ فُكُلّهن نِساءُ الميمُ غَيرُ الجيمِ جاءَ مُصَحَفّا -- وإذا كَتَبتَ الحاءَ فهي الحاءُ تحياتي وتقديري لكم اساتذتنا الاكارم

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

السلام عليكم استمر على الخط 128 ، غالبا جميع اجهزة الباركود تقرأه

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

السلام عليكم.. أرى أن حواراً ممتعا دار في هذه المشاركة مما أثار رغبتي في المشاركة.. 😀 أرجو أن تجدوا في هذه المشاركة شيئاً جديداً ومميزاً.. 🤩 سوف نتعامل مع مصنف أكسل كقاعدة بيانات ولعمل ذلك نطبق الشفرة التالي '-- OPEN XLS FILE AS REMOTE DATABASE Dim XLDB As DAO.Database Set XLDB = OpenDatabase( _ CurrentProject.Path & "\CS_SeetNumberLabels2.xlsx", False, False, "EXCEL 12.0;HDR=NO;") عند فتح مصنف أكسل كقاعدة بيانات سوف تصبح أوراق البيانات كجداول بيانات في أكسس، ولكي نتحقق من ذلك نستخدم الغرض TableDefs لسرد أسماء الجداول (أوراق البيانات) '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs TD.Name Next :: عند النظر إلى ورقة البيانات في مصنف البانات نجد البيانات محصورة في العمودين (C,I) والبيانات ليست متساوية الطول وبالتالي نحن بحاجة إلى جعل كل عمود جدول بيانات مستقل! :: يوجد في مكون البيانات Recordset وظيفة اسمه Getrows تقوم بتجميع البيانات كمصفوفة بيانات يحدد طولها المستخدم حسب احتياجة. ولكون البيانات الطالب في ورقة البيانات تتكون من 5 صفوف؛ وبناءُ عليه سوف نقوم بتجميع البيانات على هذا الأساس. لكن يجب أن نقوم بأخذ عدد السجلات في الجدول (ورقة البيانات) والذي هو بالتأكيد من مضاعفات الـ(5). الوظيفة Getrows تقوم بأخذ المجموع التالية من السجلات عن اطلاقها مرة أخرى وبالتالي نحن بحاجة إلى دوارة بطول السجلات وتقوم بالقفز كل 5 سجلات، بمعنى (20/5). :: نقوم بعد ذلك بتسجيل البيانات في جدول الطلاب من مصفوفة البيانات التي تعيدها Getrows. :: سوف تدور الشفرة على جميع الجداول (أوراق البيانات) وتكرر جلب البيانات مرتين حسب أعمدة البيانات التي سبق الإشارة إليها. كما أنها تقوم بحذف الصفوف الفارغة عند جلب البيانات. الشفرة التالية توضح المبدأ السابق وطريقة نقل البيانات.. '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs '-----------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (C) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "C:C]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing '--------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (I) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "I:I]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing Next إليكم الشفرة كاملة Option Compare Database Option Explicit Sub IMPORT_XLSDB() On Error GoTo SUB_CLOSE '-- OPEN CURRENT DATABASE AS LOCAL DB Dim DB As DAO.Database Set DB = CurrentDb '-- OPEN RS DB TO ADD DATA Dim DBRS As DAO.Recordset Set DBRS = CurrentDb.OpenRecordset("TABLE") '-- OPEN XLS FILE AS REMOTE DATABASE Dim XLDB As DAO.Database Set XLDB = OpenDatabase( _ CurrentProject.Path & "\CS_SeetNumberLabels2.xlsx", False, False, "EXCEL 12.0;HDR=NO;") '-- OPEN XLS SHEET AS REMOTE RS Dim XLRS As DAO.Recordset Dim RCROW() Dim RC As Long Dim I As Integer Dim TD As DAO.TableDef '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs '-----------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (C) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "C:C]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing '--------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (I) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "I:I]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing Next SUB_CLOSE: '-- COLOSE XLDB AND XLRS Set XLRS = Nothing ' XLDB.Close Set XLDB = Nothing '------------------------' '-- CLOSE DB AND DBRS Set DBRS = Nothing XLDB.Close Set XLDB = Nothing End Sub وهذه هي المفرفقات التى تتضمن المثال... CS_SeetNumberLabels2.xlsxPosters.accdb

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

يشرفني تعديلك ويسعدني مرورك وإضافة رائعة تشكر عليها استاذي رمهان ويبقى الخيار للاخ فايز أيهما يناسبه .

اخي @فايز.. بما انك مش فاهم الكود تبع الاستاذ زهرة وناسبك كود الاستاذ ابو امنه هذا تعديل على كود الاستاذ @ابوآمنة وبعد اذنه Private Sub cmdSearch_Click() If IsNull(Me.txtSearch) Then Me.FilterOn = False: Exit Sub Me.Filter = "[StName] like '*" & txtSearch & "*'" Me.FilterOn = True If Me.StName Like "*" & txtSearch & "*" Then MsgBox "موجود" Else MsgBox "غير موجود" End Sub ولاحظ ان الكود يفلتر السجلات اي السجلات التي ستكون بالنموذج فقط نتائج البحث دون السجلات الاخرى وهنا - ميزة : عند النقر على زر التالي ستجد السجلات الاخرى لنفس البحث . مثلا لوكتب القحطاني سياتيك سجلات الذين يحتوون على القحطاني فقط وتتنقل بالزر التالي الاول تلو الاخر - عيوب : ستفقد السجلات الاخرى .. فلو اردت البحث عن اسم اخر لن تجده لان السجلات اصبحت فقط للبحث السابق القحطاني . وهنا لابد من الغاء الفلتره لعودة جميع السجلات والبحث مره اخرى .. لالغاء الفلتره فقط استخدم me.filteron=false ولكن اين تضعه شوف اللي يناسبك وممكن يكون بزر جديد بالتوفيق

هل جربت الاستعلام وكان يعمل لديك قبل النسخ ؟؟؟؟ اذا كانت الاجابة بنعم جرب نقل الكود في برنامجك ... وأعلمنا بالنتيجة DoCmd.RunSQL " SELECT [cust ].name, [chance].a1, [chance].a2, [chance].a3, [chance ].a4, [chance].a5, [chance].a6 " & _ " FROM [chance] RIGHT JOIN [cust] ON [chance].name = [cust].id " & _ " WHERE ((([chance].a1) Is Not Null) AND (([chance].a6) Like ""*"" & [Forms]![report]![txt1] Or ([chance].a6) Is Null));"

وعليكم السلام اخى الفاضل رساله type mismatch تعنى ان هناك اختلاف فى انواع الحقول المطلوبه مثل نصى ووضعته رقمى او العكس وهكذا اذا لم تصل ارفق مثالك وان شاء الله اخوانك واساتذتنا ما بيقصروا بالتوفيق ان شاء الله

جزاك الله خيرا اخى صالح @ابوآمنة ولا اروع من كده تسلم ايدك بارك الله فيك اخى @فايز.. منور اخى واستاذنا العزيز @رمهان تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

إضافة تم تضليل عنصر البحث Posters4.zip

مشاركة رائعة من مشارك أروع .. جزاك الله خيرا .. وهذا ملف الأخت زهرة .. مرفق za-EmployyeUP.rar

توجد عدة طرق الطريقة الأولى : توجد برامج لتغير الأيقونات الطريقة الثانية : بإستطاعتك وضع البرنامج في ملف خاص وليكن في داريف \:D ثم تقوم بإنشاء اختصار إلى سطح المكتب للبرنامج ، ثم كليك يمين على الأختصار وأختر من خصائصة تغيير الأيقونة إلى أي شكل تريد الطريقة الثالثة : من أدوات = بدء التشغيل = اختر رمز التطبيق المناسب لك وأسهلها الطريقة الثانية انظر المرفق .... طبعا حولت الصورة فب البداية لأيقونة bar.rar

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

اتفضل اخى @فايز.. محاوله منى على قد حالى وجزاها الله كل خير ام عهود وجميع اخواننا واساتذتنا وارجو ارفاق ملف ام عهود الذى به الكود للاستفاده بارك الله فيك بالتوفيق ان شاء الله Posters2.accdb

تمام ها اجرب ووافيك بالنتيجة ان شاء الله

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

تفضل CS_SeetNumberLabels (2).xlsx

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

ولا يهمك اخى جرب الان ووافنى بالنتيجه date1.mdb

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

اما انا فاقول لكم اخوانى واساتذتى @Barna @jjafferr @أبو إبراهيم الغامدي جزاكم الله خيرا ونفع بكم الاسلام والمسلمين ورزقكم الفردوس الاعلى وانا يظلنا يوم لا ظل الا ظله بارك الله فيكم جميعا وفيك اخى فايز تمنياتى لكم وللجميع بالتوفيق ان شاء الله

بعد اذن الخبير و المحترم Shivan Rekany الاخ iman mohammed الحقول المحسوبه لابد ان تكون مدرجه فى الجدول انظر الى تصميم الجدول في التعديل و انا اضافت بعد الحقول المطلوب احتسابها و انظر الى المرفق اخر خانه باسم (( مم )) فيها التجميع المطلوب ربي يوفقك المدرسة الالكترونية الشاملة.rar

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

بارك الله فيك أستاذى العزيز وهو المطلوب

طريقة اخرى بالكود ... ستجد جميع ماطلبته في شيت التمويل بالاعتماد على البيانات في شيت يومية الخزينة المعادلة :- النقد الفعلي في الخزينة = ( صافي النقد في الخزينة ( اجمالي التمويل + اجمالي الايرادات - اجمالي المصروفات )) + ( اجمالي العهد ) يومية خزينة2020.xlsm

وعليكم السلام اخى الفاضل @AboBahaa حاجه كده على قد حالى جرب ووافنا بالنتيجه وان شاء الله يشاركنا اخواننا واساتذتنا بالتوفيق ان شاء الله date1.mdb

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

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

أخي عبد العزيز @أبو إبراهيم الغامدي شكر الله لك .. وجمل حالك .. سأحتفظ بكلا العملين ( ما تفضلت به وما تفضل به الأستاذ جعفر ) لكن لدي سؤال صغير ( فيما لو أردت استيراد أكثر من ملف دفعة واحدة هل هذا ممكن ؟؟ ) في الكود الحالي ؟؟ لأني جربت فلم ينجح .

وأياديك بيضاء أيضاً أستاذ جعفر.. لا عدمناك 🤑

ههههههههههههههههههه ما ودك رسل لي اثنين من الشباب ذولي يدرسوني ؟؟

أعتذر عن هذا الخطأ غير المقصود.. إليك التصحيح.. Posters.accdb

أولا الشكر للاستاذ الكبير @jjafferr و الاستاذ الكبير @أبو إبراهيم الغامدي على المشاركة ثانيا وبكل فخر أقول لكما نجحنا في استفزاز الكبار ثالثا استفدت انا شخصيا من مشاكتكم القيمة والاسلوب المتبع في صياغة بعض الاكواد شكرا ..... شكرا ...... لكما .... بارك الله فيكما وفي وقتيكما

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

فورم اكسل للبحث عن ايات القران الكريم وتفسيره ورقم الجذء والصفحة الفيديو فورم بحث عن ايات القران الكريم واجزائة.xlsm

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

هلا والله ابو آمنه 🙂 يا رجال ، جمعت الاشياء من هني وهناك ، مو تصدق 😁 انا اكسس وبس 🙂 جعفر

أستاذ يوسف عطا كل ما عملته هو أنه لاحظت كود أستاذنا الفاضل الأستاذ إبراهيم لا يعمل ووجدت السبب الذي يجعله لا يعمل فالملف الذي أرفقته في الملف التجريب به عدد 3 ماكرو أحدهم يجمع عمل كودين بحيث إذا تم تشغيل كود الدوائر يظهر كود حذف الدوائر بالتبادل و تم التعديل بإضافة الكود الذي يجعمل الكودين وكود الحذف وإليك الملف بعد التعديل تعديل أحمد.rar