Ahmed_J

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

السلام عليكم اخي العزيز @gavan جرب الملف المرفق على مقاس شاشات مختلفة ووافينا بالنتيجة رجاء تحياتي ملائمة النموذج حسب حجم الشاشة.accdb

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

up

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

السلام عليكم لدي كود في ملف وهو للاستاذ @ابوخليل الله يحفظه لمطابقة العنوان الوظبفي في جدول من خلال النموذج وهو يعمل بصورة جيده اريد التعديل عليه لاظهار اسماء كل الموظفين غير المتطابقة عناوينهم الوظيفية مع درجاتهم في النموذج في حقل نصي اسمه TEXT1 بدلا من البحث في كل سجل على حده لان لو كان عندي 1000 سجل يكون صعب التدقيق عنهم او بالامكان عمل جدول مؤقت لتخزين ذلك تحياتي الموظوع السابق https://www.officena.net/ib/topic/122797-التعديل-على-ملف/page/2/ Test-11.accdb

السلام عليكم دقة الشاشة عندي 1366*768 ونظام وندوز7 واكسس 2010 موقع الصورة مضبوطة جدا وتقع بالضبط اسفل اليمين

السلام عليكم استاذ @Eng.Qassim شلونك ان شاء الله تكون بالف خير جربت الكود وهو شغال لازم تعمل كود لكل شهادة على حده (دكتوراه و ماجستير و دبلوم عالي) الخ تسلم شيء روعة والله انا عم اعمل برنامج لاضافة الخدمة (العقد والاجر اليومي) الخ انت عارف ان اغلب الموظفين القدماء لايتناسب الراتب مع الخدمة (تسكين) الخ ربي يحفظك من كل مكروه تحياتي

استاذ @Barna كل شيء تمام الله يبارك فيك ويجعلها في ميزان حسناتك يارب تحياتي

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

تعم صحيحة النتائج بس اتمنى التجربة في الدرجة الخامسة صعودا يعني الخامسة او الرابعة