بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 21 يول, 2024 in all areas
-
السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) قمت بتنفيذ فكرة لأنشاء الجداول بطريقة مختلفة عن الطريقة التقليدية التي نعرفها .. إلا أنها ما زالت قيد التطوير الفكرة تعتمد على نموذج واحد فقط يمكّن المستخدم من إنشاء جداوله والحقول التي تحتويها ونوع الحقول بشكل سهل وبسيط . أولاً انقر على الزر " أنشاء حقل جديد ... " ثانياً قم بملئ الحقول ( اسم الجدول ، اسم الحقل ، نوع الحقل ) ، عند اختيار نوع الحقل سيتم إضافة الحقل الجديد الى الـ List Box تسلسلاً حسب الإدخال . عند الإنتهاء من إدخال جميع الحقول وأنواعها ، انقر الزر " إنشاء الجدول ... " ، وهنا سيتظهر رسالة تفيد بأنه ( لابد من وجود حقل مفتاح أساسي ، هل ترغب بتعيين حقل مفتاح أساسي ؟ ) عند اختيار Yes - نعم سيتم تعيين أول حقل كمفتاح أساسي ؛ وإذا تم اختيار No - لا سيتم انشاء الجدول دون مفتاح أساسي . عند إنشاء الجدول سيتم تصحيح عدة نقاط بشكل تلقائي وهي :- إزالة المسافة من اسماء الجداول واستبدالها بـ " _ " . إضافة الجزء "_Tbl" الى اسم الجدول عند انشائه . أيضاً إزالة المسافة من أسماء الحقول واستبدالها بـ " _ " . الملف مفتوح المصدر TBL Maker.accdb بناءً على إقتراحات أستاذي وصديقي @Moosak ، والتعديلات التي تقدم بها صديقي وأستاذي @ابو جودي ، تم دمج وإضافة تعديلات جديدة أرجو أن تنال رضاكم وإعجابكم . تم إضافة ميزة أن يكون في الجدول أكثر من حقل مفتاح أساسي . تم إضافة ميزة التعديل على الحقول أو حذف أحد الحقول قبل إنشاء الجدول من خلال زر " تعديل الحقول " ، وبعد إجراء التعديلات انقر زر " تأكيد التعديل ". تم دمج ميزة حرية إضافة " _Tbl " الى اسم الجدول عند انشائه ( فكرة الأستاذ أبو جودي مع إجراء تعديل بسيط ) - إختياري . تم دمج ميزة أن يكون أسماء الجداول والحقول ( الإنجليزية ) تبدأ بحرف كبير Capital Letter . تم إضافة ميزة فتح الجدول بعد انشائه لرؤية النتيجة أو لإدخال البيانات - إختياري . تم إضافة زر " مفتاح أساسي " لتمكين المستخدم من اختيار الحقول التي يريدها أن تكون مفتاح أساسي . تم إضافة زر " إضافة حقل " لإضافة حقل جديد . تم تعديل التصميم بشكل بسيط ليتناسب مع محتوياته والميزات الجديدة . ✔ لا حاجة لأي مكتبات أو مديولات عند نسخ النموذج لمشروعك والبدء بالإستفادة من ميزاته . ✔ أتطلع لأي أفكار جديدة أو اقتراحات TBL Maker.accdb680 kB · 7 downloads تم تعديل منذ 7 ساعات بواسطه Foksh3 points
-
هتعدل الداله فقط بالشكل التالي Public Function HandleKeyDown(KeyCode As Integer, Shift As Integer) As Integer If (Shift And acShiftMask) > 0 Then ' إذا كان مفتاح Shift مضغوطًا Select Case KeyCode Case vbKeyC ' إذا كان المفتاح المضغوط هو C MsgBox "Shift + C تم الضغط على" HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي Exit Function End Select ElseIf (Shift And acCtrlMask) > 0 Then ' إذا كان مفتاح Ctrl مضغوطًا Select Case KeyCode Case vbKeyB ' إذا كان المفتاح المضغوط هو B MsgBox "Ctrl + B تم الضغط على" HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي Exit Function End Select Else Select Case KeyCode Case 115 ' F4 Form_Form1.k1.SetFocus HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي Case 114 ' F3 Form_Form1.k5.SetFocus HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي Case Else HandleKeyDown = KeyCode ' لإعادة KeyCode الأصلي لتمكين إدخال البيانات في الحقل End Select End If End Function بقيت التكست بوكس كما هي2 points
-
انت اي حاجه بتعملها بتبقي جامده يا بروف 😉 😉 ولا اقولك يا MPV بروف ☺️ ☺️ انت مش فنان انت دائما مبدع لو عملت نموذج فاضي حتي هيكون اختراع 🙄🙄 انا مش بحسد انا بقر بس 🤣🤣2 points
-
جرب هل هدا ما تقصده tb1 = Evaluate("=SUM(SUMIFS('" & WS.Name & "'!G4:G100000,'" & WS.Name & _ "'!C4:C100000,{""مبيعات"";""قيد""},'" & WS.Name & "'!B4:B100000,""<""&'" & WS.Name & "'!Y1))") tb2 = Evaluate("=SUM(SUMIFS('" & WS.Name & "'!H4:H100000,'" & WS.Name & _ "'!C4:C100000,{""مردودات مبيعات"";""سند قيد"";""سند قبض""},'" & WS.Name & "'!B4:B100000,""<""&'" & WS.Name & "'!Y1))") result = tb1 - tb2 Me.Text_count.Value = Format(result, "#,##00.00") If Me.Text_count = 0 Then colDates كما ترى في الصورة التواريخ تظهر معي بالشكل المطلوب قم بتعديل تنسيق التاريخ على الجهاز الخاص بك الى dd/mm/yyyy او تعديل الكود Sub Filtre() If Me.DateMini = "" Or Me.DateMaxi = "" Then Exit Sub For i = 1 To 3 Me.Controls("TextBox" & i).Value = "" Next i S.Caption = "" Dim Tbl() cbx1 = Me.ComboBox1: cbx2 = Me.ComboBox2: cbx3 = Me.ComboBox3 n = 0 dMini = CDate(Me.DateMini): dMaxi = CDate(Me.DateMaxi) Cb = Array(1, 1, 1) For i = 0 To UBound(ColCombo): Cb(i) = ColCombo(i): Next i For i = 1 To UBound(TabBD) If TabBD(i, Cb(0)) Like cbx1 And TabBD(i, Cb(1)) Like cbx2 _ And TabBD(i, Cb(2)) Like cbx3 _ And TabBD(i, 2) >= dMini And TabBD(i, 2) <= dMaxi Then n = n + 1: ReDim Preserve Tbl(1 To Irow + 1, 1 To n) c = 0 For c = 1 To Irow: Tbl(c, n) = TabBD(i, c): Next c Tbl(c, n) = TabBD(i, Irow + 1) Tbl(2, n) = Format(TabBD(i, 2), "dd/mm/yyyy") ' تنسيق عمود التاريخ End If Next i If n > 0 Then Me.ListBox1.Column = Tbl SUMIF Else Me.ListBox1.Clear End If End Sub Copy of كشف حساب عميل -V3.xlsm2 points
-
1 point
-
1 point
-
1 point
-
1 point
-
شكرا لك اخي واستاذي @محمد احمد لطفى وشكرا لك أستاذي الغالي @M.Abd Allah اشكركما على المساعدة تنوع في الكود و أكثر من طريقة .. رائع جدا تسلم اياديكم اساتذتنا بارك الله فيكما وجزاكم الله عنا خيرا ساقوم بتجربتهما1 point
-
1 point
-
أشكرك على ردك مهندسنا الغالي هل التسمية التوضيحية أو Lebels من مكونات الجداول ؟؟؟؟؟؟ تم الأمر في التحديث التالي إن شاء الله .1 point
-
الاخ الغااااالي Foksh خااااالص شكري وتقديري تماااام هو المطلوب جزاك الله كل الخير وزادك من العلم1 point
-
وعليكم السلام ورحمة الله وبركاته ,, تم انشاء الدالة حساب التكاليف :- Private Sub CalculateTkalef() Dim contractType As String Dim months As Integer Dim costPerMonth As Currency Dim totalCost As Currency contractType = Me.elt3qod.Value months = Nz(Me.elmohla.Value, 0) Select Case contractType Case "ايجار" costPerMonth = 300 Case "ايجار تمليكي", "تمليك" costPerMonth = 500 Case Else costPerMonth = 0 End Select totalCost = costPerMonth * months Me.eltkalef.Value = totalCost End Sub واستدعائها في حدثي بعد التحديث لـلكومبوبوكس (elt3qod) ومربع النص (elmohla) . برنامج.accdb1 point
-
يا افندم اهلا بيكى فى اى وقت محدش زعلان ولا متعصب ولا تعبان موضوع ان طلبات حضرتك بتكون مبهمه دى فى ايد حضرتك وده اللى انه طلبته من حضرتك شرح المطلوب تفصيلا لا اكثر ولا اقل قرار عدم دخول حضرتك المنتدى شئ لا نقبله ولا يسعدنا طبعا اختلاف وجهات النظر لا يعنى القطيعة فالمنتدى تعليمى ويقدم كل الاساتذة والاخوة ما يملكون قدر الامكان لهذا المنتدى ابتغاء وجه الله عزوجل1 point
-
وعليك السلام ورحمة الله وبركاته باش مهندس @Foksh 🙂 تحفة جديدة تضاف للمكتبة العربية العامرة .. ما شاء الله تبارك الله 😊🌷 ملاحظتين فقط 😅✌ : 1- ياليت لو تضيف أيضا من ضمن البيانات ( التسمية التوضيحية ) ، هذي أنا عندي من الأساسيات 😁👌 2- لو تخليه يعمل المفتاح الأساسي لحقل الترقيم التلقائي ويتعرف عليه تلقائيا .. وإذا ما وجد حقل ترقيم تلقائي ينشيء واحد جديد ويسميه ID . نفس طريقة الأكسس .. 🙂 والله يعطيك العافية على هذي الإبداعات1 point
-
تفضل بالتوفيق Shift: Shift = 1 Ctrl: Shift = 2 Alt: Shift = 4 If KeyCode = 66 And Shift = 1 Then or If KeyCode = vbKeyB And Shift = 1 Then If KeyCode = 67 And Shift = 2 Then or If KeyCode = vbKeyc And Shift = 2 Then1 point
-
أستاذنا الغالي @M.Abd Allah كيف يكون الكود في حالة استخدام زرارين معاً مثل الشفت وحرف ؤ ( Shaft + C ) أو ( Ctrl + B ) عند الضغط عليها معاً يقوم بتنفيذ أمر معين رجعت لنفس الموضوع بعد فشل الكثير من المحاولات وشكرا لك على جهدك الثمين في مساعدتي1 point
-
1 point
-
Sub Transfer() Dim rg As Range With Sheets("ورقة1") Set rg = .Range(.Range("A1:D1"), .Range("A1:D1").End(xlDown)) With rg .AutoFilter Field:=1, Criteria1:="منفذ" .Offset(1).Copy Sheets("ورقة2").Range("A2") .AutoFilter End With End With End Sub1 point
-
السلام عليكم ورحمة الله وبركاته اللهم اجعل هذا العمل خالصا لوجهك الكريم لكي تعم الفائدة : البرنامج مفتوح المصدر "الباسوورد 1374" ارجو الحرص في التعامل مع المعادلات . ان اخطأت اغلق بدون حفظ برنامج توزيع الطلاب على الاقسام ( خاص بالتعليم الفني ) صناعي _ زراعي _ تجاري _ فندقي _ مهني كل ما عليك هو تسجيل بيانات الطالب ( الاسم _ المجموع _ القومي ) فقط ثم احصل بعد ذلك على قوائم الفصول . البرنامج له جزئين . ويجب الربط بينهما الاول : لاستخلاص البيانات الثاني : قوائم الفصول الجزء الاول برنامج تنسيق مدارس_معدل.xlsb الجزء الثاني trheel_p_3_access.xlsb1 point
-
بارك الله فيك ابو حبيبه وجعله الله في ميزان حسناتك يوم القيامة1 point
-
استاذى ومعلمى الفاضل بارك الله فيكم واسف على تأخرى فى الرد هذا بالفعل الملطوب وزياده بارك الله فيكم1 point
-
1 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته بارك الله فيك أخي الكريم ماجد تَيِّم (أبو عبد الرحمن) وجعله الله في ميزان حسناتك يوم القيامة1 point
-
بارك الله فيك دكتورنا الغالي جعله الله في ميزان حسناتك يوم القيامه1 point