كل الانشطه

الف شكر اخي الغالي @Foksh على هذا الكود التحفة اختصر ثلاثة ارباع الزمن Dim totalRecords As Long Dim recordsWithPositive1 As Long totalRecords = Nz(DCount("*", queryName), 0) recordsWithPositive1 = Nz(DCount("*", queryName, "[1]>0"), 0) For i = 1 To 14 Me("t" & i) = totalRecords Me("Te" & i) = recordsWithPositive1 Dim maleCount As Long Dim femaleCount As Long maleCount = Nz(DCount("*", queryName, "[gender]=1 AND [" & i & "]=0"), 0) femaleCount = Nz(DCount("*", queryName, "[gender]=2 AND [" & i & "]=0"), 0) Select Case i Case 1 maleCtrl = "Text1" femaleCtrl = "Text11" totalCtrl = "Text111" Case 2 maleCtrl = "Text2" femaleCtrl = "Text22" totalCtrl = "Text222" Case 3 maleCtrl = "Text3" femaleCtrl = "Text33" totalCtrl = "Text333" Case 4 maleCtrl = "Text4" femaleCtrl = "Text44" totalCtrl = "Text444" Case 5 maleCtrl = "Text5" femaleCtrl = "Text55" totalCtrl = "Text555" Case 6 maleCtrl = "Text6" femaleCtrl = "Text66" totalCtrl = "Text666" Case 7 maleCtrl = "Text7" femaleCtrl = "Text77" totalCtrl = "Text777" Case 8 maleCtrl = "Text8" femaleCtrl = "Text88" totalCtrl = "Text888" Case 9 maleCtrl = "Text9" femaleCtrl = "Text99" totalCtrl = "Text999" Case 10 maleCtrl = "Text10" femaleCtrl = "Text100" totalCtrl = "Text1000" Case 11 maleCtrl = "Text_11" femaleCtrl = "Text_111" totalCtrl = "Text_1111" Case 12 maleCtrl = "Text12" femaleCtrl = "Text122" totalCtrl = "Text1222" Case 13 maleCtrl = "Text13" femaleCtrl = "Text133" totalCtrl = "Text1333" Case 14 maleCtrl = "Text14" femaleCtrl = "Text144" totalCtrl = "Text1444" End Select Me(maleCtrl) = maleCount Me(femaleCtrl) = femaleCount Me(totalCtrl) = maleCount + femaleCount Next i Data7.rar

ابداع ابداع بارك الله فيك وربنا يجعله في ميزان حسناتك وشكرا جزيلا لأستاذنا الفاضل ( foksh ) لمتابعته ومشاركتنا

وعليكم السلام ورحمة الله وبركاته أهلا بك.. الطريقة التالية تقوم أولا بالتحقق من مسار الملف ، ثم التحقق من وجود الملف. وذلك عن طريق حدث السجل الحالي Private Sub Form_Current() '--تحقق مسار الملف مكان_الملف = "D:\FILE\" مسار_الملف = IIf(Len(Dir(مكان_الملف)), مكان_الملف, CurrentProject.Path & "\") & Me.رقم_الموضف & ".PDF" '-- تحقق من وجود الملف Me.لديه_ملف = IIf(Len(Dir(مسار_الملف)), "نعم", "لا") End Sub FILE.zip

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

دعماً للأفكار المطروحة ، جرب هذه الفكرة بعد ان تمت تجربتها Private Sub Datail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If Me.Counter > 25 Then Me.StuName.FontSize = 12 Me.StuName.Height = 300 Me.Datail.Height = 300 Else Me.StuName.FontSize = 14 Me.StuName.Height = 600 Me.Datail.Height = 600 End If End Sub

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

Up

Me.Upfield = Me.Upfield & " " & Format(Date, "yyyy,mmm,dd") أو Me.Upfield = Me.Upfield & " " & Format(Date, "yyyy,dd,mmm") جرب ما يحقق غايتك

هو ليس حقل تاريخ هو عبار عن حقل نص الكود VBA المستخدم فى حدث بعد التحديث هو Me. Upfield = Upfield & " " & Date

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

وعليكم السلام ورحمة الله وبركاته ،، أخي الكريم يوجد أكثر من طريقة واسلوب وحل ، ولكن قبل الشروع بذكر أحدها سأنصحك نصيحة متفرعة = 1. الإبتعاد عن التسميات العربية للجداول والحقول والنماذج ومكوناتها . 2. عدم استخدام "-" في التسميات ، والأفضل استخدام "_" إن كنت مضطراً . الآن في النموذج سنقوم بحذف جميع الأكواد ولا حاجة لها ولا حاجة للزر أيضاً ، ثم في مديول جديد ألصق الكود التالي :- Public Sub UpdateEmployeeFiles() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPath As String Dim strFileName As String strPath = CurrentProject.Path & "\" Set db = CurrentDb Set rs = db.OpenRecordset("جدول1", dbOpenDynaset) If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF strFileName = strPath & rs!رقم_الموضف & ".pdf" rs.Edit If Dir(strFileName) <> "" Then rs!لديه_ملف = "نعم" rs!مسار_الملف = strFileName Else rs!لديه_ملف = "لا" rs!مسار_الملف = Null End If rs.Update rs.MoveNext Loop End If rs.Close Set rs = Nothing Set db = Nothing End Sub وفي النموذج يكفينا الإستدعاء للدالة في حدث عند التحميل كما يلي :- Private Sub Form_Load() UpdateEmployeeFiles End Sub حيث أن الدالة ستقوم بتحديث قيمة الحقل في كل مرة تفتح فيها النموذج للموظفين الذين لديهم ملف PDF أو لا . أيضاً سيتم تعديل مسار الملف اذا كان موجوداً بدلاً من استخدامك للكود السابق في حدث "في الحالي" . FILE.zip

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

ما عاش اللي يتعبك معلمي الفاضل ،، بأقرب فرصة إن شاء الله سأحاول السير على خطاك لتلافي هذه المعضلة 😇

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

وعليكم السلام ورحمة الله تعالى وبركاته.. هل جربت في التنسيق لمربع النص هذا ان يكون بهذا الشكل ؛- yyyy,mmm,dd أو بهذا التنسيق أيضاً yyyy\,dd\,mmm

استاذي الكريم عند استخدامًبرنامج الحضور والانصراف شيت data لايستوعد الا اربعين موظف فقط ماهو الخل برغم ان في الاعدادات وشيت الحضور يطلع اسماء الموظفين ولكن بشيت dadt لايخرج الا اربعين موظف بعلم ان قسمي ٥٠موظف فيه

السلام عليكم ورحمة الله لدى نموذج اكسييس داخل هذا النموذج حقل باسم " Upfield " مخصص لوضع تاريخ اليوم اتوماتيك، عندما يقوم المستخدم بتحديث اي قيمة داخل حقول السجل المرتبطة بهذا الحقل اريد تنسيق التاريخ داخل الحقل يظهر بهذا الشكل على سبيل المثال 2025,Apr,28 لانة يظهر هكذا 28,04,2025

السلام وعليكم ورحمه الله وبركاته لدي مجلد يحتوي على ملفات بي دي اف مسماه برقم الموضف اريد كود في زر امر عند النقر عليه يضع كلمه نعم بالحقل الموضح المثال المرفق ولكنFILE.rarFILE.rarFILE.rarFILE.rar فقط للذي لديه ملف بالمجلد FILE.zip

استاذ حجازي اشكرك على هذا الرد الرائع......كود رائع و مميز لكن للأسف ما عندي MS 365 سوف اقوم بتجربت الكود الان مع الشكر

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته عايز مساعدتكم في مشكلة تعبت مش لاقي حل ليها عملت برنامج حضور وانصراف وكان شغال وبيطلع منه تقارير كل شهر مظبوط لكن الشهر ده لقيت التقارير بتطلع فاضية بدون بيانات بصيت علي الجدول لقيت البيانات مش موجودة بحاول افهم في ايه مش عارف برجاء التفضل والتكرم بالمساعدة Att_pr.rar

استاذ عبدالله بشير, ملف رائع و كود رائع جدا, كل الشكر لك اخي الكريم ما قصرت ابدا...هذا الملف سوف احتفظ به لدي كعمل رائع..اعجبني جدا. لكن اخي الحبيب ما كنت ارغب به : هو ان تظهر لي المعلومات كالتالي للعرض في sheet منفصلة كل بائع اعلى سعر مادة قام ببيعها: اسم البائع اسم المادة القيمة ....ارفق لك الملف مرة اخرى مع النتيجة المطلوبة. Book4.xlsb

Up

صوت الضمير 😊🖐️ أمال كل الدوشة اللي عملتها جوة دي تسميها أيه ؟؟ 🙃

السلام عليكم ومشاركة مع اخي @Foksh اضف هذا السطر الى جملتك البرمجية Me.Datail.Height = Me.Datail.Height * 0.5 لاحظ فيما لو اردت تغيير نسبة ارتفاع الحقل ... نسبة مقطع التفاصيل ستكون مماثلة لنسبة مقاس ارتفاع الحقل BASE_F.rar