gavan

ايه ياجدعان هو انا اتنسيت ولا ايه (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 ؟؟ ام انا مخطئ ,تحياتي لكم

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

شكرا يالغالي ابو خليل على الرد , تكرار ال x هو خطا مطبعي الكود الذي ارفقته ما اشتغل الكود في الاسفل يعمل بصورة صحيحة اذا كان ملف ال( Frontend و Backend , وملفات ال PDF) في نفس المجلد x = Application.CurrentProject.Path & "\" & Me.TextConv & ".pdf" Application.FollowHyperlink x اما اذا نقلت ال Frontend الى قرص اخر و طبقت عليه الكود الذي جربته من حظرتك ,لايعمل تحياتي ❤️

اخي الغالي هل المسار الذي كتيته صحيح ,لانه لايعطي الناتج , حيث المطلوب اظهار ملف PDF في مسار قرص C و البرنامج في القرص E Dim x As String x = x = "C:\" & Users \ Dell \ Desktop \ "In-Out-Program 7-1-2024\IN-PDF "" \ " & Me.TextConv & ".pdf" Application.FollowHyperlink x

الاستاتذة الخبراء (kkhalifa1960 , و Foksh ) ابدعتم والله ابدعتم وتحياتي الخالصة لكم

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

شكرا على المجهود الرائع 🌹🌹

تحياتي يالغالي، اذن هنالك طريقة استعادة للجدول، لو تكرمت بكيفية العمل بها نكون شاكرين ودائما منكم نستفيد يالغالي جعفر 🌹🌹 يالغالي قسيم وانا ايظا اتكلم عن الملفات وليس الجداول، حيث الشرح في المثال،، ملف الاكسس A,،، دقيق جدا، تحياتي لك يا استاذنا الغالي 🌹🌹

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

انا افكر هل يمكن استرجاع جدول محذوف من قاعدة 🤔🤔؟؟ انا لم اسمع بها من قبل 🤔🤔 ولكن هناك طريقة أخرى جربها ممكن ان تفيدك وهي : اي برنامج استرجاع الملفات في الويندوز يمكنه ان يرجع لك ملف الاكسس مالك مثلا: ملفك الاكسس اسمه A سيقوم برنامج الاستعادة استعادة الكثير من ملفات A تبعك وعلى أساس الوقت ، انت اختار ملفك A أقرب وقت قبل مسح الجدول المطلوب، هذه فكرة من الممكن أن نساعدك، تحياتي 🌹🌹

مشكور جدا لكم جميعا 🌹🌹🌹

تحياتي للأخ خليفة🌹🌹

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

تحياتي يالغالي , سنجربه ❤️

هنالك فكرة في المنتدى ولكن لم يتم تطبيقها، وانا لم استطع ان أحول اللينك ولكني اخذت صورة وهي تماما كما هو المطلوب🌹

يالغالي يا ابو خليل 🌹 في المطعم الكلاسيكي : اذا تم ١.أكثر من طلبية في ٢. نفس الوقت و ٣.لأكثر من طاولة كيف يتعامل المحاسب اذا طلب منه الفاتورة النهائية لكل طاولة او شخص؟؟ تحياتي 🌹