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

امين لنا ولكم ولكل من مر من هنا ولا ننسى الاستاذ @Foksh راعي الاولة اخونا العزيز شايب 🌹

تعديل بسيط على السطر الاخير بتحميل قيمة ماتم اختيار في امر فتح التقرير Dim selectedItems As String Dim x As String For Each selectedItem In Me.lst_XX.ItemsSelected selectedItems = selectedItems & " - " & Me.lst_XX.Column(0, selectedItem) Next selectedItem x = Mid(selectedItems, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الملف مرفق الشايب base_1.accdb

بعد ادن الاخ المحترم @محي الدين ابو البشر تفضل اخي الكريم تم الاشتغال على اخر نسخة قمت برفعها داخل المشاركة لتحديث ارقام الملفات قم بتشغيل الكود التالي Sub test() Dim j(1 To 2) As String Dim WSData As Worksheet: Set WSData = Sheets("البداية") Dim R As Range: Set R = WSData.Range("E7:E" & Range("E" & Rows.Count).End(xlUp).Row) Dim AR() As Variant: AR = R.Value2 Dim col() As Variant: ReDim col(1 To UBound(AR), 1 To 1) j(1) = Application.ActiveWorkbook.Path & "\تقرير الحالات\" j(2) = Verification j(2) = Dir(j(1)) If j(2) = "" Then ' التحقق من وجود المجلد MsgBox "يتعدر العثور على مجلد تقرير الحالات ", vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal, "انتباه" Else Application.ScreenUpdating = False Range("F7", Range("F" & Rows.Count).End(4)).ClearContents 'ترقيم الحالات المكررة With CreateObject("Scripting.Dictionary") For i = 1 To UBound(AR) If Not .Exists(AR(i, 1)) Then .Add AR(i, 1), 1 col(i, 1) = AR(i, 1) Else .Item(AR(i, 1)) = .Item(AR(i, 1)) + 1 col(i, 1) = AR(i, 1) & " (" & .Item(AR(i, 1)) & ")" End If Next i '(F) عمود R.Offset(, 1).Value2 = col End With End If Application.ScreenUpdating = True End Sub وفي حدث ورقة البداية ضع الكود التالي تم اظافة رسائل اشعار عند التحقق من عدم وجود مجلد التقارير او عدم وجود رقم التقرير مسبقا داخل المجلد للتجربة يمكنك اما كتابة رقم عشوائي على عمود f او تغيير اسم اي ملف داخل المجلد 😉 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim sh As Worksheet: Set sh = Sheets("البداية") Dim a(1 To 5) As String, FSO As Object, lastrow& lastrow = sh.Columns("F:F").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row + 1 a(1) = Application.ActiveWorkbook.Path & "\تقرير الحالات\" a(2) = Search_File: a(3) = réf Cancel = True If Not Intersect(Target, sh.Range("F7:F" & lastrow)) Is Nothing Then If Target.Value = "" Then Exit Sub PDFname = Target.Value: a(2) = PDFname & ".pdf" Set FSO = CreateObject("Scripting.FileSystemObject") a(3) = GetFiles(FSO, a(1), a(2)): a(4) = a(1) & Target.Value & ".pdf" ' التحقق من وجود اسم الملف داخل المجلد If a(3) = "" Then a(5) = " الملف رقم" & " / " & PDFname & " " & " غير موجود " _ & Chr(10) & Chr(10) _ & "" _ MsgBox a(5), vbInformation, "Admin" Exit Sub End If If Dir(a(4)) <> vbNullString Then On Error Resume Next ActiveWorkbook.FollowHyperlink a(4) On Error GoTo 0 End If End If End Sub Public Function GetFiles(ByVal FSO As Object, ByVal Search_Folder As String, ByVal Search_File As String) As String Dim réf1 As Object, réf2 As Object, réf3 As Object If FSO.FolderExists(Search_Folder) Then Set réf2 = FSO.GetFolder(Search_Folder) For Each réf1 In réf2.Files If LCase(réf1.Name) = LCase(Search_File) Then GetFiles = réf1.Path Exit Function End If Next réf1 For Each réf3 In réf2.SubFolders GetFiles = GetFiles(FSO, réf3.Path, Search_File) If GetFiles <> "" Then Exit Function End If Next réf3 End If End Function بالتوفيق... الملف بعد التعديل 2.xls وهده نفس النسخة مع اظافة يوزرفورم لعرض التقارير المسجلة من داخل المجلد مع امكانية فتح الملف او الحفظ وكدالك الطباعة الملف الاصلى والتقارير.rar

انا سأعطيك فكرة وانت طبقها ستقوم بتحديد فترات لاعمار الديون مثلا 10 ايام والفترة الثانية 20 يوم والثالثه 30 والرابعة 60 والخامسة 90 طبعة ستقوم بعمل جمع لاجمال المبيعات واجمالي التحصيلات حسب العميل من تاريخ اليوم الذي انت فيه او اي تاريخ تريده ستقوم بعمل حقل خاص به بموجب عدد الايام اي التاريخ الذي انت فيه ناقص اول فترة التي هي 10 ايام اجمالي مبيعات - اجمالي تحصيلات خلال الفترة وهكذا بالتوفيق

ارسل مرفق أخي الكريم للعمل عليه 😊

لو من التطبيق نفسه يشتغل عادى بدون تسجيل الاسماء وارسال رساله لاكثر من رقم دفعه واحده

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

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

هل من الممكن استخدام واتساب ويب بدلاً من برنامج الديسك توب الخاص بالواتساب @محمد احمد لطفى

سلف الديار.xlsx

أخي الكريم بالفعل كما ذكر أخونا محمد المتولي ... من الأفضل رفع الملف وعموما كما فهمت ويمكن لم يصلني المطلوب بالضبط لحل المسألة الأولى فصل الأرقام فبدل كتابة معادلة يمكن أن تستخدم Flash Fill كالآتي بالنسبة للطلب الثاني وهو عدم التكرار مع إن مش واضح الطلب بالضبط اليك شرح بسيط لو انت عايز ان لا يكون هناك مكرر في نطاق من B2:B20 عليك اتباع التالي

الشكر لله استاذنا ايضا ممكن نستخدم الامر التالي للوصول للنتيجة Dim x As String Dim i As Integer For i = 0 To lst_XX.ListCount - 1 If lst_XX.Selected(i) = True Then x = x & " - " & lst_XX.Column(0, i) End If Next i x = Mid(x, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الشايب

اخي عمر بارك الله بك اشكرك جزيل الشكر , الصراحه انا بحاجه الى نضاره طبيه

مشكور أخوي @شايب على الرد بالمتابعة 😊 ، جعله الله في ميزان حسناتك.

تقصد ده <<<<<<<<<<<<<<<<<<<<<<

Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect UserInterfaceOnly:=True, Password:="1234" Next ws End Sub

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

أخي الكريم عملت على الملف الأول ولم انتبه إلى تعديل الملف على كل جرب هذا عسى يكون المطلوب Double Dlick على إي خلية في العمود E (رقم ملف الحالة) سوف يظهر التقرير الخاص ... Book2.xls

تفضل أخي محاولتي ووافني بالرد . بحث بجميع الحقول.accdb

الف شكرا على تعبك معى

السلام عليكم تفضل ما تريد في الملف المرفق... بن علية حاجي صفحة 1 (1).xlsx

السلام عليكم تم تطبيق خاصية "مخصص" في "التحقق من الصحة" بالمعادلة COUNTIF($D$1:$D1;$D1)<=20= على كل العمود D، أرجو أن يفي هذا بالمطلوب (إن كنت قد فهمت المطلوب جيدا)... بن علية حاجي ادخال ارقام مشروطة.xls

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

السلام عليكم اضن الكثير منا يعلم ماهي الوظائف الإضافيه في الاكسل ومدى اهميتها في اختصار الكثير من الوقت للعمل على روتين معين لأكثر من مصنف انا سأطرح لكم الفكرة والتطبيق والاليه التي استخدمت بها تلك الوظيفه الإضافية أولاً ماهي الوظائف الإضافيه ؟ كخطوة اولى: توضيح وحفظ الوظيفه - هيا عباره عن ملف اكسل به اكواد او فورم او داله ويحفظ بصيغة "Excel Add-In" في المسار "AppData\Roaming\Microsoft\AddIns" او في اي مجلد تريد يكون موقع له فرضاً سميناها "Aosamh" وعند الحاجه لتلك الوظيفه تقوم بتفعيل الوظيفه كي تستخدمها للملف الذي تعمل عليه الخطوة الثانية: تفعيل الوظيفه ( بعد ان حفظتها بالخطوة الاولى ) -من خيارات الاكسل - الوظائف الإضافية - إدارة الوظائف الإظافيه Excel ( تضغط زر المسمى "إنتقال" ) ومن ثم تحفز الوظيفه . الفكرة كالتالي : تقرير مخزون عبر برنامج محاسبي اصدره الى الاكسل واقوم بعمل بعض التنسيقات والتعديلات عليه بشكل اتوماتيك واستخرج منه اعمدة معينه للعمل عليها غرضي من هذه الطريقة عمل " تقرير لأصناف معينه لعمل خصم عليها بطريقة يدويه" خصم يدخل يدوي ومن ثم اجمالي الفارق بين سعر التكلفه القديم وسعر التكلفه الجديد واجمالي الفارق لكل الاصناف في نهاية التقرير ماتطلب علي استخدامة لأنجز تلك الفكره : 1- تصدير التقرير من البرنامج المحاسبي 2- معرفة بعض الكلمات الاساسيه في التقرير المستخرج من البرنامج المحاسبي ( لمعرفة ان الملف هو مانريده كي نفعل عليه الوظيفة الاضافية) 3- عمل بعض التعديلات على الملف من الغاء دمج بعض الخلايا وحذف بعض الاعمدة التي لااستخدمها للغرض الذي اريده وماسبق ذكرة الـ 3 البنود منها عملتها بظريقه يدوية ومن ثم بالكود كي يقوم بما عملته عند استدعائي للوظيفة ( 2 و 3 ) 4- عمل في بعض الاعمدة معادلات عبر الكود ومنها اجمالي التقرير بعد اضافة القيم اليدويه 5- انشاء فورم بحث للبحث عن الاصناف في التقرير سواء برقم الصنف او مرجعه الاكواد المستخدمة في ملف الوظيفة الإضافية كالتالي : 1- كود حدث فتح ملف الاكسل "Auto_Open" -استخدمناه لكي نفعل كود التحقق من ان الملف المفتوح حالياً هو مانريده "تقرير المخزون" ام لا الكود في حدث فتح المصنف بعد 3 ثواني من فتح المصنف ينفذ الكود المسمى "Action_Abad" Sub Auto_Open() Application.OnTime Now + TimeValue("00:00:03"), "Action_Abad" End Sub هذا كود "Action_Abad" يقوم بتنفيذ الدالة "Check_Work" واذا كان نتيجة الدالة True يعني هو الملف المطلوب دالة "Check_Work" تقوم بالبحث في المصنف هل يوجد كلمة "تقييم المخزون" اذا تحقق الشرط تقوم بالتالي Public Const Trgt As String = "تقييم المخزون" Public Function Check_Work() Dim Rng_Chk For Each Rng_Chk In ActiveWorkbook.ActiveSheet.UsedRange.Cells If Trim(Rng_Chk) Like Trgt Then Bl_Open = True Exit Function End If Next End Function تقوم بإنشاء زر اختصار للكود "Ali_Tk" في تبويب الوظائف الاضافية Sub Action_Abad() '=============== Check_Work '' دالة التحقق من الملف المفتوح حالياً '=============== If Bl_Open = True Then Dim cb As CommandBar Dim ctrl As CommandBarControl On Error Resume Next Application.CommandBars("Tol_Abad").Delete On Error GoTo 0 Set cb = Application.CommandBars.Add(Name:="Tol_Abad") With cb .Visible = True .Position = msoBarTop Set ctrl = .Controls.Add(Type:=msoControlButton) With ctrl .BeginGroup = True .Style = msoButtonIconAndCaption .Caption = "تقرير_خصم" .FaceId = 107 .OnAction = "Ali_Tk" '' الزر يقوم بتشغيل كود عمل التنسيقات وحذف اعمدة من تقرير المخزون .TooltipText = "تقرير خصم لأصناف" End With End With Bl_Open = False End If End Sub وهذا كود "Ali_Tk" الذي يقوم بعمل تنسيقات للتقرير واضافة اعمدة ودوال واستخراج الاعمدة الاساسية في مصفوفة "Arr" Sub Ali_Tk() Dim Arr Dim RR, Mord, On_Rw Dim Rm As Range Dim Rnn As Range, Rmm As Range Dim Rng As Range A_Application False ActiveWorkbook.ActiveSheet.UsedRange.UnMerge Arr = Array("تقييم المخزون", "‏المورد :‏", "‏م‏", "‏رقم الصنف‏", "‏وصف الصنف‏", "‏رقم المرجع‏", "‏إجمالي الكمية‏", "‏السعر‏") For Each RR In ActiveWorkbook.ActiveSheet.UsedRange.Cells For Each Ar In Arr If Trim(RR) Like Trim(Ar) Then Select Case Trim(RR) Case Is = Arr(0) Case Is = Arr(1) RR.Select Lrm = Selection.End(xlToLeft).Column '' إيجاد عمود اسم المورد Mord = CStr(S_Nm_Ali(Cells(RR.Row, Lrm))) '' إســم المورد On_Rw = RR.Row '' أول صف للجدول Case Else If Not RR Is Nothing Then If Rm Is Nothing Then Set Rm = RR Else Set Rm = Union(Rm, RR) End If End If End Select End If Next Next Rm.EntireColumn.Hidden = True Set Rng = Range("A1:AB1") '************************************************************* Rng.SpecialCells(xlCellTypeVisible).EntireColumn.Delete Range("A1:A" & On_Rw).EntireRow.Delete ActiveSheet.UsedRange.EntireColumn.Hidden = False '************************************************************* Range("A:A,B:B").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove '************************************************************* Rows("1:1").RowHeight = 40 Rows("2:2").RowHeight = 28.5 Range("C2") = "تكلفة جديدة" Range("A2") = "الفرق" ActiveSheet.UsedRange.EntireColumn.AutoFit Columns("F:F").ColumnWidth = 11 Columns("E:E").ColumnWidth = 9.14 Columns("G:G").ColumnWidth = 7.57 Columns("G:G").ColumnWidth = 11.57 Columns("G:G").ColumnWidth = 10.71 R = 3 Lr = Cells(Rows.Count, 2).End(xlUp).Row For i = R To Lr Cells(i, 1).Formula = "=IF(RC[2]="""","""",CEILING(IF(RC[2]="""","""",(RC[3]*RC[1])-(RC[3]*RC[2])),1))" Next With Range("A" & Lr + 1) .Formula = "=SUBTOTAL(9," & Range("A3:A" & Lr).Address(0, 0) & ")" .Offset(0, 1).Formula = "=SUBTOTAL(9," & Range("B3:B" & Lr).Address(0, 0) & ")" .Offset(0, 2).Formula = "=SUBTOTAL(9," & Range("C3:C" & Lr).Address(0, 0) & ")" .Offset(0, 3).Formula = "=SUBTOTAL(9," & Range("D3:D" & Lr).Address(0, 0) & ")" End With Range(Cells(3, 1), Cells(Lr + 1, 8)).Borders.Color = 1 Range(Cells(3, 1), Cells(Lr + 1, 8)).RowHeight = 24.75 Range(Cells(3, 1), Cells(Lr + 1, 8)).WrapText = False Columns("A:H").AutoFit Columns("A:D").ColumnWidth = 9 With Range(Cells(3, 1), Cells(Lr + 1, 8)) .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter .Interior.ColorIndex = xlNone With Range("A" & Lr + 1 & ":H" & Lr + 1) .Interior.Color = RGB(252, 228, 214) .Font.ColorIndex = 23 .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With Range("A2:H2") .Interior.Color = RGB(252, 228, 214) .Offset(-1, 0).Merge .Offset(-1, 0).RowHeight = 40 .Font.ColorIndex = 23 .Font.Bold = True .Borders.Color = 0 .HorizontalAlignment = xlCenter .VerticalAlignment = xlTop End With End With With ActiveSheet.PageSetup .PrintArea = Range(Cells(1, 1), Cells(Lr + 1, 8)).Address .PrintTitleRows = "$1:$2" .PrintTitleColumns = "" .Zoom = 123 .LeftMargin = Application.InchesToPoints(3.93700787401575E-02) .RightMargin = Application.InchesToPoints(3.93700787401575E-02) .TopMargin = Application.InchesToPoints(3.93700787401575E-02) .BottomMargin = Application.InchesToPoints(3.93700787401575E-02) .HeaderMargin = Application.InchesToPoints(3.93700787401575E-02) .FooterMargin = Application.InchesToPoints(3.93700787401575E-02) .CenterHorizontally = True .CenterVertically = False End With Range("A3").Select ActiveWindow.FreezePanes = True ActiveWindow.SmallScroll Down:=12 Range("C3").Select With Range("A1") .Value = "(" & " طلب خصم بضاعة / " & Mord & " / للمؤسسة " & ")" .Font.Name = "Times New Roman" .Font.Size = 14 .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With '===================== Action_Search '' إستدعاء كود إضافة زر اخر في تبويب الوظائف الإضافية _ لإنشاء زر في تبويب الوظائف الإضافية واسمه بحث ليقوم بتنفيذ كود فتح فورم البحث والتعديل '===================== A_Application True End Sub وفي نهاية الكود يستدعي الكود "Action_Search" ليضيف زر اخر في تبويب الوظائف الإضافية واسمه "بحث" لينفذ كود فتح " فورم البحث" Private Sub Action_Search() Dim cb As CommandBar Dim ctrl1 As CommandBarControl Set cb = Application.CommandBars("Tol_Abad") With cb .Position = msoBarTop Set ctrl1 = .Controls.Add(Type:=msoControlButton) With ctrl1 .BeginGroup = True .Style = msoButtonIconAndCaption .Caption = "بحث" .FaceId = 1100 .OnAction = "Show_Ali" .TooltipText = " بحث في بيانات الاصناف للمورد" End With End With '====================== Visbl_Control False '' الذي يقوم بعمل تنسيقات تلافياً لعدم الضغط عليه مره اخرى ' إخفاء زر المسمى تقرير_خصم '============== Action_Prnt '' إستدعاء كود لإضافة زر اخر بإسم طباعه لينفذ كود طباعة التقرير بعد الانتهاء من عمل التعديلات عليه '============= End Sub دالة " Visbl_Control" لتقوم بإخفاء زر " تقرير_خصم " تلافياً لعدم الضغط عليه مره اخرى Function Visbl_Control(Vis As Boolean) Application.CommandBars("Tol_Abad").Controls("تقرير_خصم").Visible = Vis End Function كود فتح فورم البحث المسمى " Show_Ali" Sub Show_Ali() Ali_Search.show 0 End Sub وفي نهاية كود "Action_Search" يستدعي كود المسمى "Action_Prnt" ليقوم بإنشاء زر واسمه "طباعه" لينفذ الكود المسمى "Prnt" Private Sub Action_Prnt() Dim cb As CommandBar Dim C As CommandBarControl Set cb = Application.CommandBars("Tol_Abad") With cb .Position = msoBarTop Set C = .Controls.Add(Type:=msoControlButton) With C .BeginGroup = True .Style = msoButtonIconAndCaption .Caption = "طباعه" .FaceId = 180 .OnAction = "Prnt" .TooltipText = " طباعة النتائج " End With End With End Sub وهذا كود الطباعه المسمى " Prnt" ليطبع التقرير بعد عمل التصفية للصفوف الملونه بلون معين Sub Prnt() With ActiveSheet .Range("A2:H2").Select Selection.AutoFilter Ln = .Cells(.Rows.Count, 2).End(xlUp).Row .Range(Cells(2, 1), Cells(Ln, 8)).AutoFilter Field:=6, Criteria1:=RGB(225, 225, 235), Operator:=xlFilterCellColor If .UsedRange.SpecialCells(xlCellTypeVisible).Count <= 24 Then MsgBox "لايوجد نتائج للطباعه", vbInformation, "" .Range("A2:H2").Select Selection.AutoFilter Exit Sub End If .Range("G2").EntireColumn.Hidden = True .PrintPreview .Range("G2").EntireColumn.Hidden = False .Range("A2:H2").Select Selection.AutoFilter .Range("A2").Select End With End Sub وهذا كود حدث اغلاق المصنف " Auto_close "ليقوم بحذف تبويب الوظائف الإضافية بما فيه من ازرار انشأناها وقت الاستخدام Sub Auto_close() On Error Resume Next Application.CommandBars("Tol_Abad").Delete Application.CommandBars("Benefits Survey Toolbar").Delete On Error GoTo 0 End Sub ماأرجوه من طرحي هذا اخذ فكره عن الوظائف الإضافية وبما يمكنها من استخدام اكواد ومعادلات مستحدثه في اكثر من ملف وقت الاستخدام وافكار ان شاء الله يستفاد منها - مرفق ملف شرح فيديو طريقة العمل - وملف التقرير المستخرج من البرنامج المحاسبي - وملف الاكواد والفورم وهو كوظيفة إضافية لم استطيع ارفاق الملفات حملتها عبر 4Share وهذا رابط المرفقات http://www.4shared.com/rar/x33ci575ba/_online.html والسلام عليكم

بسم الله الرحمن الرحيم برنامج صلاحيات المستخدمين فى الاكسيل الاصدار -2 السلام عليكم ورحمه الله وبركاته اقدم لكم اليوم برنامج صلاحيات المستخدمين الاصدار الثاني بدايه تذكرة بحفظ الحقوق هذا البرنامج قد بدائه الاستاذ الفاضل / عبد الله المجرب واتم هذا البرنامج من اكواد الاستاذ العبقري / عباد وتم الاستعانه ببعض اكواد الاستاذ / عبد الله باقشير وايضا الاستاذ / رجب جاويش تم الاستعانه باحد اكوادة فى اظهار اسماءا لمستخدمين وكلمات السر فى احد الكومبوبوبكس واخيرا العبد الفقير الى الله قمت بالتنسيق بينهم ووضع بعض اللمسات التكميليه فقط ثانيا : نماذج البرنامج : نموذج الدخول الرئيسي : وفيه لامكانيات التاليه 1. اسم المستخدم وكلمه السر 2. تعديل صلاحيات المستخدمين 3. اضافه مستخدمين جدد وتحديد صلاحياتهم 4. تعديل اسماء المستخدمين 5. حذف المستخدمين 6. الاطلاع على كلمات السر واسماءا لمستخدمين ضمن صلاحيه خاصه كل هذة الامكانيات قبل الدخول الى البرنامج فقط تكون متاحه مع المستخدم الدعم الفنى وعند كتابه كلمه السر الصحيحه له نموذج اعطاء الصلاحيات وتعديلها يظهر فى الاعلى اسم المستخدم المحدد له الصلاحيات وفى الجزء الاوسط تظهر جميع صفحات المستند باسماءها وبجوارها كومبوبوكس يحتوى على 3 خيارات ( مشاهدة فقط – مشاهدة وتعديل – مخفى ) ولسهوله ملىء هذة الصلاحيات وتسهيلا فى ملىء البينات تم وضع 4 خيارات بالاسفل وهى ( الجميع مخفى – الجميع خالى – الجميع مشاهدة وتعديل – الجميع مشاهدة فقط ) تعمل هذة الخيارات على ملىء الكومبوبوكس الخاص بالصفحات الظاهرة جميعا ومن ثم تقوم انت بالتعديل فقط على الصفحات التى تخص المستخدم ويكون له حق التعديل عليها وثم تضغط حفظ فيتم حفظ صلاحياته نموذج تعديل كلمه السر ويتم الوصول لهذا النموذج من مكانين الاول من النموذج الرئيسي من خلال المستخدم الدعم الفنى الثاني من الورقه الاولى حيث يتمكن كل مستخدم من تعديل كلمه السر الخاصه به نموذج تعديل وحذف اسماء المستخدمين ( جديد ) ويتم من خلاله عمل التالى • اختيار اسم المستخدم المراد حذفه او تعديل اسمه من الكومبوبوكس • سوف تنشط ازرارالاختيار وتحدد هل ترغب الحذف او التعديل • يوجد زر اختيار فى الاسفل مكتوب عليه username & password وعند تنشيطه يظهر نموذج لطلب كلمه سر وهى 1234 ومن ثم يظهر كومبوبوكس فى النموذج عند فتحها تجد جميع اسماءا لمستخدمين وبجوارها كلمات السر الخاصه بهم يمكنك التصفح فى البرنامج بمجرد ادخال اسم المستخدم الدعم الفنى وكلمه السر 111 وقبل الضغط على زر دخول جرب الضغط على جميع الازرار الاخرى فى تعديل الصلاحيات وتغيير كلمه السر وتعديل وحذف اسماء المستخدمين واضافه مستخدمين جدد ومن الداخل سوف تجد انه تم اخفاء قوائم اكسل وظهورها يتطلب كلمه سر وهى 1234 ملحوظه : المستند عليه حمايه بكلمه سر هى 1234 الصفحات الرئيسيه للبرنامج هى ورقه 1 و mydate وما دون ذلك يمكن الاستغناء عنه فيمكنك ازاله باقى الصفحات بعد ازاله حمايه المستند ( بعد اظهار القوائم ) وادراج الصفحات التى ترغبها من مستنداتك فيه ومن ثم تقوم بتحديد الصلاحيات عليها ويعمل معك البرنامج تلقائيا ويستطيع ان يستوعب اكثر من 200 صفحه يمكنك اعطاء صلاحيات عليها وعدد مستخدمين يصل الى 1000 مستخدم ( حسب امكانيات الجهاز) هذا واتمنى ان اكون قد استطعت شرح امكانيات البرنامج وان يكون ذا فائدة للجميع باذن الله والسلام عليكم ورحمه الله وبركاته تم ارفاق هذا الشرح فى ملف وورد فى المرفقات مع البرنامج برنامج صلاحيات المستخدمين الاصدار 2.rar

جرب هذا الملف انشاءالله يكون ماشي الحال إستمارة 1324.rar

أخي عمل جيد كبداية وانشاء الله نحو الأفضل عند ي ملاحظ :بالامكان الاستغناء عن اخفاء بعض الاعمدة وذلك بكتابة المعادلة مباشرة في المكان المناسب لقد اجريت بعض التعديلات ارجو القاء النظر إستمارة 132 ع ح open (منقحة).rar

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

اخي ابوعلي الملف اكسيل 2010 بالمرفقات لكن التكست بوكس الخاص برقم العائلة اغلقت الادخال به بناء علي الملاحظة التي وضعتها (يترك رقم العائلة فارغ) فلذلك قمت بتأمينه علي اية حال تم التعديل تقبل تحياتي استمارة معلومات العائلة الالكتروني.rar

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

الأخ الكريم / حيدر السلام عليكم ورحمة الله وبركاته بالمرفقات الملف بعد الانتهاء من استمارة الاضبارة واستمارة المعلومات الوظيفية وكذلك مرفق الشرح لوظائف الفورم كما طلبت بالمشاركة رقم 10 في موضوع طباعة كتاب التأييد راجع الملف جيدا ان كان هناك اي تعديل اخبرني به ووفقنا الله واياك للخير Hayedr V.2.rar

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

السلام عليكم ورحمه الله وبركاته الاخ الفاضل / اسلام السيد مرفق بعض التعديلات فى البرنامج حسب ما فهمت من طلبك تم تغير المسميات فى الشاشه الرئيسيه الى الانجليزي تم جعل كلمات السر الخاصه باظهار القوائم او حمايه المستند و نموذج اظهار كلمات السر للمستخدمين هى نفسها كلمه السر الخاصه بالادمن وبالتالى عند تغيرك الباسورد الخاصه بك سيتغير كل شىء وتصبح متجددة واى تعديل ستجدني فى الخدمه ان شاء الله صلاحيات المستخدمين - اصدار 2 -4.rar