gavan

up

استاذي الغالي ابو خليل تحياتي لك وكل عام وانت و اعضاء المنتدى الغالي بالف خير استاذي ممكن توضيح اكثر و اذا امكن ارفاق بمثال 🌷

لا الأخ فوكش ١٩٦٠ متواجد والحمد لله، لانه جاوب على سوالي البارحة، تحياتي لهم كلهم و دمتم في رعاية العالي الكبير 🌹🌹❤️❤️

شكرا لك يالغالي خليفة 1960🙏 انا اضفت حقل جديد الى الجدول باسم R_Name , و سحبته الى النموذج ايظا, المطلوب هو : عندما اكتب كلمة مثلا : كمال في السجل الاول و في السجل الثاني (اي الجديد) عندما اكتب كلمة ك يظهر كلمة كمال التي تم كتابتها في السجل السابق وهكذا , اي انه كل كلمة تم كتابتها تخزن موقتا و حيث ان هذه الخاصية موجودة في برنامج الاكسل , فهل هناك طريقة بنفس العمل في الاكسس ؟ وشكرا لكم جميعا DDTestSearch .accdb

شكرا لكم 🌹

ايه ياجدعان هو انا اتنسيت ولا ايه (0 قرأت و 0 ردود) ,هههههههههههههههه, هو انا سؤالي غلط ولا ايه ياناس انا هنا

مرحبا بكم من جديد هل بالامكان تكملة الكلمة بمجرد كتابة الحرف الاول من الكلمة في حقل معين من الاكسس , حيث يوجد هذه الخاصية في برنامج الاكسل ولكم اجمل شكر ❤️

Up

بارك الله فيك يالغالي Foksh عمل رائع

بارك الله فيك اخي ابو خليل

اخي الكريم ابو جودي فرغت المكتبات حتى تسع للكود هههههههه امزح اغاتي رفعت لك الملف حتى تستكشف ما الغلط بالموضوع , في اول الامر طلع الفورم فاظي , بعدين اشرت الى بعض الحقول و سويت بيهم Arrange ضهروا ولكن بس خطوط , فممكن تشوف المرفق و تشرحلى لماذا حدث ذلك , تحياتي بطريقة الاستاذ ابو جودي.accdb

يا جماعة الخير السلام عليكم مو راضيين نخلص السالفة الا ما نوصل لحل ,هههههههههه تحياتي الكم يالغاليين في هذا الملتقى الرائع اخوتي من خلال تجربتي على تحجيم النماذج و كيفية التخلص من مشكلة تغير مقاس الشاشات وصلت الى النتائج التالية : من خلال الوحدة النمطية هذه Option Compare Database Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function واستدعائها من خلال النموذج عند التحميل بالشكل الاتي : resizefrom Me, 1366, 768 DoCmd.Maximize نحصل على ناتئج جيدة جدا سواء في مقاس (600*800) او (1024*768) او (1280*720) او (1366*768) حيث تم تصميم البرنامج على اخر مقاس وهو (1366*768) ونتوصل هنا الى شيء مفاده ان: 1-بهذه الوحدة النمطية 2-وتصميم على مقاس (1366*768) 3- واستدعائها بهذه الطريقة المذكورة من هذا القياس و الى القياسات الاصغر لاتوجد اي مشاكل و البرنامج يعمل بشكل ممتاز , فقط يجب ملاحظة انه النماذج التي لا تحصل على تكبير كامل للشاشة (DoCmd.Maximize) , يجب ان تحتوي على استدعاء هكذا (resizefrom Me, 1366, 768 ) لكي تحصل على افضل النتائج . هذة الفكرة انقلها لكم من خلال تجربتي الشخصية و الحصول على نتائج جيدة , ارجوا نشر الموضوع ليستفيد منه اكبر عدد من الاعظاء في حال تم تجربته من قبل اعظاء المنتدى الرائع❤️

اخي ابو جودي تحية طيبة هل بالامكان تحويل الكود الى موديول و استدعائها من قبل النموذج اكون شاكرا لك

مرحبا بالغوالي و لعى راسهم الاخ Foksh الحبيب والله اخي الحبيب انا لم اقم بتجربة فقط ,بل قمت بالكثير منها على سبيل المثال , قمت باستدعاء الدالة من الفورم عند التحميل بهذا الشكل resizefrom Me, 1366, 768 DoCmd.Maximize في كومبوتر شاشة 24 انج اعتقد الرزيليوشن 1950*1443 يعني دقة عالية كانت النتائج مذهلة وكانك بكل المقاييس توسيط و تحجيم و كل شيئ , ولكن فجأة عند غلق النموذج و فتحه تضاعف حجم المحتويات واصبح غير مرتب , قمت بعدها بحذف دالة الاستدعاء resizefrom Me, 1366, 768 ,,,, وابقيت فقط على DoCmd.Maximize اصبحت النتائج جيدة وكانني قمت بالتصيميم على ذلك الكومبيوتر 24 انج ابو الريزليوشن 1950*1443 , فهل من تفسير ؟؟؟ ولك مني اجمل سلام

طار الموضوع من فكري ههههههههه خربطت لقد قمت بتجربة (لا اعرف صح ولا طبقتها بشكل خاطئ) اتمنى ان تشاركوني بها يا حبايبي لقد قمت بتكوين موديول Resize وهو Option Compare Database Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function و استدعيتها من الفورم عند التحميل هكذا resizefrom Me, DisplaySize(0), DisplaySize(1) DoCmd.Maximize الامر الى الان طبيعي عند دقة الشاشة 1336*768. عندما اغير دقة الشاشة الى 800*600 هنا تبدا المعركة (على فرض انني اعطيت البرنامج الى شخص اخر شاشته 600*800) يتغير محتويات الفورم كما في الصورة ادناه. اليس من المفروض يتوسط و يتحجم كل المحتويات في الفورم حسب الدقة الجديدة 600*800 ؟؟ ام انا مخطئ ,تحياتي لكم