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

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

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

تفضل استاذ @Mr-X المرفق بعد التعديل .عدك نموذجان واحد بالزر والثاني بمجرد الكتابة بمربع البحث والأثنا يعملوا بجميع خيارات النموذج . جرب ووافني بالرد . بحث بجميع الحقول وحالة الاحرف.rar

أنت أبو المراقبين الإداريين.. كيف تتنصل من مهامك؟! كن شجاعاً! وأَوصي بإجابة أبو أحمد في مشاركته السابقة.. وينتهي الإشكال! هل تريد تغيير القوانين من أجل أبو أحمد؟! السائل هو أدرى بالإجابة الأصلح له! ومن حقه منح أفضل إجابة بالنسبة له.. كان بإمكان أبو أحمد إنشاء مشاكة جديدة يشرح فيها وجهة نظره الرياضية في مسألة التقريب، وسيجد من يشاكه الرأى، وأيضاً من يعترض!

فورم ذكاء اصطناعي اضافة وبحث وحذف واغلاق لفورم اكسل الفيديو فورم بحث واضافة وحذف بيانات بالذكاء الاصطناعي.xlsm

الاستاذ الفاضل @Foksh بعد التجربة شغال وبامتياز جزاك الله كل الخير ان شاء الله الف شكر وامتنان

اخي @moho58 .. جرب هذا السلوك :- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Dim newKeyCode As Integer Select Case KeyCode Case vbKeyDown DoCmd.GoToRecord , , acNext Case vbKeyUp DoCmd.GoToRecord , , acPrevious Case vbKeyRight newKeyCode = vbKeyLeft KeyCode = newKeyCode Case vbKeyLeft newKeyCode = vbKeyRight KeyCode = newKeyCode End Select End Sub

آخر تحديث الأستاذ @Foksh تم التعديل على أحد السطور حتى لا ترجع لي بطلب جديد. الأكواد في الملف. أرجو حذف المرفقات السابقة، (ملفات الإكسل فقط مع الإبقاء على المشاركات والصور). أرجو قفل هذا الموضوع. CustomCeiling_03.xlsm

محاولاتي معك بعيدة عن الكمبيوتر ، غدا إن كان في العمر بقية سنحاول المتابعة للوصول الى حل

أَوصي بإجابة أبو أحمد في مسألة التقريب! ولك ألف ريال!

الموضوع يهم جميع اعضاء المنتدى ,, وملاحظتك جميلة من الواقع كثيرا ما نواجهها

لا يفتى ومالك في المدينة انا ارشح ابا ابراهيم لهذا المنصب .. ويكون هو فقط المسؤول عنه

السلام عليكم: موضوع اختيار نوع كلمة الاجابة مهم جدا بعض الاحيان لا تكون الاجابة مقنعة وياتي بعدها حل افضل مما يضطر المشارك اما يلغي (افضل اجابة) وا يتركها خجلا وانا ارشح ( اجابة صحيحة ) ايضاً

ما شاء الله عليك .. انت موفق في اختيارك نعم .. انا ارشح هذه التسمية هي اجابة صحيحة .. ويمكن وجود اجابات اصح منها

إجابة صحيحة

تم استبدال دالة @Foksh وتم إضافة دالة جديدة لـ @AbuuAhmed تم تلوين النتائج الخاطئة بالأصفر. CustomCeiling_02.xlsm

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

من اقتراحاتي للتسمية : - حققت المطلوب ، او حققت الطلب - اعتمدها السائل - تم الاعتماد آمل من الاخوة اضافة ما يرونه من اسم مناسب

السلام عليكم ... عند تنفيذ الواجهة الرئيسية لتطبيقة أكسس ، يوجد فراغ على جهة اليمين للشاشة ( مشار إليه بالسهم الأصفر في الصورة المرفقة ). كيف يمكنني جعل الواجهة الرئيسية للتطبيق على كامل الشاشة بدون فراغات ؟

السلام عليكم كود للاخ @صالح حمادي ملائمة عناصر النموذج في وضع ملأ الشاشة https://www.officena.net/ib/topic/74453-ملاءمة-عناصر-النموذج-في-وضع-ملأ-الشاشة/ تم التعديل عليه قليلا للتلائم العناصر مع حجم الشاشة من حيث (حجم الخط) و(تعديل خصائص العناصر) Option Compare Database Option Explicit Function ResizeForm(frm As Form) On Error GoTo ErrorHandler Dim X As Long, Y As Long, x1 As Long, Y1 As Long Dim moyH As Double, moyW As Double Dim obj As Control Dim maxFontSize As Integer Dim newFontSize As Double maxFontSize = 20 ' الحد الأقصى لحجم الخط ' أبعاد النموذج قبل التكبير X = frm.InsideWidth ' عرض النموذج قبل التكبير Y = frm.InsideHeight ' ارتفاع النموذج قبل التكبير ' تكبير النموذج DoCmd.Maximize ' أبعاد النموذج بعد التكبير x1 = frm.InsideWidth ' عرض النموذج بعد التكبير Y1 = frm.InsideHeight ' ارتفاع النموذج بعد التكبير ' حساب معامل الارتفاع والعرض moyH = Y1 / Y moyW = x1 / X ' تعديل خصائص كل عنصر في النموذج For Each obj In frm.Controls With obj ' ضبط الموضع والحجم .Left = .Left * moyW .Top = .Top * moyH .Width = .Width * moyW .Height = .Height * moyH ' تعديل حجم الخط إذا كان العنصر يدعم ذلك If .ControlType = acTextBox Or .ControlType = acLabel Or .ControlType = acCommandButton Or .ControlType = acComboBox Then If Not IsNull(.FontSize) Then newFontSize = .FontSize * moyH If newFontSize > maxFontSize Then .FontSize = maxFontSize ElseIf newFontSize < 6 Then .FontSize = 6 ' الحد الأدنى لحجم الخط Else .FontSize = newFontSize End If End If End If End With Next obj Exit Function ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical End Function اتمنى تجربته على شاشات ذات دقة مختلفة واخبارنا بالنتيجة تحياتي للجميع ملاءمة عناصر النموذج حسب حجم النموذج_.accdb

الشكر الجزيل لكم جميعا . . دائما فى هذه الموافق ألجا إليكم .. زادكم الله من فضله علما تم التحويل الملفات إلى zip كان المطلوب rar لكن ليس هذه المشكلة المشكلة الملف يضغط لملفين كما بالصورة . تعديل : تم التحويل بنجاح بنسبة 100 % - وبالنسبة للملفين يوجد لكل ملف ملف بنفس الاسم + .shp لذلك ظهر ملفين .. شكرا لكم جميعا وزادكم الله من فضله

تفضل استاذ @moho58 المرفق حسب مافهمت بعد التعديل . والعلاقة صحيحة . ووافني بالرد . baseE.rar

رغم أنك في قسم الآكسيس ، والمفترض ان تطرح سؤالك في قسم الويندوز والبرامج على ما اعتقد ، إلا أنه قد يكون هناك فرصة باستخدام الـ PowerShell كالآتي كمحاولة :- Get-ChildItem -File | Group-Object { $_.BaseName } | ForEach-Object { Compress-Archive -Path $_.Group.FullName -DestinationPath "$($_.Name).zip" } في داخل المجلد الذي يحتوي ملفاتك ، اضغط مفتاح Shift داخل المجلد والزر الأيمن للماوس اختر Open PowerShell window here من القائمة . ثم الصق السطر السابق .

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) سأقدم لكم فيما بعد ( مرحلة التطوير والتعديل الأخيرة ) فكرة لتنفيذ عملية التحديث الهوائي ( Online ) . فيما يلي صورة لفكرة التحديث من مشروع قيد التحضير لصديق لي .. انتظرونا

ما شاء الله 🌹 اخي وصديقي العزيز فادي منتظرين على احر من الجمر التحفه الفنيه الرائعه من صاحب الافكار خارج الصندوق والاكيد هتكون فى قمة الروعة 🌹🌹🌹🌹🌹

https://www.4shared.com/rar/vx1cv9Hxca/KutoolsforExcel1650.html

السلام عليكم اخي اليك التعديل حسب فهمي من السؤال انت عملت كود للإستخراج عدد ايام غياب و آخر لإستخراج تواريخ غياب في ورقة Dat ثم نسخه الي ورقة sheet1 وفي الحالة يمكن تتغير فرز خلايا بيانات و لصق خلايا خاطئة و في التعديل عملت كود واحد في sheet1 لإستخراج ايام غياب و التاريخ معا و في نفس الوقت. FilterForm.zip

أهلا بكم.. في اعتقادي أن أكسس لديه أدوات تقوم بالتقريب! لكن الإشكال متي وكيف يمكن استخدام التقريب؟! الطريقة الأولى > في تصميم الجدول يمكن التقريب بوضع صفر في خصيصة منازل الفاصلة العشرية..(مع بيانات العُملة، أو الرقمية ذات الفاصلة العشرية).. > في تصميم الاستعلام أو النموذج أو التقرير.. نتبع نفس الخطوات.. الطريقة الثانية استخدام التوابع (...,FormatCurrency(Expression, [NumDigitsAfterDecimal As Long = -1] (...,FormatNumber(Expression, [NumDigitsAfterDecimal As Long = -1] الطريقة الثالثة استخدام التابع Round(Number, [NumDigitsAfterDecimal As Long]) > هذه التابع له محددان: الرقم المراد تقريبه، وعدد المنازل بعد الفاصلة.. > المحدد الثاني إختياري: إذا تم تجاهله أو وضع الصفر؛ فإنه يقرب إلى الواحد.. مثال: تقرب الرقم 1.50 إلى 2.00 > يعيب هذه التابع أنه يقرب 0.50 إلى 0.00 ، وللتخلص من هذا العيب نضرب المحدد الأول في 1.01 استخدام هذه الحلول في الاستعلام سبق أن أشرت إلى أنه يمكن التقريب باستخدام خصائص البيانات كما في الطريقة الأولى، لكن هذه الطريقة تعطي بيانات مغلوطة في الحساب.. مثال: عند ضرب كمية الطلب في السعر فإن عملية الضرب تأخذ بيانات السعر الأصلية وليست البيانات المقربة. للتخلص من هذه الإشكالية نقوم باستخدام الطريقة الثانية أو الثالثة ضمن بيانات تعريف حقل بيانات السعر.. في المثال المرفق: راجع الاستعلامات الثلاث في وضع التصميم لترى الفرق.. dbTestCurrency.accdb

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

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

الحل بسيط

تفضل أخي @بوكفوس عبدالسلام . ووافني بالرد . لجعل الواجهة الرئيسية لتطبيق Access (مايكروسوفت أكسس) تُعرض على كامل الشاشة بدون وجود فراغات على الجوانب، يمكنك اتباع الخطوات التالية: 1. إعداد حجم النموذج الرئيسي افتح النموذج الرئيسي (Main Form) الخاص بتطبيقك في وضع التصميم (Design View). في خصائص النموذج (Property Sheet)، حدد الخصائص التالية: Auto Center: اجعلها Yes. Auto Resize: اجعلها Yes. Border Style: اجعلها None. Popup: اجعلها No. Fit to Screen: اجعلها Yes. Width و Height: اضبطها بحيث تتناسب مع الشاشة. 2. استخدام التعليمات البرمجية (VBA) لتوسيع النموذج يمكنك استخدام كود VBA لجعل النموذج يُعرض على كامل الشاشة تلقائيًا عند فتحه: انتقل إلى علامة تبويب Events في خصائص النموذج. في الحدث On Load، اضغط على الزر (...) واختر Code Builder. أدخل الكود التالي: Private Sub Form_Load() DoCmd.Maximize End Sub هذا الكود سيقوم بتكبير النموذج ليملأ الشاشة عند فتحه. 3. إخفاء واجهة أكسس الافتراضية إذا كنت تريد إخفاء شريط القوائم والأشرطة الجانبية الخاصة بأكسس لجعل التطبيق يبدو كبرنامج مستقل: في خيارات Access: اذهب إلى File > Options > Current Database. قم بإلغاء تحديد الخيارات مثل: Display Navigation Pane. Allow Full Menus. Allow Shortcut Menus. اضغط OK وأعد فتح التطبيق. 4. استخدام دقة الشاشة الديناميكية لضمان توافق النموذج مع أي حجم شاشة، يمكنك استخدام مكتبات أو دوال لجعل النموذج يتكيف مع أبعاد الشاشة الحالية. مثال: Private Sub Form_Load() Me.Width = Application.UsableWidth Me.Height = Application.UsableHeight Me.Left = 0 Me.Top = 0 End Sub نصيحة إضافية: إذا كان النموذج يحتوي على عناصر كثيرة، تأكد من ترتيبها بشكل مناسب باستخدام أدوات التخطيط لتجنب حدوث اختلال في العرض.

مشاركتي الأخيرة في هذا الموضوع ملخص مقارنة لجميع المشاركات في ملف إكسل وصورة. الدالة المذكورة ومثيلاتها الثلاث صممت للأكسس مع تطابق تام مع دوال الإكسل بقدر الاستطاعة، وملف الإكسل ما هو إلا وسيلة للمقارنة فقط. موفقين جميعا، أنا لم أغادر أوفيسنا، ومتواجد في منتدى الإكسل لمن يريد متابعتي. CustomCeiling_01.xlsm

اتفضل ملفك بعد التعديل GSTION.accdb

استعمل هذه المعادلة بدل التي وضعتها لتفادي الخطأ في حال تم كتابة نص او اي شيء غير الارقام في العامودين I و J الملف مرفق من جديد marwa_New_2.xlsm