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

تفضل هذه المشاركة اضغط على استعلام نقل البيانات فقط 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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو بسملة @الفلاحجى جزاكم الله خيرا وأحسن إليكم آمين

وعليكم السلام ورحمه الله وبركاته اخى الفاضل طارق @Tarekfathallah هل اقوم بالتغييرات اللازمه ام لا بالنسبه لجدول IETEM_NEM وحقل ITEM_NO رقم الوارد الذى تريد جعل هذا الترقيم به والبادىء من اليسار بالحروف فهو فى جدولك الان حقل رقمى والترقيم الذى تريده به حروف وعلامات فيجب تغييره الى حقل نصى هل اقوم بالتغييرات ام لا ؟

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

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

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

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

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

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

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

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

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

السلام علبكم كيفية البحث في نموذج وعرض النتيجة في نموذج اخر وشكرا

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

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

تفضل التعديل Employee Monthly Attendance.zip

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

=IF(B3="غ","ضعيف",IF(B3>=42,"ممتاز",IF(B3>=36,"جيد جدا",IF(B3>=25,"جيد","ضعيف"))))

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

علميا ممكن إن شاء الله عن طريق الاستعلامات وال 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

تفضل التعديل..جرب ان تكرر رقم الهوية مساعدات1.accdb

هل تعتقد يا دكتور حتى الان ان الاكسس عاجز عن تصميم النماذج التى تدعم الـ responsive ام غيرت رأيك الان بعد الاطلاع على المرفق الاتى ؟ فى انتظار رأيك يا دكتور responsive form ☺.mdb

النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar

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

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

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

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

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

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

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

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

تفضلوا قائمة منسدلة بدون أعمدة مساعدة وبدون الاستعانة بورقة العمل ، ومنقحة وبلا فراغات وبها قيم فريدة أي غير مكررة وعلاوة على كل ما سبق مرتبة أيجدياً.. إليكم الملف المرفق Unique Sorted Validation List.rar