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

وعليكم السلام ورحمة الله و بركاته يمكن وضع هذه القيمة في المحدد الأخير لتابع فتح التقرير Dim stDocName As String stDocName = "Q1" DoCmd.OpenReport stDocName, acViewPreview, , , , 16000 '** يمكن أخذ القيمة من مربع نص وفي التقرير في خدث عند الفتح أضف النص التالي في الأعلى Private Sub Report_Open(Cancel As Integer) Dim Allrecords As Integer If Not IsNull(Me.OpenArgs) Then Allrecords = Me.OpenArgs End If

السلام عليكم 🙂 الاكسس تلقائيا يحسب عدد الايام الصحيحة ، حسب عدد ايام الشهر ، وحسب كون السنة كبيسة او عادية ، فاليك الدالة التي استعملها (وهي موجودة في المنتدى، ولكن عملت عليها تغيير بسيط حتى تستطيع عرض الارقام مستقلة) : Public Function YMDDif4(sDate1 As Date, sDate2 As Date) On Error GoTo err_YMDDif4 'sDate1 earliest date 'sDate2 later date Dim d As Integer, m As Integer, y As Integer Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) d = iDay m = iMonth Mod 12 y = iMonth \ 12 'YMDDif2 = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days" 'YMDDif4 = CStr(y) & " س/" & CStr(m) & " ش/" & CStr(d) & " ي" YMDDif4 = CStr(y) & "|" & CStr(m) & "|" & CStr(d) Exit Function err_YMDDif4: If Err.Number = 94 Then 'ignor, null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . واذا عندك بيانات في الجدول ، تناديها من النموذج على حدث الحالي: Dim myPeriod As String myPeriod = YMDDif4(Me.date1, Me.date2) Me.Y = Split(myPeriod, "|")(0) Me.M = Split(myPeriod, "|")(1) Me.D = Split(myPeriod, "|")(2) . بس في حالتك ، وبسبب النموذج غير مضمن ، فتناديها على حدث "بعد تحديث" التاريخ الثاني 🙂 جعفر مدة عمل الموظف.zip

ولزيادة الخير 🙂 .. هذه دالة لفتح المجلدات أو الملفات أو صفحات الانترنت بدون رسائل التنبية المزعجة : Public Sub OpenPath(strPath As String) Shell "explorer.exe" & " " & strPath, vbNormalFocus 'You can also Change it to: 'Shell "explorer.exe" & " " & strPath, vbHide 'Shell "explorer.exe" & " " & strPath, vbMaximizedFocus 'Shell "explorer.exe" & " " & strPath, vbMinimizedFocus 'Shell "explorer.exe" & " " & strPath, vbMinimizedNoFocus 'Shell "explorer.exe" & " " & strPath, vbNormalNoFocus End Sub طريقة الاستدعاء : OpenPath "C:\Windows" ' <--- مجلد OpenPath "C:\Document\File.PDF" ' <--- ملف OpenPath "http:\\www.google.com" ' <--- موقع

جرب هكذا لازم يكون في راس النمودج Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long هذا كود عامله انا يفتح الصورة اللي في المجلد اللي بنفس رقم الفاتورة ShellExecute Me.hwnd, "open", CurrentProject.path & "\StPic" & "\" & Trim(str(nofatora)) & ".jpg", "", "", 1 StPic=المجلد CurrentProject.path=موقع البرنامج nofatora=رقم الموظف .jpg= الصيغه

جرب الآن أخي العزيز Language 2.accdb

فعلا لم أنتبه لوجود اليوزرفورم 🤔🤔🤔

@Mohamed Hicham المطلوب باليوزرفورم وليس داخل الورقة كما فعلتها @احمد مبارك كيف نعرف اذا كان باليوزرفورم او داخل الورقة لم تشرح ذلك ولم تضع زر لليوزرفورم حتى يعلم الاعضاء مجرد صدفة عند دخول محرر الاكواد وجدت اليوزرفورم جرب هذا الكود Private Sub UserForm_Initialize() Dim i As Long For i = 2 To Sheets.Count Me.ComboBox1.AddItem Sheets(i).Name Next i End Sub اخفاء ورقة عمل في الكمبوبوكس.xlsm

تفضل اخي ربما هذا طلبك اخفاء ورقة عمل في الكمبوبوكسM-H.xlsm

تفضل application.followhyperlink me.folder_Name

وعليكم السلام 🙂 هذا الكود يفتح المجلد D:\Guests_Pics بملئ الشاشة vbMaximizedFocus ، ويجعل التركيز على صورة رقم الضيف (مثلا 123.jpg ) ، وبدون ان يفتح الصورة Shell "C:\Windows\explorer.exe /select,D:\Guests_Pics\" & Me.Guest_ID & ".jpg", vbMaximizedFocus هذا الكود يفتح المجلد D:\Guests_Pics application.followhyperlink "D:\Guests_Pics" جعفر

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

اخي الفاضل لحذف (محمد محمد نوفل) من جميع أوراق العمل هناك طرق تقليدية تغنيك عن الاكواد .لاكن في حالة إختلاف مكان وجود الإسم أي( رقم الصف من ورقة لأخرى) يكون الكود أسرع وأدق. الكود التالي يقوم بالبحث عن الإسم الهدف في عمود الأسماء كله ويحذف الصف كاملا عند وجوده Sub Delete() Dim ws As Worksheet Dim LastRow As Long, i As Long For Each ws In ThisWorkbook.Worksheets With ws LastRow = .Cells(.Rows.Count, 4).End(xlUp).Row For i = LastRow To 1 Step -1 If .Cells(i, 4).Value = "محمد محمد نوفل" Then .Rows(i).EntireRow.Delete End If Next i End With اما بالنسبة لاضافة صف استخدم الكود التالي مع تغيير الرقم 14 بالصف المطلوب Sub insertRow() Dim insertBeforeRow insertBeforeRow = 14 ActiveSheet.Rows(insertBeforeRow).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub Next ws End Sub تمت اضافة الاكواد للملف المرفق سجل مراجعة فرع الإسكندرية (3)M-H.xlsm

تفضل اخي تم تعديل المطلوب 42-Protect.xlsm

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

تفضل التعديل . الاكواد ممكن جعلها افضل من ذلك ولكن انا بعملها وانا فاتح عين واحدة هنام 😆 ولذلك فلنكتفى بها هكذا للوقت الحالى واذا اردت تحسينها يمكننا ذلك فى اى وقت . Language 2.accdb

وعليكم السلام استخدم دالة SUBSTITUTE مثال =SUBSTITUTE(a1;"14256";"";1) لحذف الأرقام بين أقواس تنصيص. والسلام ختام