Ahmed_J

السلام عليكم كود للاخ @صالح حمادي ملائمة عناصر النموذج في وضع ملأ الشاشة 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

السلام عليكم انا جربت الكود على الشاشات التالية : 800*600 1024*768 1280*720 1280*768 1360*768 1920* 1080 كان يعمل بصورة صحيجة عندي هذا الخطا بالصورة غير موجود عندي اذا كنت لاتريد اخفاء الاكسس احذف الكود عند التحميل في النموذج HideAccess الكود انا استخدمة في النماذج الكبيرة والمفردة تحياتي

السلام عليكم جرب المثال على شاشة جهازك واخبرني النتيجة ضبط النموذج على الشاشة.accdb

السلام عليكم استاذ @عمر ضاحى انا عندي نظام التشغيل (Windows 7 32 bit) واكسس (2010) والكود شغال معي ارجو تجربته على انظمة مختلفة لتعم الفائده للجميع تحياتي

السلام عليكم شكرا لك استاذ @kanory لدي نموذج فيه كومبوبوكس لمعرفة الاجهزة المتصلة بالحاسوب يمكن من خلاله تحديد نوع الماسح الضوئي المراد العمل عليه ارجو تجربته واخبارنا بالنتيجة كما في النموذج المرفق تحياتي test.accdb

السلام عليكم اساتذتي الاعزاء اريد كود بالنموذج يظهر لي اجهزة الماسح الضوئي المتصلة بالحاسوب عن طريق قائمة او نافذه وطريقة الاختيار منها لعملية المسح الضوئي كما في الصورة المرفقة علما اني استخدمت الدالة (TWAIN) . تحياتي للجميع

السلام عليكم اساتذتي الاعزاء شكرا لك استاذ @الحلبي شكرا لك استاذ @ابو بسملة شكرا لك استاذي القدير @ابوخليل بارك الله بكم جميعا

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

up

السلام عليكم اساتذي الاعزاء لدي برنامج مخزني بسيط فيه جدولين الاول table1 لادخال الوارد المخزني و table2 لاخراج الوارد المخزني المطلوب : استعلام لغرض اظهار الرصيد الباقي من المواد في حالة صرف اي مادة من المخزن من خلال الجدول table2 واظهار الحقول الخاصة بهم كما في النموذج form1 تحياتي test 10.accdb

السلام عليكم استاذ @زياد الحسناوي اساتذتي الاعزاء هل من الممكن اكمال الموضوع لطفا حتى لو كان عام 2019 تحياتي للجميع

استاذ @ناقل كل الشكر والتقدير بارك الله فيك كل شيء تمام

up

السلام عليكم استاذب العزيز @ناقل الكود لايعمل بصورة صحيحة تحياتي Test-12.accdb

up