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

تفضل هذه المشاركة اضغط على استعلام نقل البيانات فقط Public Function TransData() Dim db As DAO.Database, Tb1 As DAO.Recordset, Tb2 As DAO.Recordset If DCount("*", "التجهيز") > 0 Then If MsgBox("توجد بيانات جاهزة للترحيل" & vbNewLine & vbNewLine & "هل تريد ترحيل البيانات الآن ؟" _ , vbExclamation + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Set Tb1 = CurrentDb.OpenRecordset("التجهيز"): Tb1.MoveFirst: Set Tb2 = CurrentDb.OpenRecordset("الاساسي") While (Not Tb1.EOF) Tb2.AddNew Tb2.Fields("م").Value = Nz(DMax("م", "الاساسي"), 0) + 1 Tb2.Fields("الاسم").Value = Tb1.Fields("الاسم") Tb2.Fields("الرقم").Value = Tb1.Fields("الرقم") Tb2.Fields("المبيعات").Value = Tb1.Fields("المبيعات") Tb2.Fields("رقم المستند").Value = 1 Tb2.Fields("تاريخ المستند").Value = Format(Now, "yyyy/mm/dd") Tb2.Update Tb1.MoveNext Wend If MsgBox("تم نقل البيانات بنجاح" & vbNewLine & vbNewLine & "هل تريد حذف البيانات من جدول التجهيز ؟" _ , vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Tb1.MoveFirst While (Not Tb1.EOF) Tb1.Delete Tb1.MoveNext Wend MsgBox "تم حذف بيانات جدول التجهيز بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" Else End If Tb1.Close: Set Tb1 = Nothing End If End If End Function 5.accdb

السلام عليكم صحيح اخوي عمر الخلل في المعيار ولكن من شقين الاول : جعل في المعيار اسم النموذج الفرعي الخارجي فقط والصحيح ان يدرج اسم النموذج الرئيس واسم عنصر تحكم النموذج الفرعي وليس النموذج الفرعي نفسه ليصبح هكذا [Forms]![fTable1]![STABLE2]![MOhafazh] الثاني جعل المعيار تحت حقل الرقم والصحيح ان يدرج جدول المحافظة داخل الاستعلام ثم يدرج اسم المحافظة في عمود جديد ويضع المعيار تحته يوجد لديك بعض اخطاء في التصميم الأفضل تجنبها تفضل مثالك بعد التعديل N_DATA2.accdb

السلام عليكم 🙂 الكثير يعتقد ان الامر Like في الاستعلام للبحث يكون بهذه الطريقة فقط: Like "*" & Forms!frm_Main!Srch_Item & "*" . بينما هناك العديد من الطرق للاستفادة من هذا الامر : عندنا هذا الجدول وفيه مجموعة اسماء: . ما تفرق ان نستخدم العلامة المزدوجة " او العلامة الاحادية ' اذا استعملنا الامر في اسم الحقل ، فنتائج السجلات الصحيحة التي تطابق معيار Like تكون -1 (بمعنى صح True)، هذه الطريقة ممكن نستفيد منها في جمع عدد الحقول . النجمة * معناها جميع الحروف ، جميع السجلات التي تبدأ بالحرف a او A ، وبقية الحروف التي خلفها (خلف a او A) ، والاكسس لا يفرق بين الحروف الصغيرة a والكبيرة A في الاستعلام . ولما نسبق الامر Like بالامر Not ، فهذا معناه عكس الاختيار السجلات التي لا تبدأ بالحرف a . السجلات التي تنتهي بحرف a . جميع السجلات التي تحتوي على الحرفين المتسلسلين ou . علامة الاستفهام ? معناها رقم الخانة التي يوجد بها الحرف (لاحظ انها علامة استفهام بالانجليزي وليست بالعربي) السجلات التي ثاني حرف فيها هو r . السجلات التي ثالث حرف فيها هو r . السجلات التي يكون فيها حرف r ثلاث خانات قبل الاخير . السجلات التي تبدأ بحرف a ، وطولها بعد حرف a لا يكون اقل من 15 خانه . السجلات التي تبدأ بالحرف a وتنتهي بالحرف n بغض النظر عن طول الحقل . الرمز # معناه رقم السجلات التي تبدأ بالحرف a وثاني حرف في الحقل يكون رقم . الحروف/الارقام/الرموز في الاقواس المستطيلة [] ، معناها البحث الحروف يكون فقط بين القوسين السجلات التي تبدأ بحرف B الى D فقط (يعني B و C و D) . السجلات التي تنتهي بالحروف B الى E . السجلات التي تبدأ بالحروف B و E و W فقط . العلامة ! معناها لا تُظهر السجلات التي لا تبدأ بالحرف B . السجلات التي لا تبدأ بالحروف من A الى B . السجلات التي تبدأ بحرف d وثاني حرف فيها بين الحروف N الى W . السجلات اللي فيها ارقام فقط بين الارقام 0 الى 9 . وهكذا نستعملها في الاستعلام مع الامر iif Like IIf([Forms]![frm_Main]![Srch_Item]=1,"*","*" & [Forms]![frm_Main]![Srch_Item] & "*") الشرح: اذا نتيجة [Forms]![frm_Main]![Srch_Item]=1 اعرض جميع السجلات Like "*" وإلا، اعرض فقط السجلات التي تحتوي على الحروف من الحقل في النموذج Like "*" & [Forms]![frm_Main]![Srch_Item] & "*") جعفر استفدت من هذا الرابط في بعض الاوامر اعلاه: https://www.w3schools.com/SQL/sql_like.asp Like Examples.zip

إضافة إلى ملف أخي سامي .. وتطبيق خاصية البحث بأي جزء من القائمة المنسدلة .. ثم إحضار رقم الملف : هنا الأكواد : Private Sub Combo0_AfterUpdate() Me.ReText = Me.Combo0 Me.Combo0.Requery Me.FileNumTxt = Me.Combo0.Column(1) End Sub Private Sub Combo0_Change() Me.ReText = Me.Combo0 End Sub Private Sub SearckBtn_Click() Me.Combo0.SetFocus Me.Combo0.Requery Me.Combo0.Dropdown End Sub Private Sub ShowAllBtn_Click() Me.ReText = "" Me.Combo0.SetFocus Me.Combo0.Requery Me.Combo0.Dropdown End Sub والملف المرفق : kids (1).accdb

تفضل التعديل الدائن و المدين.zip

في حدث فتح النموذج او التقرير اكتب هذا docmd.Maximize وما دمت مبتدىء : افتح النموذج على التصميم من الخصائص افتح لسان التبويب حدث في القيمة : عند الفتح .. انقر على النقاط الثلاث التي الى اليسار سوف ينقلك الى محرر الفيجول الصق العبارة داخل الحدث واحفظ واخرج افتح النموذج من جديد لترى النتيجة

ناقص حرف فقط If pw <> password Then MsgBox "خطأ في كلمة المرور", vbCritical + vbMsgBoxRight, "خطأ" ElseIf pw = password Then MsgBox "كلمة مرور صحيحة", vbInformation + vbMsgBoxRight, "تأكيد" ElseIf Len(password) = 0 Then MsgBox "يرجى ادخال كلمة المرور", vbExclamation + vbMsgBoxRight, "تنبيه" End If

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

Insert standard module and put the following code. Draw a shape or button and assign macro to it Sub Test() Application.Run "Sheet1.Worksheet_Change", Sheet1.Range("C2") End Sub Or Sub Test() Dim lr As Long With Sheets(Range("C2").Value) lr = .Cells(Rows.Count, 1).End(xlUp).Row - 5 Sheet1.Cells(6, 1).Resize(lr, 6).Value = .Cells(6, 1).Resize(lr, 6).Value Sheet1.Range("C3") = .Range("C3") End With End Sub

السلام عليكم ورحمه الله وبركاته هدية لأعضاء المنتدى الكرام برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية مفتوح للعمل عليه غير محدد المدة ومش تجريبي مغلق المصدر (الاكواد) وتعديل النماذج تحياتي user 1234 1118021174_Archivesopen18-1-2021.rar

 خواطر إكسيلية أساتذتي الكرام إخوتي الأحبة السلام عليكم ورحمة الله وبركاته: بدا لي أن أكتب موضوعاً لا يقف حكراً على أحد – بل بإمكان كلٍّ منا أن يجود بما يخطر له من مواضيع الإكسيل التي يريد أن يفيد بها - وهنا أنطلق من كلمة إكسل التي تعني البراعة أو كما يحلو لنا أن نسميها في بلدي المكلوم "برنامج الجداول الإلكترونية" : ولذلك فإنني سأنطلق من خاطرة أولى تتحدث عن بعض اختصارات برنامج الإكسيل التي نصادفها بشكل يومي كما يلي: اختصارات لوحة المفاتيح في الإكسيل: إظهار(عرض) الصيغ في الخلايا بدلاً من نتائجها المحتسبة CTRL + ~ سابقة أثر(الخلايا التي أثرت في قيمة الخلية الحالية CTRL + [ تاريخ اليوم CTRL+ ; اختيار(تحديد كل) الجدول الحالي CTRL+ * الوقت الحالي CTRL+SHIFT+ ; نسخ من الخلية المجاورة بالأعلى CTRL+ ' هذا ما استطعت عرضه في عجالة من أمري وسيتبع إن شاء الله تعالى بمواضيع أخرى والسلام عليكم خواطر إكسيلية.rar

آرجوا ان تكون اكثر مرونه في طلباتك تستحلف الناس و تقسم بهذي الطريقة امر غير لائقي اخي الكريم مجرد نصيحة اخ

السلام عليكم ورحمة الله اليك الملف new-2.xlsm

وعليكم السلام ورحمه الله وبركاته واياكم اخى ووالدى العزيز ابويوسف @محمد حسن المحمد واحشنى والله واعتذر عن التقصير فالسؤال عنكم فسامحنى 💐

اتفضل اخى ان شاء الله يكون ما تريد ولاحظ التغييرات فالكود وجزاه الله خيرا معلمنا العزيز وشيخنا الجليل @ابوخليل Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 4) prtTxt = CLng(Mid(DMax("ID", "tbl1"), 4, 4)) xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 5)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!ID = "ss/" & prtyr & "-" & Format(xNext, "00000") End Sub بالتوفيق ترقيم مع السنة وزيادة حرف_1.mdb

اعتقد هذه المشاركة بتفيدك

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

تسلم يارب وشكرا لكم

العفو منك استاذي @الفلاحجى بسبب الانفلونزا لم انتبه انه يريد العمر بس حلوة الواحد يدخل حضانة وعمره 39 سنة 😂

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

على بركة الله اولا يتم عمل هذا الموديول وظيفته فتح الملف المطلوب وطباعته Option Compare Database Option Explicit 'Written by Andrew Fergus 'set a reference to Windows Script Host Object Model ' ' agpuzon ' added x64 support ' Private Declare PtrSafe Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Private Declare PtrSafe Function ShellExecute Lib _ "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As LongPtr Const SW_SHOWNORMAL = 1 Public Sub PrintAnyDocument(strPathAndFileNamePlusExtension As String) Dim dfltPrinter As String Dim newPrinter As Object ' Create a new WshNetwork object to access network properties. Set newPrinter = CreateObject("WScript.Network") 'Get the name of the default printer dfltPrinter = Printer.DeviceName 'Set the default to the new printer 'USE YOUR ACTUAL PRINTER NAME BELOW 'newPrinter.SetDefaultPrinter ("New Printer Name") 'Pause Sleep 100 'Print the pdf document 'USE YOUR ACTUAL DOCUMENT NAME & PATH BELOW Call ShellExecute(0, "print", strPathAndFileNamePlusExtension, "", 0, SW_SHOWNORMAL) 'Pause Sleep 2000 'wait for 2 seconds - increase this if the code doesn't appear to work 'Pause Sleep 100 'Set the printer back to the original default 'newPrinter.SetDefaultPrinter (dfltPrinter) End Sub ثانيا يتم استدعاء الكود بالطريقة التالية : PrintAnyDocument "D:\اسم الفولدر\FileName.pdf" قمت بعمل نموذج طباعة وفيه حقلين نصيين اولهم اسم الملف المطلوب طباعته + الامتداد وبالتالى يمكنك طباعة اى ملف بأى امتداد ليس حصرا على PDF فقط الحقل الثانى عدد مرات طباعة الملف كود الطباعة بالشكل التالى : Private Sub Command0_Click() Dim FPath, SFileName, x As String FPath = CurrentProject.Path SFileName = Me.XFileName x = FPath & "\" & SFileName If IsNull(Me.XFileName) Then MsgBox ("يجب اختيار ملف") Else Debug.Print x For i = 0 To Me.XTimes - 1 PrintAnyDocument x Next MsgBox ("تمت الطباعة" & SFileName) End If End Sub ملاحظات : يجب ان يكون الملف فى نفس المسار مع القاعدة . هذه مجرد بداية على عجالة على قدر معرفتى الضئيلة وبالتالى هناك مساحة للتطوير بأكثر من طريقة على حسب الاحتياج (ممكن اختيار ملف بدلا من كتابة اسمه - عمل قائمة تحتوى على الملفات فى المسار ليتم الاختيار منهم - الخ ... ) . القاعدة مرفقة .. جرب ووافنى بالنتيجة Print Any File.accdb

عليكم السلام أكمل على نفس النحو 2022شيت مدرستى - الصف الرابع-.xls

تفضل اخي الكريم هل هذا هو المطلوب kids.accdb

السلام عليكم مشاركه مع اخى واستاذى @Eng.Qassim جزاه الله خيرا هل هذ ما تريد Me.BEBY_Age = Me.yes & " سنه " & Me.mos & " شهر " & Me.das & " يوم " برنامج حضانة.accdb

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

أخي الحبيب الغالي @hassona229 جزاكم الله خيرا وأحسن إليكم آمين. ولكم بمثل ما دعوتم آمين.

السلام عليكم ورحمة الله وبركاته كنت قد شاهدت موضوعاً يتضمن طلباً يحدد فيها بدايات الشهور ونهاياتها بالأيام حسب الأعوام .... منذ فترة، ولذلك أحببت أن أضع بين أيديكم هذا الملف يتعلق بذلك مضافاً إليه تمييز السنوات الكبيسة أو العادية وإن كان التاريخ ضمن الشهر الذي نحيا بين ظهرانيه يظهر اليوم والتاريخ دون بقية الشهور راجياً أن ينال إعجابكم لقد قمت بالتعديل على الملف، أرجو تجربته ليتناسب مع كل مسميات الأشهر التي يمكن تعديلها من أحد الأعمدة المخفية ليعطي الملف رونقاً وجمالاً. أما عن التعديل الذي ذكرت أعلاه لم يعد مستنداً إلى اسم الشهر ليعطي قيمة خطاً ...أبقيت الاسم على حاله وجعلت المعادلات تعتمد على رقم الشهر وأظن ذلك - بنظري - مناسب لكل مسميات الأشهر والله أعلم .. والسلام عليكم. شهور.xlsx

Use the oval shapes from Insert tab > Illustrations > Shapes > Oval. Then use this code Don't forget to change the range to suit your range Sub Test() Dim x, c As Range, r As Long, y As Long, g As Long, b As Long Application.ScreenUpdating = False r = RGB(255, 0, 0): y = RGB(255, 255, 0) g = RGB(0, 176, 80): b = RGB(0, 112, 192) For Each c In Range("C8:F11") Set x = FindImage(c) If Not x Is Nothing Then If c.Value = 1 Then c.Font.Color = r: x.Fill.ForeColor.RGB = r ElseIf c.Value = 2 Then c.Font.Color = y: x.Fill.ForeColor.RGB = y ElseIf c.Value = 3 Then c.Font.Color = g: x.Fill.ForeColor.RGB = g ElseIf c.Value = 4 Then c.Font.Color = b: x.Fill.ForeColor.RGB = b End If End If Set x = Nothing Next c Application.ScreenUpdating = True End Sub Function FindImage(CellToCheck As Range) As Shape Dim wShape As Shape, addr addr = CellToCheck.Address For Each wShape In CellToCheck.Parent.Shapes If wShape.TopLeftCell.Address = addr Then Set FindImage = wShape: Exit Function Next wShape End Function

لقد تم التعديل وأصبح الشيت جاهز للاستخدام أضعه بين يديك للاستفادة منه 1الفياب.xlsm

وعليكم السلام تفضل أخي الكريم بحث فى كل الشيتات.xlsm

مبدئيا تجربة توزيع الطلاب على عدد المدرجات فى انتظار ابداء الرأى لنرى ما بعد ذلك split students.accdb

Sub Test() Dim r As Long Application.ScreenUpdating = False For r = 5 To Cells(Rows.Count, 3).End(xlUp).Row Cells(r, 37).Value = JoinIf("-", Range("F4:AJ4"), Range("F" & r & ":AJ" & r)) Next r Application.ScreenUpdating = True End Sub Function JoinIf(del As String, rngJoin As Range, rngCrit As Range) As String Dim c As Range, n As Long For Each c In rngCrit n = n + 1 If c <> Empty And rngJoin.Cells(n) <> "" Then JoinIf = JoinIf & del & Day(rngJoin.Cells(n)) Next c JoinIf = "'" & Mid(JoinIf, Len(del) + 1, Len(JoinIf)) End Function

علميا ممكن إن شاء الله عن طريق الاستعلامات وال VBA ... ولكن لاختبار ذلك عمليا نحتاج انموذج للتطبيق عليه 🙂

السلام عليكم ورحمة الله اخى الكريم لا داعى للشكر فكلنا هنا لخدمة بعضنا البعض تفسير القائمة المنسدلة يتم تغيير الدرجات للتجربة حتى تكتمل نسبة العشرة بالمائة لآعلى درجات ممكنة و حتى يشمل اكبر شريجة من اجمالى الطلاب تم تغيير فى الكود لاظهار عدد الغياب و عدد الحضور و اجماليهم استبدل الكود المرفق بالملف بهذا الكود Sub CallData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, Mada As String, Data As String Dim C As Range, Y As Range, x As Byte Dim p As Long, N As Double Dim a As Single, b As Single Set ws = Sheets("10%") Set Sh = Sheets("الدرجات") Application.ScreenUpdating = False ws.Range("C15:E34,H15:J34").ClearContents LR = WorksheetFunction.CountIf(Sh.Range("A2:A1000"), ">" & 0) + 1 Mada = ws.Range("C9").Text Select Case Mada Case Is = "اللغة العربية": Data = "عربــي" Case Is = "الرياضيات": Data = "رياضيـات" Case Is = "الدراسات الاجتماعية": Data = "دراسـات" Case Is = "العلـــوم": Data = "علــوم" Case Is = "اللغة الإنجليزية": Data = "انجليزي" Case Is = "التربية الدينية": Data = "ديــن" End Select For Each C In Sh.Range("A1:G1") If C.Text = Data Then x = C.Column a = WorksheetFunction.CountIf(Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x)), "غ") b = LR - a - 1 ws.Range("E12") = a ws.Range("H12") = b ws.Range("J12") = LR - 1 End If Next N = ws.Range("M9").Value For Each Y In Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x)) If Y.Value >= N And Y.Value <> "غ" Then p = p + 1 If p > 40 Then Exit Sub If p <= 20 Then ws.Cells(p + 14, 3) = Sh.Cells(Y.Row, 1) ws.Cells(p + 14, 4) = Sh.Cells(Y.Row, x) ws.Cells(p + 14, 5) = Sh.Cells(Y.Row, x) Else ws.Cells(p - 6, 8) = Sh.Cells(Y.Row, 1) ws.Cells(p - 6, 9) = Sh.Cells(Y.Row, x) ws.Cells(p - 6, 10) = Sh.Cells(Y.Row, x) End If End If Next Application.ScreenUpdating = True End Sub

اتفضل ShowHideSideBareRight (2).zip

انظر للمثال المرفق..هل هذا ماتريده؟ مساعدات.accdb

النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 همسة في أذن الخبراء : كيف أجعل القوائم تمتد إلى آخر النموذج من جهة اليمين عند طي الأزرار ؟ وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb

النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb

هذه واحدة من الواجهات التي صممتها بطريقة مميزة نوعا ما : والشكر لك مهندسنا @jjafferr على البرنامج الراااااااااائع 🙂 ومن هنا التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb جعفر صفحة رئيسية مطورة.zip ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb520 kB · 439 downloads ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar

تفضل sendemail2.zip

اتغضل فى المرفق الطريقتين التقليدية من خلال زر امر لكل ترتيب نريد عمله والطريقة الذكية كما اسميتها من خلال نقرتين على العنوان لكل حقل من خلال موديول والشرح هنا يا افندم DATA1041-5 (6).mdb

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

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

احتساب تاريخ نهاية الصلاحــــــــ( Expiration Report ) ـــــية ExpirationDate.mdb

شكرا على مجهودك

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

هذا كرم وفضل من الاستاذ محمد سلامه.. واضم صوتي إليك استاذ عبدالله ..ونسئل الله ان يزيد في علمكم ويبارك لكم فيما تقدموه من مساعدة لطالبي العلم أمثالنا..

السلام عليكم ورحمة الله وبركاته ممكن تجرب الملف .. الالماني .. الاختصار de .. المعادلة =Translate(A4,"ar","en") translate.xlsm

موضوع جميل وفكرة اجمل تفضل بعض الاختصارات مفاتيح الاختصار التي تستخدم المفتاح CTRL المفتاح الوصف CTRL+PGUP للتبديل بين علامات تبويب ورقة العمل، من اليمين إلى اليسار. CTRL+PGDN للتبديل بين علامات تبويب ورقة العمل، من اليسار إلى اليمين. CTRL+SHIFT+( إظهار أية صفوف مخفية داخل التحديد. CTRL+SHIFT+) إظهار أية أعمدة مخفية داخل التحديد. CTRL+SHIFT+& تطبيق حدود خارجية للخلايا المحددة. CTRL+SHIFT_ إزالة الحدود الخارجية من الخلايا المحددة. CTRL+SHIFT+~ تطبيق تنسيق الأرقام "عام". CTRL+SHIFT+$ تطبيق التنسيق "عملة" بمنزلين عشريتين (تظهر الأرقام السالبة في أقواس). CTRL+SHIFT+% تطبيق التنسيق "نسبة مئوية" دون منازل عشرية. CTRL+SHIFT+^ تطبيق تنسيق رقم "أسي" بمنزلين عشريين. CTRL+SHIFT+# تطبيق التنسيق "تاريخ" باليوم والشهر والسنة. CTRL+SHIFT+@ تطبيق التنسيق "وقت" بالساعة والدقيقة و"ص" أو"م". CTRL+SHIFT+! تطبيق التنسيق "رقم" بمنزلين عشريين وفواصل آلاف وعلامة الناقص (-) للقيم السالبة. CTRL+SHIFT+* تحديد المنطقة الحالية الموجودة حول الخلية النشطة (تحاط منطقة البيانات بصفوف وأعمدة فارغة). في PivotTable، يحدد تقرير PivotTable بأكمله. CTRL+SHIFT+: إدخال الوقت الحالي. CTRL+SHIFT+" نسخ القيمة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+SHIFT+Plus (+) عرض مربع الحوار إدراج لإدراج خلايا فارغة. CTRL+Minus (-) عرض مربع الحوار حذف لحذف الخلايا المحددة. CTRL+; إدخال التاريخ الحالي. CTRL+` التبديل بين عرض قيم الخلايا وعرض الصيغ في ورقة العمل. CTRL+' نسخ صيغة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+1 عرض مربع الحوار تنسيق خلايا. CTRL+2 تطبيق تنسيق غامق أو إزالته. CTRL+3 تطبيق تنسيق مائل أو إزالته. CTRL+4 تطبيق تسطير أو إزالته. CTRL+5 تطبيق تنسيق يتوسطه خط أو إزالته. CTRL+6 التبديل بين إخفاء الكائنات وعرض الكائنات وعرض العناصر النائبة للكائنات. CTRL+8 عرض رموز التخطيط التفصيلي أو إخفاؤها. CTRL+9 إخفاء الصفوف المحددة. CTRL+0 إخفاء الأعمدة المحددة. CTRL+A تحديد ورقة العمل بأكملها. إذا احتوت ورقة العمل على بيانات، تحدد CTRL+A المنطقة الحالية. ويؤدي ضغط CTRL+A للمرة الثانية إلى تحديد المنطقة الحالية وصفوف التلخيص. أما ضغط CTRL+A للمرة الثالثة يؤدي إلى تحديد ورقة العمل بأكملها. يتم عرض مربع الحوار وسيطات الدالة، عندما تكون نقطة الإدراج إلى يمين اسم الدالة في صيغة. يؤدي ضغط CTRL+SHIFT+A إلى إدراج أسماء الوسيطات والأقواس، عندما تكون نقطة الأدراج إلى يمين اسم الدالة في صيغة. CTRL+B تطبيق تنسيق غامق أو إزالته. CTRL+C نسخ الخلايا المحددة. يؤدي الضغط على CTRL+C متبوعاً بـ CTRL+C إلى إظهار الحافظة. CTRL+D استخدام الأمر تعبئة لأسفل لنسخ محتويات وتنسيق أعلى خلية في نطاق محدد إلى الخلايا الموجودة بأسفل. CTRL+F عرض مربع الحوار بحث واستبدال، مع تحديد علامة التبويب بحث. تعرض SHIFT+F5 أيضاً علامة التبويب هذه، بينما تكرر SHIFT+F4 إجراء بحث الأخير. يفتح CTRL+SHIFT+F مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+G عرض مربع الحوار الانتقال إلى. تعرض F5 أيضاً مربع الحوار هذا. CTRL+H عرض مربع الحوار بحث واستبدال مع تحديد علامة التبويب استبدال. CTRL+I تطبيق تنسيق مائل أو إزالته. CTRL+K عرض مربع الحوار إدراج ارتباط تشعبي للارتباطات التشعبية الجديدة أو مربع حوار تحرير ارتباط تشعبيللارتباطات التشعبية المحددة الموجودة. CTRL+N إنشاء مصنف فارغ جديد. CTRL+O عرض مربع الحوار فتح لفتح ملف أو العثور عليه. يحدد CTRL+SHIFT+O كافة الخلايا التي تحتوي على تعليق. CTRL+P عرض مربع الحوار طباعة. يفتح CTRL+SHIFT+P مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+R استخدام الأمر تعبئة لليمين لنسخ محتويات وتنسيق الخلية الموجودة أقصى اليسار في النطاق المحدد في الخلايا ناحية اليمين. CTRL+S حفظ الملف النشط باسم الملف الحالي وموقعه وتنسيقه. CTRL+T عرض مربع الحوار إنشاء جدول. CTRL+U تطبيق تسطير أو إزالته. يستخدم CTRL+SHIFT+U للتبديل بين توسيع شريط الصيغة أو طيه. CTRL+V إدراج محتويات "الحافظة" في نقطة الإدراج واستبدال أي تحديد. يتوفر فقط بعد قص كائن أو نص أو محتويات خلايا أو نسخها. تقوم CTRL+ALT+V بعرض مربع الحوار لصق خاص. ويكون متاحًا بعد قص أو نسخ كائن أو نص أو محتويات خلية على ورقة العمل أو في برنامج آخر. CTRL+W إغلاق إطار المصنف المحدد. CTRL+X قص الخلايا المحددة. CTRL+Y تكرار الأمر أو الإجراء الأخير إذا كان ممكناً. CTRL+Z استخدام الأمر تراجع لعكس الأمر الأخير أو لحذف الإدخال الأخير الذي كتبته. يستخدم CTRL+SHIFT+Z الأمر تراجع أو إعادة لعكس التصحيح التلقائي الأخير أو استعادته عند عرض "العلامات الذكية للتصحيح التلقائي".