كل الانشطه

استاد نعم يضيف سطر جديد

بوركت استاذ على تعبك ولكن عندي مشكلة في تنفيد البروجرسبار ماعرفت اين تكمن كما في الصورة الرجاء التعديل على المرفق 2026.rar

كل شيء ممكن في الاكسل ولكن المشاكل تحل خطوة بخطوة جرب الملف Horaire2.xlsb

حتى ولو البيانات لم تتغير يضيف سطر جديد أم نضيف حقل لتاريخ اليوم .

يضيف عليه سطر جديد استاذ

تقصد لنفس الموظف .... يحدث الموجود أم يضيف عليه سطر جديد .

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

استاذ @بلال اليامين هل تقصد جلب الورقة بجدول جديد باسم الورقة (Feuil1) . طالع المرفق ووافني بالرد . انت بطول في الرد .... رد بأسرع وقت قبل نسياني لأني من كثرة الاعمال لديا بنس عملت ايه ولمين ...... لا تعتمد اني أقرأ ما بداخلك اشرح بالتفصيل يا بخيلي .... اليك المرفق وطالع الجدول الجديد .. Mon_Excel_Bilal_Yamen.rar

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

جزاك الله خير 🌹 لقد علمتني كيف أصطاد، واستخدمت Gemini واعطاني هذا الكود وكان سريع وجلب البيانات بثواني ... قمت بتكرار النتائج ولم تكن المخرجات منسقة، ولكن سأعمل على تطويره ليخدم عملي الكود ستجده في موديل Array لا حرمني الله منكم 😘😘 Array.xlsb

وعليكم السلام جرب الملف , هل تم حل المشكلة الأولى ؟ Horaire1.xlsb

شكرا ايها الخبير المبدع جزاك الله بكل الخير وزادك من علمه

جزاك الله خير وبارك فيك استاذي الغالي @Foksh لقد تم تثبيت التطبيق بنجاح بعد متابعة شرحك ولله الحمد الله يعطيك العافيه والف شكر لك استاذي تقبل تحياتي واحترامي🌹🌹🌹

السلام عليكم استاذ kkhalifa1960 أستاذ لدي ملف اريدعند تصدير ملف لاكسل بجوار البرنامج اسمه Horaire . أريد عند تصدير واستراد يظهر بملف الاكسيل الذي هو بجوار البرنامج إسمه Horaire وإسم الورقة Feuil1 أستاذ اريد عند الضغط على إسم الموظف يتم تحميل ملف لاكسل الذي بجوار البرنامج. بارك الله فيك استاذ Mon_Excel.zip

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan : https://sites.google.com/view/mas-projectss/home لضم بعض الاعمال وتنزيل المباشر من غير اذونات الكل مفتوح المصدر ******************************************************************************************************** توسيــــع واستكمال 1- اضافة خيار الخلفية صوره او فيديو وكامل الشاشة HD فقط الفيديو اما الصوره شاشة بحجم الجدار 2- اضافة واستكمال تسجيل الدخول التحقق من احرف الانجليزي الكبيره والصغيره بداله واحده مصغره فقط اسم المستخدم وكلمة المرورو 😇 'داله التحقق اذا كانت الاحرف كبيرة او لا Public Function SameCasePattern(ByVal Txt1 As String, _ ByVal Txt2 As String) As Boolean Txt1 = Nz(Txt1, "") Txt2 = Nz(Txt2, "") ' الطول يجب أن يكون متساوي If Len(Txt1) <> Len(Txt2) Then SameCasePattern = False Exit Function End If ' مقارنة حساسة لحالة الأحرف SameCasePattern = (StrComp(Txt1, Txt2, vbBinaryCompare) = 0) End Function Public Function SameCasePattern_Name(ByVal Txt1 As String, _ ByVal Txt2 As String) As Boolean Txt1 = Nz(Txt1, "") Txt2 = Nz(Txt2, "") ' الطول يجب أن يكون متساوي If Len(Txt1) <> Len(Txt2) Then SameCasePattern_Name = False Exit Function End If ' مقارنة حساسة لحالة الأحرف SameCasePattern_Name = (StrComp(Txt1, Txt2, vbBinaryCompare) = 0) End Function Private Sub EX_3_Click() Dim ftps As String '================( Chack Value Smoll Or capitl : Dim DBValue_User As String Dim DBValue_PWD As String DBValue_User = Nz(DLookup("[User_Name]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'"), "") DBValue_PWD = Nz(DLookup("[Password]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'"), "") If IsNull(Form_into_logen.x1) Or Form_into_logen.x1 = "" Then If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " حقل المستخدم فارغ ؟! " & " - " & Now Exit Sub End If If IsNull(Form_into_logen.x2) Or Form_into_logen.x2 = "" Then If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " حقل كلمة المرور فارغة ؟! " & " - " & Now Exit Sub End If If Form_into_logen.x1 = DLookup("[User_Name]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'") Then If Form_into_logen.x2 = DLookup("[Password]", "[User]", "[User_Name]='" & Form_into_logen.x1 & "'") Then 'فحص الاحرف EN If SameCasePattern_Name(DBValue_User, Form_into_logen.x1) Then If SameCasePattern(DBValue_PWD, Form_into_logen.x2) Then '=========================( Yes ) If Me.f_1.Visible = True Then Me.f_1.Visible = False If Me.f_2.Visible = True Then Me.f_2.Visible = False If Me.f_3.Visible = True Then Me.f_3.Visible = False 'ftps = CurrentProject.Path & "\IMG_Size\" & DLookup("[User_Name]", "[user]", "[ID]='" & Me.ID & "'") & "_3.png" ftps = CurrentProject.path & "\IMG_Size\" & Form_into_logen.x1 & "_3.png" Me.tx.Caption = " Logen: مرحبا بك " & Form_into_logen.x1 If Not Dir(ftps) = "" Then Me.sx.Picture = ftps Call zx_Click Else If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " خطأ تسجيل الدخول تأكد من الاسم وكلمت المرور ثم عاود الحاولة ؟! " & " - " & Now Exit Sub End If Else If Not Me.f_1.Width = Me.Form.InsideWidth Then Me.f_1.Width = Me.Form.InsideWidth If Not Me.f_3.Width = Me.Form.InsideWidth Then Me.f_3.Width = Me.Form.InsideWidth If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_2.Visible = False Then Me.f_2.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True Me.f_1.Caption = " خطأ تسجيل الدخول تأكد من الاسم وكلمت المرور ثم عاود الحاولة ؟! " & " - " & Now Exit Sub End If End If End If End Sub 3- عرض التقرير بتقسيم بسيط جدا داخل كل تقرير حدث عند الفتح + كود بسيط في القائمة ادوات التقرير وكل ما زاد عن الف 1000 سجل اصبح 2 مع الطباعة الفورية ( لمعالجة الثقل وسرعة والسهولة سأحاول تجربته 😇 Private Sub nzV() Dim rpt As String Dim SourceSQL As String Dim rpt_X As Report Dim Give_itme As Integer Dim N_R As Long 'جلب اسم مصدر التقرير كان جدول او استعلام Set rpt_X = Reports(Me.Name_report_X.Caption) SourceSQL = rpt_X.RecordSource Me.sexo = Nz(DCount("*", SourceSQL), 0) If Len(Nz(DCount("*", SourceSQL), 0)) < 3 Then N_R = 1 Else N_R = Right(Nz(DCount("*", Me.Name_report_X.Caption), 1), 4) End If Me.txtPageSize.RowSourceType = "Value List" With Me.txtPageSize For Give_itme = 1 To N_R .AddItem Give_itme Next End With End Sub والكود داخل كل تقرير Option Compare Database Private Sub Report_Load() DoCmd.Maximize If IsNull(DLookup("[IMG_1]", "[Ass]")) Then Me.PX_1.Visible = False If IsNull(DLookup("[IMG_1]", "[Ass]")) Then Me.PX_2.Visible = False End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Parts() As String Dim StartRow As Long, EndRow As Long ' قراءة النطاق من TAG If Me.Tag <> "" Then Parts = Split(Me.Tag, "|") StartRow = CLng(Parts(0)) EndRow = CLng(Parts(1)) ' إذا رقم السجل الحالي خارج النطاق ? اخفِه If Me.currentRecord < StartRow Or Me.currentRecord > EndRow Then Me.Visible = False Else Me.Visible = True End If End If End Sub Private Sub Report_Open(Cancel As Integer) Dim PageNumber As Long Dim PageSize As Long Dim StartRow As Long Dim EndRow As Long ' إعدادات PageSize = 1000 ' عدد السجلات لكل مجموعة PageNumber = Nz(Forms!Top_Report!txtPageSize, 1) ' الحقل غير منضم في النموذج StartRow = (PageNumber - 1) * PageSize + 1 EndRow = PageNumber * PageSize ' نحفظ النطاق في TAG التقرير لاستخدامه لاحقاً Me.Tag = StartRow & "|" & EndRow End Sub .... تابع الفيديو للتوضيح مشاهده ممتعة تحميل المرفق https://drive.google.com/file/d/1hF1CX00nJh0JmNowOzyPJVW-swPkAuWl/view?usp=drive_link

تفضل . Taher DZ-3.rar

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

انا لاحظت ان عداد النسبة تحت البروجرسبار متوقف على 0 فعدلت المرفق . Taher DZ-2.rar

استاذ @Taher DZ انت اتقنت الفكرة والطريقة بالمرفق الاول . اتركها بما فيها لان الصورة بالمرفق الاول ............... استخدم المرفق الثاني ولاحظ الدالة المشار اليها تغيرت تماماُ . طالع الشرح .

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

فعلا مع التجربة لاحظت أن البوكمارك يمكن أن تنحذف أو تنلغي بسهولة مع أي تعديل للملف .. فكرتك عبقرية فعلا 👌

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

بما انك وصلت لهنا النتيجة انك فهمت الموضوع لكن اذكرك لاتنسى حفظ مستند الوورد بعد أي تعديل . تفضل المرفق بعد التعديل بطلبك 4 اماكن مختلفة . طالع كود الاكسس ومستند الوورد . اليك المرفق . هذه الطريقة لا تمنع المستخدم من تعديل النصوص المدمجة بشكل عشوائي . كما ظهرت في تجارب المستخدم السابقة . Taher DZ-1.rar

بقيت مشاكل في النقل بالترتيب انظر المرفق استاذ نقل ورد.rar

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