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

وعليكم السلام 🙂 نفترض ان حقل اليوم هو iDate ، وحقل العطلة هو iLeave ، عليه ، ممكن نضع هذا الكود على حدث "بعد تحديث" iDate : select case me.iDate case "Friday" , "Saturday" , "الجمعة" , "الجمعه" , "السبت" me.iLeave ="عطله رسمية" else case me.iLeave ="" end select . اما اذا اردت ان تجعلها في استعلام ، فيمكن استعمال الكود التالي للحقل iLeave : iLeave: iif([iDate]="Friday" or [iDate]="Saturday" or [iDate]="الجمعة" or [iDate]= "الجمعه" or [iDate]="السبت" ,"عطلة رسمية" , "") جعفر

وذلك بوضح هذه الأكواد بحدذ الصفحة Public oldval As Double Sub KH_TEST() oldval = 0 End Sub Private Sub Worksheet_Change(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then _ Target = oldval + Target Else Target = oldval Application.EnableEvents = True End If 1 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then oldval = Target Else oldval = 0 Application.EnableEvents = True End If 1 End Sub الصلاة١.xlsm

بالخدمة اخي العزيز Root4510.rar

السلام عليكم استاذ حربي العنزي هذه محاولة ارجو ان تكون موفقة يرجى التاكد من النتائج قبل الاستخدام النهائي ملاحظة : دالة العدد الصحيح هي دالة لاحد الاساتذة وعذرا لاني لا اعلم من هو ام دالة الكسر فهي محاولة وهي ايضا مبنية على دالة العدد الصحيح مع بعض التعديلات Root4500.rar

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

رمضان كريم الاستاذان عبدالفتاح في بي اكسيل و الرائد 77 الف مبروك الترقية التي تستحقانها عن جدارة

بعد اذن استاد علي كود بطريقة اخرى انقر على اي قيمة من الخلايا المحددة سيطلع مربع حوار اكتب القيمة وسيتم الاضافة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xRtn As Variant If Selection.Count = 1 Then If Not Intersect(Target, Range("c:m")) Is Nothing Then If IsNumeric(Target) And Target <> "" Then xRtn = Application.InputBox("Insert your value please") If xRtn <> False And IsNumeric(xRtn) Then Target.Value = Target + xRtn End If End If End If End If End Sub الصلاة2.xlsm

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

تفضل اخي العزيز ارجو ان يكون طلبك في النموذج الثاني فيه طلبك الثاني Root100.rar

تفضل اخي العزيز Rep2: IIf([Type] = 1;"عربي";IIf([Type] = 2;"انجليزي";"فرنسي")) ارجو ان يكون طلبك ملاحظة : اسم الحقل Type من الكلمات المحجوزة وعليه يجب تبديل الاسم

السلام عليكم 🙂 الكود باللون الاصفر يعمل تغيير معين في ريجستري الكمبيوتر (لا اعرف هذا التغيير) ، ولا علاقة له بالنسخ 🙂 جعفر

طريقة اخرى مع طرق المبدع @jjafferr ممكن تضع مصدر مربع النص هذا الكود .... على افتراض ان مربع النص الذي يظهر فيه عبارة الخميس والجمعة هو a =IIf([a]="الخميس" Or [a]="الجمعة";"عطلة رسمية")

السلام عليكم 🙂 اعتقد اخوي @ابوخليل عنده معرفة في هذا الموضوع اكثر مني 🙂 جعفر

شكرا لك إستاذي العزيز علي وإن شاء الله في ميزان حسناتك مشكور استاذي عبد الفتاح وإن شاء الله في ميزان حسناتك

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

وعليكم السلام اتفضل ان شاء الله يكون ما طلبت Database2(1).accdb

اتمنى ان يكون ما تريد في هذا العمل stok.xlsm

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

وعليكم السلام اخى @beLaL 100 جرب ووافنى بالنتيجه ان شاء الله يكون ما تريد تم تغيير الرقم 4 الى 6 وجزاها الله خيرا ام عهود DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) ' Next line shows the required path for the backup database NewFile = "e:\العملاء" & "\" & DBwithoutEXT & " Backup Date " & Format(Date, "yyyy_mm_dd") & " Time " & Format(Now(), "Hh Nn AMPM") & Right(DBwithEXT, 6) بالتوفيق اخى قاعدة بيانات.rar

تفضل اخي الكريم مع انني ضد فكرة حذف الملفات تلقائيا والسبب في بعض الاحيان تحتاج الى الرجوع لملف قديم للاطلاع على تعديل ما ملاحظة هامة جدا :: الكود يحذف كل الملفات في المجلد D:\Backup نسخة احتياطية مضغوطة.rar

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

اليكم فيديو شرح برنامج احفظ جدول الضرب https://youtu.be/GaMychEZxmU وملف البرنامج اسفل الفيديو ملف البرنامج محدث فى الاسفل الرابط

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

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

وعلى جميع الناس اللهم امين

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

وعليكم السلام 🙂 وقد تستفيد من هذه الروابط : . جعفر

الاستاذ والاخ جعفر المحترم ... وقبل ان افتح المثال لايسعني الا ان اقف مبهورا امام هذه الروعه في التوضيح والفهم والافهام ... اما ثانيا : الفرز التصاعدي ... فعلا لم اجد احدا تطرق له وتابعت كثير من الامثلة والشروحات والكود على الفرز فهو يتم لحقل واحد وليس لحقلين معا بنفس الوقت ... ساشرح الامر عندي ( هناك رحلات مغادرة DEP وقادمة ARA منها خارجية OUT ومنها داخلية IN ، ويتم ادراج بياناتها الخاصة يوميا والمطالبة بتقرير مشترك لهما (تقرير القادمة خارجية داخلية OUT_IN_ARA او المغادرة خارجية داخلية OUT_IN_DEP) فعند الاملاء مرة يكون عدد الخارجية اكثر تسلسلا ومرة يكون عدد الداخلية اكثر تسلسلا ) الذي يحدث ( ان في التقرير عندما تكون مثلا الداخلية اكثر ولايقابلها شيء في الخارجية فان التسلسل الاخير يظهر في المقدمة والعكس صحيح ايضا ) فاردت اي طريقة يكون فيها التسلسل متدرجا بشكل طبيعي وان لم يقابله ذات التسلسل يعني ( اذا تسلسل الخارجية 8 والداخلية 9 فيبقون مرتبين للاسفل لكن الذي يحدث ان تسلسل 9 يقفز ليصبح قبل 1 ) والمصدر هو استعلام التوحيد نفسه . ولو لاحظت صورة المثال الاخير (ستجد ان التسلسل داخلي هو رقم 4 ثم 5 ثم 6 ثم 7 ثم 8 ثم 1 ثم 2 ثم 3 لعدم وجود تسلسل موازي له في تسلسل خارجي ) ... فرج الله همك اخي العزيز استاذ جعفر ....وجميع الاخوة في الموقع .

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

يا اخي لست بحاجة الى اكثر من 6000 صف لمعاينة عمل ماكرو الماكرو الذي ينفذ على صف واحد يمكن ان يعمل على الوف الصفوف تم ادراج ملف يحتوي على بضغة بيانات للتجربة واليك النتيجة الكود Option Explicit Sub SansDoublons_By_FirstAcurance() If ActiveSheet.Name <> "Sheet1" Then Exit Sub Dim d As Object Dim Lr_c#, i#, k#, a(), b() Dim x x = [G4].CurrentRegion.Rows.Count If x > 6 Then _ [G4].CurrentRegion.Offset(6).Resize(x - 6).Clear Lr_c = Cells(Rows.Count, "c").End(3).Row If Lr_c < 10 Then Exit Sub Set d = CreateObject("Scripting.Dictionary") a = Range("C10:D" & Lr_c) ReDim b(1 To UBound(a, 1)) For i = LBound(a) To UBound(a) If a(i, 1) <> vbNullString Then For k = 1 To UBound(a, 2): b(k) = a(i, k): Next d.Item(a(i, 1)) = b End If Next i With [G10].Resize(d.Count, UBound(a, 2)) .Value = Application.Transpose(Application.Transpose(d.items)) .Borders.LineStyle = 1 .InsertIndent 1 End With End Sub الملف مرفق Without_Duplicate.xlsm

شكر وتقدير للاساتذة الافاضل

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

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

السلام عليكم 🙂 . . ثم في التقرير : . والنتيجة : . اما الطريقة الثانية : انا اعتذر ، كنت اعتقد بأن Combobox موجود عندك في النموذج ، ولكن الظاهر انك عملت Lookup للحقل في الجدول (وهذه الطريقة لا يُنصح بها لمشاكلها ، ومنها ما تواجهه انت الآن) !! فالطريقة اننا نحول الحقل في التقرير الى Combobox ، ثم نأخذ طريقة بيانات الحقل من الجدول ، ونضعه في حقل التقرير : . والنتيجة كذلك: . اما هذه رجاء تشرحها بمثال وبأرقام ، لأني ما سمعت بهكذا عمل سابقا 🙂 جعفر 1212.TEST_QUERY.accdb.zip

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى

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

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

على الرغم انه لا يمكن العمل على التخمين وتجنبا لعدم اهدار وقت الأساتذة ..كان عليك رفع ملف موضح عليه المطلوب بكل دقة , ولكن يمكنك استخدام هذا الكود Private Sub UserForm_Activate() ChartNum = 1 UpdateChart_OverallOEE UpdateChart_OverallUnits UpdateChart_OverallWeights End Sub Private Sub UpdateChart_OverallOEE() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 710 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallOEE.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallOEE.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallUnits() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallUnits.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallUnits.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallWeights() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 175 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallWeights.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallWeights.Picture = LoadPicture(Fname) End Sub

يجب ان يكون المجلد fails موجود مسبقا

السلام عليكم 🙂 اخي ازهر : اذا عندك المريض A في المستشفى ، ثم خرج من المستشفى ، ثم عاد مرة اخرى !! طريقتك لن تسمح له ، لأن اسمه موجود على القائمة 🙄 لذا انصحك ان تعمل حقل "تاريخ الخروج" من المستشفى ، او موجود/غير موجود ، واللي على اساسه تتم التصفية كذلك 🙂 جعفر

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

بارك الله فيك أستاذنا أحمد الفلاحجى والحمد لله أنا بخير ونسأل الله أن يرفع عنا جميعا البلاء والوباء وسيئ الأسقام ملحوظة .. أنا قاهرى 😀

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

يمكنك ذلك بملاحظة ودراسة معادلات جدول البيانات الأخر المتواجد من النطاق CC1: CH3 حيث تم تعديل معادلة الرسم البيانى لأن يأخذ من هذا الجدول ..وموجود كل هذا بالملف المرسل اليك

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

إضافة زر استعراض بدل نسخ مسار المجلد الذي يحتوي على الملفات في inputbox hyperlink2.xlsm

تفضل . هايبرلينك لملفات في مجلد ما . و هايبر عن طريق الليست بوكس و ورقة العمل hyperlink.xlsm

وعليكم السلام-تفضل كشف رصد درجات المرحلة الأساسية.xlsb

السلام عليكم جرب المرفق و لا ادري ان كانت هناك اخطاء او لا الصادر و الوارد_.rar